--- a/MenuEditor.st	Mon Aug 24 18:28:30 1998 +0200
+++ b/MenuEditor.st	Mon Aug 24 21:49:52 1998 +0200
@@ -1943,6 +1943,16 @@
 
 !MenuEditor methodsFor:'change & update'!
 
+update:something with:aParameter from:changedObject
+    super update:something with:aParameter from:changedObject.
+
+    changedObject == (aspects at:#retriever) ifTrue:[
+        self updateListOfImages
+    ].
+
+    "Modified: / 24.8.1998 / 21:47:48 / cg"
+!
+
 updateChannels
     "update channels"
 
@@ -2005,7 +2015,7 @@
         ((self class getAllImageSelectorsFrom: iconClass)
             collect: [:sel| |image| image := iconClass perform: sel. LabelAndIcon icon:(image magnifiedBy: 22/image extent y ) string: sel]).
 
-
+    "Modified: / 24.8.1998 / 21:29:24 / cg"
 !
 
 updateSelectionOfImage