--- 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 $'
! !