equal
deleted
inserted
replaced
78 ! ! |
78 ! ! |
79 |
79 |
80 !MenuEditor class methodsFor:'initialization'! |
80 !MenuEditor class methodsFor:'initialization'! |
81 |
81 |
82 initialize |
82 initialize |
83 ImageRetrieverClasses := #( Icon |
83 ImageRetrieverClasses := #( |
|
84 Icon |
84 NewLauncher |
85 NewLauncher |
85 SystemBrowser |
86 SystemBrowser |
86 ) asList. |
87 ToolbarIconLibrary |
|
88 ) |
|
89 |
|
90 " |
|
91 self initialize |
|
92 " |
87 ! ! |
93 ! ! |
88 |
94 |
89 !MenuEditor class methodsFor:'instance creation'! |
95 !MenuEditor class methodsFor:'instance creation'! |
90 |
96 |
91 openModalOnMenu: aMenu |
97 openModalOnMenu: aMenu |
116 ! ! |
122 ! ! |
117 |
123 |
118 !MenuEditor class methodsFor:'accessing image retriever'! |
124 !MenuEditor class methodsFor:'accessing image retriever'! |
119 |
125 |
120 addNewImageRetriever:aSymbolOrClass |
126 addNewImageRetriever:aSymbolOrClass |
|
127 "add a class to the imageRetriever list" |
|
128 |
121 |key| |
129 |key| |
122 |
130 |
123 aSymbolOrClass isString ifFalse:[ |
131 aSymbolOrClass isBehavior ifTrue:[ |
124 aSymbolOrClass isBehavior ifTrue:[ |
132 key := aSymbolOrClass nameWithNameSpacePrefix |
125 key := aSymbolOrClass nameWithNameSpacePrefix |
133 ] ifFalse:[ |
126 ] |
|
127 ] ifTrue:[ |
|
128 key := aSymbolOrClass |
134 key := aSymbolOrClass |
129 ]. |
135 ]. |
130 |
136 |
131 key size ~~ 0 ifTrue:[ |
137 key size ~~ 0 ifTrue:[ |
132 key := key asSymbol. |
138 key := key asSymbol. |
133 |
139 |
134 (ImageRetrieverClasses identityIndexOf:key) == 0 ifTrue:[ |
140 (ImageRetrieverClasses includes:key) ifFalse:[ |
|
141 ImageRetrieverClasses := ImageRetrieverClasses asOrderedCollection. |
135 ImageRetrieverClasses add:key. |
142 ImageRetrieverClasses add:key. |
|
143 ImageRetrieverClasses sort. |
136 ] |
144 ] |
137 ]. |
145 ]. |
138 ! |
146 ! |
139 |
147 |
140 imageRetrieverClasses |
148 imageRetrieverClasses |