--- a/MenuEditor.st Wed Jul 09 15:05:08 2008 +0200
+++ b/MenuEditor.st Wed Jul 09 19:39:43 2008 +0200
@@ -5227,7 +5227,7 @@
!
imageList
- ^ imageList.
+ ^ imageList
!
modifiedChannel
@@ -5312,21 +5312,23 @@
item := nil.
selector := selector asSymbol.
- imageList do:[:anItem| |sel|
- sel := anItem selector.
- selector == sel ifTrue:[
- imageHolder value:anItem.
- ^ self
- ].
- item isNil ifTrue:[
- (sel startsWith:selector) ifTrue:[ item := anItem ]
- ]
+ imageList do:[:anItem|
+ |sel|
+
+ sel := anItem selector.
+ selector == sel ifTrue:[
+ imageHolder value:anItem.
+ ^ self
+ ].
+ item isNil ifTrue:[
+ (sel startsWith:selector) ifTrue:[ item := anItem ]
+ ]
].
imageHolder value:nil.
item ifNotNil:[
- line := imageList identityIndexOf:item.
- imageViewer scrollToLine:line
+ line := imageList identityIndexOf:item.
+ imageViewer scrollToLine:line
].
! !
@@ -5389,10 +5391,10 @@
|r item|
(aClass notNil and:[aClass isBehavior]) ifFalse:[
- ^ self collapse.
+ ^ self collapse.
].
aClass == selector ifTrue:[
- ^ self expand
+ ^ self expand
].
self collapse.
@@ -5400,16 +5402,17 @@
children := SortedCollection sortBlock:[:a :b| a label < b label ].
self application withWaitCursorDo:[
- aClass withAllSuperclassesDo:[:aClass|
- aClass class selectorsAndMethodsDo:[:sel :m|
- ((r := m resourceType) == #image or:[r == #programImage]) ifTrue:[
- item := self class fromClass:aClass selector:sel.
- item parent:self.
- children add:item
- ]
- ]
- ].
- self expand
+ aClass withAllSuperclassesDo:[:aClass|
+ aClass class selectorsAndMethodsDo:[:sel :m|
+ r := m resourceType.
+ ( #(#image #programImage) includes:r) ifTrue:[
+ item := self class fromClass:aClass selector:sel.
+ item parent:self.
+ children add:item
+ ]
+ ]
+ ].
+ self expand
].
!