MenuView.st
changeset 475 ce306c6c6bc4
parent 465 b473edeab54e
child 481 f74c9eff9410
--- a/MenuView.st	Tue Mar 05 16:54:12 1996 +0100
+++ b/MenuView.st	Tue Mar 05 17:36:46 1996 +0100
@@ -618,6 +618,13 @@
             args add:nil beforeIndex:i. i := i + 1.
         ]
     ].
+    onOffFlags notNil ifTrue:[
+        onOffFlags := onOffFlags asOrderedCollection.
+        i := idx.
+        nMore timesRepeat:[
+            onOffFlags add:nil beforeIndex:i. i := i + 1.
+        ]
+    ].
     shortKeys isNil ifTrue:[
         shortKeys := OrderedCollection new:oldSize.
         shortKeys grow:oldSize
@@ -686,7 +693,7 @@
     "
 
     "Created: 28.2.1996 / 17:49:44 / cg"
-    "Modified: 4.3.1996 / 23:23:43 / cg"
+    "Modified: 5.3.1996 / 14:49:35 / cg"
 !
 
 addLabels:moreLabels selectors:moreSelectors after:aLabelOrSelectorOrNumber 
@@ -819,15 +826,20 @@
     |index|
 
     index := self indexOf:indexOrName.
-    index == 0 ifTrue:[^ self].
+    index == 0 ifTrue:[
+        'no item: ' print. indexOrName printNL.
+        ^ self
+    ].
 
     onOffFlags isNil ifTrue:[
-	onOffFlags := Array new:(list size)
+        onOffFlags := Array new:(list size)
     ].
     onOffFlags at:index put:aBoolean.
     shown ifTrue:[
-	self redrawLine:index
+        self redrawLine:index
     ]
+
+    "Modified: 5.3.1996 / 14:45:10 / cg"
 !
 
 indexOf:indexOrName
@@ -1785,15 +1797,15 @@
                             AbortSignal handle:[:ex |
                                 ex return
                             ] do:[
-                                isCheck ifTrue:[
-                                    self redrawLine:selection.
-                                    receiver perform:theSelector with:checkOn
+                                theSelector numArgs == 0 ifTrue:[
+                                    receiver perform:theSelector
                                 ] ifFalse:[
-                                    (args isNil or:[theSelector numArgs == 0]) ifTrue:[
-                                        receiver perform:theSelector
-                                    ] ifFalse:[
-                                        receiver perform:theSelector with:val
-                                    ]
+                                    isCheck ifTrue:[
+                                        self redrawLine:selection.
+                                        val := checkOn.
+                                    ].
+                                
+                                    receiver perform:theSelector with:val 
                                 ]
                             ]
                         ]
@@ -1811,7 +1823,7 @@
     ]
 
     "Created: 4.3.1996 / 11:19:22 / cg"
-    "Modified: 4.3.1996 / 23:16:26 / cg"
+    "Modified: 5.3.1996 / 14:47:56 / cg"
 !
 
 recomputeSize
@@ -2345,5 +2357,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.57 1996-03-04 22:28:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.58 1996-03-05 16:36:46 cg Exp $'
 ! !