equal
deleted
inserted
replaced
412 |
412 |
413 !Toggle methodsFor:'accessing-mvc'! |
413 !Toggle methodsFor:'accessing-mvc'! |
414 |
414 |
415 model:aModel |
415 model:aModel |
416 super model:aModel. |
416 super model:aModel. |
417 realized ifTrue:[ |
417 self getValueFromModel. |
418 self getValueFromModel. |
418 |
419 ] |
419 "Modified: 28.2.1997 / 19:09:58 / cg" |
420 |
|
421 ! ! |
420 ! ! |
422 |
421 |
423 !Toggle methodsFor:'change & update'! |
422 !Toggle methodsFor:'change & update'! |
424 |
423 |
425 update:something with:parameter from:changedObject |
424 update:something with:parameter from:changedObject |
464 lampColor := DefaultLampColor. |
463 lampColor := DefaultLampColor. |
465 lampWidth := (device horizontalPixelPerMillimeter * 1.8) rounded. |
464 lampWidth := (device horizontalPixelPerMillimeter * 1.8) rounded. |
466 lampHeight := (device verticalPixelPerMillimeter * 3.5) rounded. |
465 lampHeight := (device verticalPixelPerMillimeter * 3.5) rounded. |
467 |
466 |
468 "Modified: 22.1.1997 / 11:57:55 / cg" |
467 "Modified: 22.1.1997 / 11:57:55 / cg" |
469 ! |
|
470 |
|
471 realize |
|
472 "/ |
|
473 "/ get my initial state from the model (if there is one) |
|
474 "/ |
|
475 self getValueFromModel. |
|
476 super realize |
|
477 ! ! |
468 ! ! |
478 |
469 |
479 !Toggle methodsFor:'private'! |
470 !Toggle methodsFor:'private'! |
480 |
471 |
481 computeLabelOrigin |
472 computeLabelOrigin |
569 ! ! |
560 ! ! |
570 |
561 |
571 !Toggle class methodsFor:'documentation'! |
562 !Toggle class methodsFor:'documentation'! |
572 |
563 |
573 version |
564 version |
574 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.36 1997-02-25 13:23:40 ca Exp $' |
565 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.37 1997-02-28 18:54:37 cg Exp $' |
575 ! ! |
566 ! ! |