--- a/CheckToggle.st	Mon Mar 30 14:06:46 1998 +0200
+++ b/CheckToggle.st	Mon Mar 30 14:32:15 1998 +0200
@@ -373,15 +373,15 @@
 
     |checkFileName checkStyle|
 
-    DefaultCheckColor := StyleSheet colorAt:'checkToggle.checkColor'.
-    DefaultFGColor := StyleSheet colorAt:'checkToggle.foregroundColor'.
-    DefaultBGColor := StyleSheet colorAt:'checkToggle.backgroundColor'.
+    DefaultCheckColor    := StyleSheet colorAt:'checkToggle.checkColor'.
+    DefaultFGColor       := StyleSheet colorAt:'checkToggle.foregroundColor'.
+    DefaultBGColor       := StyleSheet colorAt:'checkToggle.backgroundColor'.
     DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'.
     DefaultActiveBGColor := StyleSheet colorAt:'checkToggle.activeBackgroundColor'.
-    DefaultActiveLevel := StyleSheet at:'checkToggle.activeLevel'.
-    DefaultPassiveLevel := StyleSheet at:'checkToggle.passiveLevel'.
-    DefaultBorderWidth := StyleSheet at:'checkToggle.borderWidth'.
-    LabelOverMargin := StyleSheet at:'checkToggle.labelOverMargin' default:false.
+    DefaultActiveLevel   := StyleSheet at:'checkToggle.activeLevel'.
+    DefaultPassiveLevel  := StyleSheet at:'checkToggle.passiveLevel'.
+    DefaultBorderWidth   := StyleSheet at:'checkToggle.borderWidth'.
+    LabelOverMargin      := StyleSheet at:'checkToggle.labelOverMargin' default:false.
 
     DefaultCheckForm := nil.
     checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'.
@@ -398,7 +398,10 @@
     DefaultCheckForm isNil ifTrue:[
         checkStyle := StyleSheet at:'checkToggle.style' default:#check.
         DefaultCheckForm := self checkImageForStyle:checkStyle
-    ]
+    ].
+    StyleSheet name == #os2 ifTrue: [
+        DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15)
+    ].
 
     "
      self updateStyleCache
@@ -525,5 +528,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.41 1998-03-09 21:22:02 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.42 1998-03-30 12:32:15 tz Exp $'
 ! !