--- a/CheckBox.st	Tue Feb 18 15:19:02 2014 +0100
+++ b/CheckBox.st	Tue Feb 18 15:26:23 2014 +0100
@@ -757,16 +757,19 @@
 initStyle
     "setup viewStyle specifics"
 
+    |graphicsDevice|
+
     super initStyle.
+    graphicsDevice := self graphicsDevice.
 
     DefaultLabelForegroundColor notNil ifTrue:[
-        labelForegroundColor := DefaultLabelForegroundColor onDevice:device.
+        labelForegroundColor := DefaultLabelForegroundColor onDevice:graphicsDevice.
     ].
     DefaultDisabledLabelForegroundColor notNil ifTrue:[
-        disabledLabelForegroundColor := DefaultDisabledLabelForegroundColor onDevice:device.
+        disabledLabelForegroundColor := DefaultDisabledLabelForegroundColor onDevice:graphicsDevice.
     ].
     DefaultDisabledLabelEtchedForegroundColor notNil ifTrue:[
-        disabledLabelEtchedForegroundColor := DefaultDisabledLabelEtchedForegroundColor onDevice:device.
+        disabledLabelEtchedForegroundColor := DefaultDisabledLabelEtchedForegroundColor onDevice:graphicsDevice.
     ].
 
     "Created: 14.12.1995 / 14:50:03 / cg"
@@ -933,10 +936,10 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.87 2013-10-09 10:12:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.88 2014-02-18 14:26:23 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.87 2013-10-09 10:12:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.88 2014-02-18 14:26:23 stefan Exp $'
 ! !