--- a/MenuEditor.st Tue Jul 21 18:52:23 1998 +0200
+++ b/MenuEditor.st Tue Jul 21 19:04:09 1998 +0200
@@ -1849,8 +1849,13 @@
updateListOfImages
"updates the list of images"
- |iconClass|
- iconClass := Smalltalk at: (aspects at: #retriever) value ? specClass.
+ |iconClass|
+
+ (iconClass := (aspects at: #retriever) value ? specClass) notNil ifTrue:
+ [
+ iconClass := Smalltalk at: iconClass
+ ].
+
self listOfImages contents:
((self class getAllImageSelectorsFrom: iconClass)
collect: [:sel| |image| image := iconClass perform: sel. LabelAndIcon icon:(image magnifiedBy: 22/image extent y ) string: sel]).