--- a/Toggle.st Fri Feb 28 19:52:49 1997 +0100
+++ b/Toggle.st Fri Feb 28 19:54:37 1997 +0100
@@ -414,10 +414,9 @@
model:aModel
super model:aModel.
- realized ifTrue:[
- self getValueFromModel.
- ]
+ self getValueFromModel.
+ "Modified: 28.2.1997 / 19:09:58 / cg"
! !
!Toggle methodsFor:'change & update'!
@@ -466,14 +465,6 @@
lampHeight := (device verticalPixelPerMillimeter * 3.5) rounded.
"Modified: 22.1.1997 / 11:57:55 / cg"
-!
-
-realize
- "/
- "/ get my initial state from the model (if there is one)
- "/
- self getValueFromModel.
- super realize
! !
!Toggle methodsFor:'private'!
@@ -571,5 +562,5 @@
!Toggle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.36 1997-02-25 13:23:40 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.37 1997-02-28 18:54:37 cg Exp $'
! !