# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 903988192 -7200
# Node ID 23d20044894f3b5ced102b32b0c2b9474a637d2d
# Parent  c6530cd784bd941185a28705cf245fdd88488519
show all icons;
update list when retriever is entered.

diff -r c6530cd784bd -r 23d20044894f MenuEditor.st
--- 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