# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1459609791 -7200
# Node ID 4c5277a6856eddf3189d6c5a30524512df35b92c
# Parent  5ce074a3f531d19583bbde1a443c6e794a52f81f
device access

diff -r 5ce074a3f531 -r 4c5277a6856e CheckToggle.st
--- a/CheckToggle.st	Sat Apr 02 17:09:34 2016 +0200
+++ b/CheckToggle.st	Sat Apr 02 17:09:51 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 Toggle subclass:#CheckToggle
 	instanceVariableNames:'isFlat'
 	classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor
@@ -625,7 +627,7 @@
     |enabledBgColor graphicsDevice|
 
     super initStyle.
-    graphicsDevice := self graphicsDevice.
+    graphicsDevice := device.
 
     onLevel := offLevel.
     DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel].
@@ -784,7 +786,7 @@
 logoToDisplay                        
     |graphicsDevice|
 
-    graphicsDevice := self graphicsDevice.
+    graphicsDevice := device.
     controller enabled ifFalse:[       
         (controller pressed) ifTrue:[
             DefaultDisabledActiveImage notNil ifTrue:[
@@ -834,10 +836,10 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.73 2014-11-26 20:15:34 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.73 2014-11-26 20:15:34 cg Exp $'
+    ^ '$Header$'
 ! !