Toggle.st
changeset 1083 13e64cc1c493
parent 1044 fb7a15fa51dc
child 1353 5dac6aa6ac96
--- 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 $'
 ! !