equal
deleted
inserted
replaced
825 |
825 |
826 |index| |
826 |index| |
827 |
827 |
828 index := self indexOf:indexOrName. |
828 index := self indexOf:indexOrName. |
829 index == 0 ifTrue:[ |
829 index == 0 ifTrue:[ |
830 'no item: ' print. indexOrName printNL. |
830 "/ 'no item: ' print. indexOrName printNL. |
831 ^ self |
831 ^ self |
832 ]. |
832 ]. |
833 |
833 |
834 onOffFlags isNil ifTrue:[ |
834 onOffFlags isNil ifTrue:[ |
835 onOffFlags := Array new:(list size) |
835 onOffFlags := Array new:(list size) |
837 onOffFlags at:index put:aBoolean. |
837 onOffFlags at:index put:aBoolean. |
838 shown ifTrue:[ |
838 shown ifTrue:[ |
839 self redrawLine:index |
839 self redrawLine:index |
840 ] |
840 ] |
841 |
841 |
842 "Modified: 5.3.1996 / 14:45:10 / cg" |
842 "Modified: 6.3.1996 / 16:31:43 / cg" |
843 ! |
843 ! |
844 |
844 |
845 indexOf:indexOrName |
845 indexOf:indexOrName |
846 "return the index of the label named:aName or , if its a symbol |
846 "return the index of the label named:aName or , if its a symbol |
847 the index in the selector list" |
847 the index in the selector list" |
2355 ! ! |
2355 ! ! |
2356 |
2356 |
2357 !MenuView class methodsFor:'documentation'! |
2357 !MenuView class methodsFor:'documentation'! |
2358 |
2358 |
2359 version |
2359 version |
2360 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.58 1996-03-05 16:36:46 cg Exp $' |
2360 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.59 1996-03-06 15:32:01 cg Exp $' |
2361 ! ! |
2361 ! ! |