--- 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).