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