--- 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$'
! !