--- a/Toggle.st	Tue Feb 21 13:17:30 2006 +0100
+++ b/Toggle.st	Wed Feb 22 15:59:33 2006 +0100
@@ -458,6 +458,16 @@
 initStyle
     "setup viewStyle specifics"
 
+    <resource: #style (#'toggle.lampWidthMM' 
+                       #'toggle.lampHeightMM'
+                       #'toggle.activeLevel'
+                       #'toggle.passiveLevel'
+                       #'toggle.activeForegroundColor'
+                       #'toggle.activeBackgroundColor'
+                       #'toggle.foregroundColor'
+                       #'toggle.backgroundColor'
+                      )>
+
     |mm fg bg|
 
     super initStyle.
@@ -473,9 +483,9 @@
     ].
 
     lampColor := DefaultLampColor.
-    mm := StyleSheet at:#'toggle.lampWidthMM' default:1.5.
+    mm := styleSheet at:#'toggle.lampWidthMM' default:1.5.
     lampWidth := (device horizontalPixelPerMillimeter * mm) rounded.
-    mm := StyleSheet at:#'toggle.lampHeightMM' default:3.0.
+    mm := styleSheet at:#'toggle.lampHeightMM' default:3.0.
     lampHeight := (device verticalPixelPerMillimeter * mm) rounded.
 
     onLevel := styleSheet at:#'toggle.activeLevel' default:onLevel.
@@ -640,5 +650,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.51 2004-04-07 12:59:26 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.52 2006-02-22 14:59:33 cg Exp $'
 ! !