--- a/CheckToggle.st	Wed Dec 01 21:03:25 1999 +0100
+++ b/CheckToggle.st	Wed Dec 01 21:06:01 1999 +0100
@@ -393,14 +393,7 @@
     DefaultCheckForm := nil.
     checkFileName := StyleSheet at:#'checkToggle.bitmapFile' default:'CheckOn.xbm'.
     checkFileName notNil ifTrue:[
-        DefaultCheckForm := Image fromFile:checkFileName 
-                                resolution:100
-                                        on:Display.
-        DefaultCheckForm isNil ifTrue:[
-            DefaultCheckForm := Image fromFile:'bitmaps/' , checkFileName 
-                                    resolution:100
-                                            on:Display.
-        ]
+        DefaultCheckForm := Smalltalk bitmapFromFileNamed:checkFileName forClass:self.
     ].
     DefaultCheckForm isNil ifTrue:[
         checkStyle := StyleSheet at:#'checkToggle.style' default:#check.
@@ -409,7 +402,7 @@
     StyleSheet name == #os2 ifTrue: [
         DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15)
     ].
-
+    DefaultCheckForm := DefaultCheckForm onDevice:Display.
     DefaultActiveImage := StyleSheet at:#'checkToggle.activeImage'.
     DefaultPassiveImage := StyleSheet at:#'checkToggle.passiveImage'.
 
@@ -573,5 +566,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.53 1999-08-18 15:12:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.54 1999-12-01 20:06:01 cg Exp $'
 ! !