'From Squeak3.1alpha of 28 February 2001 [latest update: #4011] on 11 May 2001 at 12:50:55 am'! "Change Set: currVocabFix-sw Date: 11 May 2001 Author: Scott Wallace fix for a careless bug of mine relating to variant vocabularies for worlds."! !SyntaxMorph methodsFor: 'type checking' stamp: 'sw 5/11/2001 00:49'! currentVocabulary "Answer the current vocabulary associated with the receiver. If none is yet set, determine an appropriate vocabulary and cache it within my properties dictionary." | aVocab aWorld | (aVocab _ self valueOfProperty: #currentVocabulary) ifNotNil: [^ aVocab]. "(aWorld _ self world) ifNotNil: [aVocab _ aWorld currentVocabulary]." aVocab ifNil: [aVocab _ Vocabulary eToyVocabulary]. self setProperty: #currentVocabulary toValue: aVocab. ^ aVocab! !