# HG changeset patch
# User tz
# Date 901040649 -7200
# Node ID f510032000ad77a3650376d90de901e29e47f45f
# Parent  ce482227787dcd58cb5e15d6caa38c94e524e3f6
unnecessary info prints

diff -r ce482227787d -r f510032000ad MenuEditor.st
--- 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]).