equal
deleted
inserted
replaced
122 |
122 |
123 aSymbolOrClass isString ifFalse:[ |
123 aSymbolOrClass isString ifFalse:[ |
124 aSymbolOrClass isBehavior ifTrue:[ |
124 aSymbolOrClass isBehavior ifTrue:[ |
125 key := aSymbolOrClass nameWithNameSpacePrefix |
125 key := aSymbolOrClass nameWithNameSpacePrefix |
126 ] |
126 ] |
127 ]. |
127 ] ifTrue:[ |
|
128 key := aSymbolOrClass |
|
129 ]. |
|
130 |
128 key size ~~ 0 ifTrue:[ |
131 key size ~~ 0 ifTrue:[ |
129 key := key asSymbol. |
132 key := key asSymbol. |
130 |
133 |
131 (ImageRetrieverClasses identityIndexOf:key) == 0 ifTrue:[ |
134 (ImageRetrieverClasses identityIndexOf:key) == 0 ifTrue:[ |
132 ImageRetrieverClasses add:key. |
135 ImageRetrieverClasses add:key. |
2218 |
2221 |
2219 lastImageRetriever == cls ifTrue:[ |
2222 lastImageRetriever == cls ifTrue:[ |
2220 newList := self listOfImages |
2223 newList := self listOfImages |
2221 ] ifFalse:[ |
2224 ] ifFalse:[ |
2222 cls notNil ifTrue:[ |
2225 cls notNil ifTrue:[ |
2223 lastImageRetriever := cls. |
2226 self withWaitCursorDo:[ |
2224 |
2227 lastImageRetriever := cls. |
2225 newList := self class getAllImageSelectorsFrom:cls. |
2228 |
2226 newList := newList collect: [:sel| |img| |
2229 newList := self class getAllImageSelectorsFrom:cls. |
2227 img := cls perform: sel. |
2230 newList := newList collect: [:sel| |img| |
2228 img height > 22 ifTrue:[ |
2231 img := cls perform: sel. |
2229 img := img magnifiedBy: 22 / img extent y |
2232 img height > 22 ifTrue:[ |
2230 ]. |
2233 img := img magnifiedBy: 22 / img extent y |
2231 LabelAndIcon icon:img string:sel |
2234 ]. |
2232 ]. |
2235 LabelAndIcon icon:img string:sel |
|
2236 ]. |
|
2237 ]. |
2233 ] ifFalse:[ |
2238 ] ifFalse:[ |
2234 newList := #() |
2239 newList := #() |
2235 ]. |
2240 ]. |
2236 self listOfImages contents:newList. |
2241 self listOfImages contents:newList. |
2237 ]. |
2242 ]. |
2240 |
2245 |
2241 icon notNil ifTrue:[ |
2246 icon notNil ifTrue:[ |
2242 icon := newList detect:[:el| el string == icon] ifNone:nil. |
2247 icon := newList detect:[:el| el string == icon] ifNone:nil. |
2243 ]. |
2248 ]. |
2244 self selectionOfImage value:icon. |
2249 self selectionOfImage value:icon. |
2245 |
|
2246 |
|
2247 ! ! |
2250 ! ! |
2248 |
2251 |
2249 !MenuEditor methodsFor:'defaults'! |
2252 !MenuEditor methodsFor:'defaults'! |
2250 |
2253 |
2251 aboutImage |
2254 aboutImage |