equal
deleted
inserted
replaced
251 labelsAreColored := aBoolean ? false. |
251 labelsAreColored := aBoolean ? false. |
252 self setupMenu |
252 self setupMenu |
253 |
253 |
254 ! ! |
254 ! ! |
255 |
255 |
256 !ColorMenu methodsFor:'accessing - channels'! |
256 !ColorMenu methodsFor:'accessing-channels'! |
257 |
257 |
258 model |
258 model |
259 "get my color channel" |
259 "get my color channel" |
260 |
260 |
261 ^model |
261 ^model |
278 |
278 |
279 |
279 |
280 |
280 |
281 ! ! |
281 ! ! |
282 |
282 |
283 !ColorMenu methodsFor:'accessing look'! |
283 !ColorMenu methodsFor:'accessing-look'! |
284 |
284 |
285 showSeparatingLines |
285 showSeparatingLines |
286 "no drawing of separating lines here" |
286 "no drawing of separating lines here" |
287 |
287 |
288 ^true |
288 ^true |
649 ! ! |
649 ! ! |
650 |
650 |
651 !ColorMenu class methodsFor:'documentation'! |
651 !ColorMenu class methodsFor:'documentation'! |
652 |
652 |
653 version |
653 version |
654 ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.23 2000-08-21 18:29:32 cg Exp $' |
654 ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.24 2000-08-21 22:43:08 cg Exp $' |
655 ! ! |
655 ! ! |