equal
deleted
inserted
replaced
422 |
422 |
423 !Toggle methodsFor:'change & update'! |
423 !Toggle methodsFor:'change & update'! |
424 |
424 |
425 update:something with:parameter from:changedObject |
425 update:something with:parameter from:changedObject |
426 something == aspectMsg ifTrue:[ |
426 something == aspectMsg ifTrue:[ |
427 self getValueFromModel. |
427 self getValueFromModel. |
428 ^ self |
|
429 ]. |
428 ]. |
430 super update:something with:parameter from:changedObject |
429 super update:something with:parameter from:changedObject |
431 ! ! |
430 ! ! |
432 |
431 |
433 !Toggle methodsFor:'initialization'! |
432 !Toggle methodsFor:'initialization'! |
609 ! ! |
608 ! ! |
610 |
609 |
611 !Toggle class methodsFor:'documentation'! |
610 !Toggle class methodsFor:'documentation'! |
612 |
611 |
613 version |
612 version |
614 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.40 1998-03-05 12:35:51 cg Exp $' |
613 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.41 1998-03-09 21:25:07 tz Exp $' |
615 ! ! |
614 ! ! |