--- a/CheckToggle.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/CheckToggle.st	Sat Apr 24 16:37:22 1999 +0200
@@ -380,18 +380,18 @@
 
     |checkFileName checkStyle|
 
-    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.
+    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.
 
     DefaultCheckForm := nil.
-    checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'.
+    checkFileName := StyleSheet at:#'checkToggle.bitmapFile' default:'CheckOn.xbm'.
     checkFileName notNil ifTrue:[
         DefaultCheckForm := Image fromFile:checkFileName 
                                 resolution:100
@@ -403,15 +403,15 @@
         ]
     ].
     DefaultCheckForm isNil ifTrue:[
-        checkStyle := StyleSheet at:'checkToggle.style' default:#check.
+        checkStyle := StyleSheet at:#'checkToggle.style' default:#check.
         DefaultCheckForm := self checkImageForStyle:checkStyle
     ].
     StyleSheet name == #os2 ifTrue: [
         DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15)
     ].
 
-    DefaultActiveImage := StyleSheet at:'checkToggle.activeImage'.
-    DefaultPassiveImage := StyleSheet at:'checkToggle.passiveImage'.
+    DefaultActiveImage := StyleSheet at:#'checkToggle.activeImage'.
+    DefaultPassiveImage := StyleSheet at:#'checkToggle.passiveImage'.
 
     "
      self updateStyleCache
@@ -555,5 +555,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.47 1999-04-21 21:24:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.48 1999-04-24 14:37:18 cg Exp $'
 ! !