Eliot Miranda uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-eem.1063.mcz==================== Summary ====================
Name: Morphic-eem.1063
Author: eem
Time: 5 January 2016, 5:44:45.9636 pm
UUID: 5874da4f-b659-476a-8f3f-ac77ab444305
Ancestors: Morphic-eem.1062
Avoid translating strings in MenuIcons redundantly on start-up. This is for the VM simulator, but it'll also shave a few milliseconds off start-up, even on a fast machine (e.g. my 2.2GHz Core i7 takes ~ 3.75msecs to initializeTranslations).
=============== Diff against Morphic-eem.1062 ===============
Item was changed:
Object subclass: #MenuIcons
instanceVariableNames: ''
+ classVariableNames: 'Icons TranslatedIcons TranslationLocale'
- classVariableNames: 'Icons TranslatedIcons'
poolDictionaries: ''
category: 'Morphic-Menus'!
!MenuIcons commentStamp: 'sd 11/9/2003 14:09' prior: 0!
I represent a registry for icons. You can see the icons I contain using the following script:
| dict methods |
dict := Dictionary new.
methods := MenuIcons class selectors select: [:each | '*Icon' match: each asString].
methods do: [:each | dict at: each put: (MenuIcons perform: each)].
GraphicalDictionaryMenu openOn: dict withLabel: 'MenuIcons'!
Item was changed:
----- Method: MenuIcons class>>initializeTranslations (in category 'class initialization') -----
initializeTranslations
"Initialize the dictionary of <translated menu string>-><icon>"
+ TranslationLocale := LocaleID current.
TranslatedIcons := Dictionary new.
+ self itemsIcons do:
+ [:assoc|
+ assoc key do:
+ [:str| TranslatedIcons at: str translated asLowercase put: assoc value]]!
- self itemsIcons do: [ :assoc |
- assoc key do: [ :str | TranslatedIcons at: str translated asLowercase put: assoc value ]
- ]!
Item was changed:
----- Method: MenuIcons class>>startUp: (in category 'class initialization') -----
startUp: resuming
+ resuming ifFalse: [^self].
+ TranslationLocale = LocaleID current ifTrue:
+ [^self].
- resuming
- ifFalse: [^ self].
self initializeTranslations!
Locked
