equal
deleted
inserted
replaced
259 model notNil ifTrue:[ |
259 model notNil ifTrue:[ |
260 self updateFromModel |
260 self updateFromModel |
261 ] |
261 ] |
262 ! ! |
262 ! ! |
263 |
263 |
264 !ColorMenu methodsFor:'accessing-look'! |
|
265 |
|
266 showSeparatingLines |
|
267 "no drawing of separating lines here" |
|
268 |
|
269 ^true |
|
270 |
|
271 ! ! |
|
272 |
|
273 !ColorMenu methodsFor:'change & update'! |
264 !ColorMenu methodsFor:'change & update'! |
274 |
265 |
275 updateFromModel |
266 updateFromModel |
276 self color:(model value) |
267 self color:(model value) |
277 ! ! |
268 ! ! |
288 |
279 |
289 initialize |
280 initialize |
290 "setup menu" |
281 "setup menu" |
291 |
282 |
292 super initialize. |
283 super initialize. |
293 labelsAreColored := false. |
284 labelsAreColored := false. |
294 self verticalLayout:false. |
285 verticalLayout := false. |
|
286 |
295 self fitFirstPanel:false. |
287 self fitFirstPanel:false. |
296 enabledChannel := ValueHolder with:false. |
288 enabledChannel := ValueHolder with:false. |
297 self setupMenu. |
289 self setupMenu. |
298 |
290 |
299 "Modified: / 21.5.1998 / 03:07:26 / cg" |
291 "Modified: / 21.5.1998 / 03:07:26 / cg" |
890 ! ! |
882 ! ! |
891 |
883 |
892 !ColorMenu class methodsFor:'documentation'! |
884 !ColorMenu class methodsFor:'documentation'! |
893 |
885 |
894 version |
886 version |
895 ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.30 2002-09-12 13:58:36 cg Exp $' |
887 ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.31 2002-10-08 06:35:50 ca Exp $' |
896 ! ! |
888 ! ! |