diff -r 7eee2cf54932 -r 03e95da6776d MenuEditor.st
--- 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
     ].
 !