--- a/ChckTggle.st	Tue Oct 21 20:15:06 1997 +0200
+++ b/ChckTggle.st	Tue Oct 21 20:28:05 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:09:21 pm'                  !
+
 Toggle subclass:#CheckToggle
 	instanceVariableNames:''
 	classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor
@@ -362,29 +364,29 @@
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
-    <resource: #style (#checkToggleCheckColor
-                       #checkToggleBackgroundColor #checkToggleForegroundColor
-                       #checkToggleActiveBackgroundColor #checkToggleActiveForegroundColor
-                       #checkToggleActiveLevel #checkTogglePassiveLevel
-                       #checkToggleBorderWidth 
-                       #checkToggleBitmapFile
-                       #checkToggleLabelOverMargin 
-                       #checkToggleStyle)>
+    <resource: #style (#'checkToggle.checkColor'
+                       #'checkToggle.backgroundColor' #'checkToggleForegroundColor'
+                       #'checkToggle.activeBackgroundColor' #'checkToggleActiveForegroundColor'
+                       #'checkToggle.activeLevel' #'checkTogglePassiveLevel'
+                       #'checkToggle.borderWidth' 
+                       #'checkToggle.bitmapFile'
+                       #'checkToggle.labelOverMargin' 
+                       #'checkToggle.style')>
 
     |checkFileName checkStyle|
 
-    DefaultCheckColor := StyleSheet colorAt:'checkToggleCheckColor'.
-    DefaultFGColor := StyleSheet colorAt:'checkToggleForegroundColor'.
-    DefaultBGColor := StyleSheet colorAt:'checkToggleBackgroundColor'.
-    DefaultActiveFGColor := StyleSheet colorAt:'checkToggleActiveForegroundColor'.
-    DefaultActiveBGColor := StyleSheet colorAt:'checkToggleActiveBackgroundColor'.
-    DefaultActiveLevel := StyleSheet at:'checkToggleActiveLevel'.
-    DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'.
-    DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'.
-    LabelOverMargin := StyleSheet at:'checkToggleLabelOverMargin' 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:'checkToggleBitmapFile' default:'CheckOn.xbm'.
+    checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'.
     checkFileName notNil ifTrue:[
         DefaultCheckForm := Image fromFile:checkFileName 
                                 resolution:100
@@ -396,7 +398,7 @@
         ]
     ].
     DefaultCheckForm isNil ifTrue:[
-        checkStyle := StyleSheet at:'checkToggleStyle' default:#check.
+        checkStyle := StyleSheet at:'checkToggle.style' default:#check.
         DefaultCheckForm := self checkImageForStyle:checkStyle
     ]
 
@@ -404,7 +406,7 @@
      self updateStyleCache
     "
 
-    "Modified: 7.3.1997 / 21:15:13 / cg"
+    "Modified: 20.10.1997 / 13:53:33 / cg"
 ! !
 
 !CheckToggle methodsFor:'initialization'!
@@ -513,5 +515,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.38 1997-09-08 18:32:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.39 1997-10-21 18:27:22 cg Exp $'
 ! !