# HG changeset patch
# User ca
# Date 886721892 -3600
# Node ID bf51357a8917c7e264f9dc37777603ae617feed8
# Parent  62efcf9d43a4c1cde309c318530c967aa7f135de
add:
    separators in/visible

diff -r 62efcf9d43a4 -r bf51357a8917 MenuEditor.st
--- 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'!