CheckToggle.st
changeset 1994 ad7004e6b2a4
parent 1965 2faef40f7136
child 2058 4153e1cb48f2
--- a/CheckToggle.st	Wed Aug 18 17:06:39 1999 +0200
+++ b/CheckToggle.st	Wed Aug 18 17:12:00 1999 +0200
@@ -234,7 +234,7 @@
      Provided as public entry, to allow other views
      to share the same check-image."
 
-    ^ DefaultCheckForm on:aDevice.
+    ^ DefaultCheckForm onDevice:aDevice.
 !
 
 checkImageForStyle:aStyleSymbol
@@ -434,16 +434,6 @@
     ]
 ! !
 
-!CheckToggle ignoredMethodsFor:'event handling'!
-
-sizeChanged:how
-    |prefExt|
-
-    prefExt := self preferredExtent.
-    width := prefExt x.
-    height := prefExt y.
-! !
-
 !CheckToggle methodsFor:'initialization'!
 
 initStyle
@@ -583,5 +573,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.52 1999-07-13 18:52:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.53 1999-08-18 15:12:00 cg Exp $'
 ! !