--- a/MenuEditor.st Thu Feb 05 22:26:16 1998 +0100
+++ b/MenuEditor.st Fri Feb 06 00:38:12 1998 +0100
@@ -593,11 +593,11 @@
#'window:'
#(#WindowSpec
#'name:' 'unnamed canvas'
- #'layout:' #(#LayoutFrame 73 0 152 0 339 0 470 0)
+ #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
#'label:' 'unnamed canvas'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 73 152 340 471)
+ #'bounds:' #(#Rectangle 219 193 486 512)
#'usePreferredExtent:' false
)
#'component:'
@@ -619,6 +619,23 @@
#'model:' #seperatorSelection
#'useIndex:' true
)
+ #(#LabelSpec
+ #'name:' 'visibilityLabel'
+ #'layout:' #(#AlignmentOrigin 127 0 76 0 1 0.5)
+ #'label:' 'Visibility:'
+ #'adjust:' #right
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'isVisibleInputField'
+ #'layout:' #(#LayoutFrame 132 0 65 0 -5 1.0 87 0)
+ #'activeHelpKey:' #detailsVisibility
+ #'tabable:' true
+ #'model:' #isVisible
+ #'type:' #symbolOrNil
+ #'acceptOnReturn:' false
+ #'acceptOnTab:' false
+ )
)
)
)
@@ -2308,6 +2325,7 @@
|item rcv|
item := MenuItem labeled:label.
+ item isVisible:isVisible.
self isSeparator ifFalse:[
item activeHelpKey:activeHelpKey.
@@ -2322,7 +2340,6 @@
item indication:indication.
item translateLabel: translateLabel.
item isButton: isButton.
- item isVisible: isVisible.
icon notNil ifTrue:[
rcv := ResourceRetriever new.
@@ -2360,7 +2377,6 @@
argument := (aspects at:#argument) value.
translateLabel := (aspects at:#translateLabel) value.
isButton := (aspects at:#isButton) value.
- isVisible := (aspects at:#isVisible) value.
argument isString ifTrue:[
argument size > 1 ifTrue:[
@@ -2378,7 +2394,9 @@
[
name := (aspects at:#seperatorSelection) selectionIndex.
label := (self class separatorSlices at:name) last.
- ]
+ ].
+ isVisible := (aspects at:#isVisible) value.
+
!
buildFromMenuItem:anItem
@@ -2448,13 +2466,13 @@
(aspects at:#icon) value:icon.
(aspects at:#iconAndLabel) value:iconAndLabel.
(aspects at:#isButton) value:isButton.
- (aspects at:#isVisible) value:isVisible.
-
argument isSymbol
ifTrue: [(aspects at:#argument)value:'#', argument]
ifFalse:[(aspects at:#argument)value:argument].
- ]
+ ].
+ (aspects at:#isVisible) value:isVisible.
+
! !
!MenuEditor::Item methodsFor:'queries'!