--- a/UIPainter.st	Thu Jul 31 14:29:58 1997 +0200
+++ b/UIPainter.st	Thu Jul 31 14:31:07 1997 +0200
@@ -1248,25 +1248,36 @@
         ] ifFalse:[
             "/ cg: q&d hack ...
 
-            self warn:'first enter (and confirm) the menus selector.'.
-            ^ self.
-
             aspect := treeView propertySelected.
             aspect notNil ifTrue:[
                 Object errorSignal handle:[:ex |
+                    aspect := nil.
                 ] do:[
                     aspect := aspect view asMenu.
                 ]
-            ]
+            ].
+
+"/            aspect isNil ifTrue:[
+"/                self warn:'first enter (and confirm) the menus selector.'.
+"/                ^ self.
+"/            ].
         ].
         
         editor := MenuEditor new.
         editor masterApplication:self.
         editor activeHelpTool:(self activeHelpTool).
-        editor openModalOnClass:cls andSelector:aspect
+        editor openModalOnClass:cls andSelector:aspect.
+
+        editor selectorName ~= aspect ifTrue:[
+            editor didInstall ifTrue:[
+                specTool specification menu:editor selectorName asSymbol.
+                self modifiedChannel value:true.
+                self accept
+            ]
+        ].
     ]
 
-    "Modified: 28.7.1997 / 18:11:16 / cg"
+    "Modified: 31.7.1997 / 14:26:13 / cg"
 ! !
 
 !UIPainter methodsFor:'active help'!