'From etoys3.0 of 24 February 2008 [latest update: #2002] on 18 May 2008 at 3:35:44 pm'! "Change Set: trn18May2008-KR Date: 18 May 2008 Author: Korakurider TRAC 7026: wording and translation for border style values unify wording of available choices for borderStyle and fix translation "! !BorderedMorph methodsFor: 'menu' stamp: 'KR 5/18/2008 14:57'! addBorderStyleMenuItems: aMenu hand: aHandMorph "Add border-style menu items" | subMenu | subMenu _ MenuMorph new defaultTarget: self. subMenu addTitle: 'border' translated. subMenu addStayUpItemSpecial. subMenu addList: {{'border color...' translated. #changeBorderColor:}. {'border width...' translated. #changeBorderWidth:}}. subMenu addLine. BorderStyle borderStyleChoices do: [:sym | (self borderStyleForSymbol: sym) ifNotNil: [subMenu add: sym asString fromCamelCase translated target: self selector: #setBorderStyle: argument: sym]]. aMenu add: 'border style...' translated subMenu: subMenu ! ! !Vocabulary class methodsFor: 'class initialization' stamp: 'KR 5/18/2008 15:02'! initializeStandardVocabularies "Initialize a few standard vocabularies and place them in the AllStandardVocabularies list." AllStandardVocabularies _ nil. self addStandardVocabulary: EToyVocabulary new. self addStandardVocabulary: EToyVectorVocabulary new. self addStandardVocabulary: self newPublicVocabulary. self addStandardVocabulary: FullVocabulary new. self addStandardVocabulary: self newQuadVocabulary. self addStandardVocabulary: ColorType new. self addStandardVocabulary: BooleanType new. self addStandardVocabulary: GraphicType new. self addStandardVocabulary: PlayerType new. self addStandardVocabulary: SoundType new. self addStandardVocabulary: StringType new. self addStandardVocabulary: MenuType new. self addStandardVocabulary: UnknownType new. self addStandardVocabulary: ScriptNameType new. self addStandardVocabulary: PointType new. #('simple' 'raised' 'inset' 'complex framed' 'complex raised' 'complex inset' 'complex alt framed' 'complex alt raised' 'complex alt inset') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(simple raised inset complexFramed complexRaised complexInset complexAltFramed complexAltRaised complexAltInset); vocabularyName: #BorderStyle; yourself). #('lines' 'arrows' 'arrowheads' 'dots') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(lines arrows arrowheads dots); vocabularyName: #TrailStyle; yourself). #('left to right' 'right to left' 'top to bottom' 'bottom to top') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(leftToRight rightToLeft topToBottom bottomToTop); vocabularyName: #ListDirection; yourself). #('top left' 'bottom right' 'center' 'justified') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(topLeft bottomRight center justified); vocabularyName: #ListCentering; yourself). #('center' 'top left' 'top right' 'bottom left' 'bottom right' 'top center' 'left center' 'right center' 'bottom center') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(center topLeft topRight bottomLeft bottomRight topCenter leftCenter rightCenter bottomCenter ); vocabularyName: #CellPositioning; yourself). #('none' 'local rect' 'local square' 'global rect' 'global square') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(none localRect localSquare globalRect globalSquare); vocabularyName: #CellSpacing; yourself). #('button down' 'while pressed' 'button up') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(buttonDown whilePressed buttonUp); vocabularyName: #ButtonPhase; yourself). #('rotate' 'do not rotate' 'flip left right' 'flip up down') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(rotate #'do not rotate' #'flip left right' #'flip up down'); vocabularyName: #RotationStyle; yourself). #('rigid' 'space fill' 'shrink wrap') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(rigid spaceFill shrinkWrap); vocabularyName: #Resizing; yourself). self addStandardVocabulary: self newSystemVocabulary. "A custom vocabulary for Smalltalk -- still under development)" self numberVocabulary. "creates and adds it" self wonderlandVocabulary. "creates and adds it" self vocabularyForClass: Time. "creates and adds it" self addStandardVocabulary: (KedamaPatchType new vocabularyName: #Patch; yourself). #('wrap' 'stick' 'bouncing') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(wrap stick bouncing); vocabularyName: #EdgeMode; yourself). #('log scale' 'linear' 'color') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(logScale linear color); vocabularyName: #PatchDisplayMode; yourself). "Vocabulary initialize"! !