# HG changeset patch
# User tz
# Date 886172247 -3600
# Node ID c39e2ceeaaea9b11a62315333ee996d404aeec21
# Parent  3991e37ec19faa6e66c93df1e710a4ffb773271b
support argument for linked menus

diff -r 3991e37ec19f -r c39e2ceeaaea MenuEditor.st
--- a/MenuEditor.st	Fri Jan 30 15:19:38 1998 +0100
+++ b/MenuEditor.st	Fri Jan 30 15:57:27 1998 +0100
@@ -390,8 +390,7 @@
                     #'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
                     #'activeHelpKey:' #submenuChannel
                     #'tabable:' true
-                    #'model:' #submenuArgument
-                    #'type:' #symbolOrNil
+                    #'model:' #argument
                     #'acceptOnReturn:' false
                     #'acceptOnTab:' false
                 )
@@ -1812,7 +1811,6 @@
         accessCharacterPos
         argument
         submenuChannel
-        submenuArgument
         enabled
         value
         nameKey
@@ -1866,6 +1864,8 @@
 postBuildWith:builder
     |cls sel|
 
+    super postBuildWith:builder.
+
     didInstall := false.
     isModified := false.
 
@@ -1886,6 +1886,8 @@
 
 postOpenWith:aBuilder
 
+    super postOpenWith:aBuilder.
+
     self isHelpToolSelected 
         ifTrue:  [helpCanvas raise] 
         ifFalse: [specCanvas raise]    
@@ -2304,6 +2306,7 @@
     startGroup         := anItem startGroup.
     accessCharacterPos := anItem accessCharacterPosition.
     argument           := anItem argument.
+
     submenuChannel     := anItem submenuChannel.
     translateLabel     := anItem translateLabel.
     isButton           := anItem isButton.
@@ -2345,6 +2348,7 @@
         (aspects at:#retriever)            value:retriever.
         (aspects at:#icon)                 value:icon.
         (aspects at:#iconAndLabel)         value:iconAndLabel.
+
         argument isSymbol
             ifTrue: [(aspects at:#argument)value:'#', argument] 
             ifFalse:[(aspects at:#argument)value:argument].