UIPainter.st
changeset 229 cabe3bd6fd74
parent 222 dd2688307d90
child 230 60663807d4fd
--- a/UIPainter.st	Mon Jul 21 10:49:25 1997 +0200
+++ b/UIPainter.st	Mon Jul 21 10:52:28 1997 +0200
@@ -960,9 +960,6 @@
                 )
             )
              #(#MenuItem
-                #'label:' ''
-            )
-             #(#MenuItem
                 #'label:' 'stepIn'
                 #'value:' #doStepIn
                 #'enabled:' #canStepIn
@@ -980,7 +977,8 @@
                     #UIPainter #iconStepOut
                 )
             )
-          ) nil
+          )
+          #( 2 )
           nil
       )
 !
@@ -1240,7 +1238,13 @@
     cls notNil ifTrue:[
         (aspect := specTool specification menu) notNil ifTrue:[
             aspect := aspect asSymbol
+        ] ifFalse:[
+            aspect := treeView propertySelected.
+            aspect notNil ifTrue:[
+                aspect := aspect view asMenu.
+            ]
         ].
+        
         editor := MenuEditor new.
         editor masterApplication:self.
         editor activeHelpTool:(self activeHelpTool).