diff -r f73ed1f5cb75 -r ce306c6c6bc4 MenuView.st --- 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 $' ! !