--- a/CheckBox.st	Sat Sep 04 16:33:16 1999 +0200
+++ b/CheckBox.st	Tue Sep 07 11:13:31 1999 +0200
@@ -319,17 +319,22 @@
 enabled:aBoolean
     "enable/diable the checkBox; forwarded to toggle & change labels color"
 
-    |clr|
+    |clr cursor|
 
     toggleView enabled:aBoolean.
 
     aBoolean ifTrue:[
         clr := labelForegroundColor.
         clr isNil ifTrue:[ clr := labelView foregroundColor ].
+        cursor := Cursor hand.
     ] ifFalse:[
         clr := disabledLabelForegroundColor.
         clr isNil ifTrue:[ clr := toggleView disabledForegroundColor ].
+        cursor := Cursor normal.
     ].
+    labelView cursor:cursor.
+    self cursor:cursor.
+    toggleView cursor:cursor.
     labelView foregroundColor:clr.
 
     "Modified: / 25.4.1996 / 16:31:40 / cg"
@@ -616,10 +621,15 @@
 
     toggleView enabled ifTrue:[
         clr := self labelForegroundColor.
+        cursor := Cursor hand.
     ] ifFalse:[
-        clr := self disabledLabelForegroundColor
+        clr := self disabledLabelForegroundColor.
+        cursor := Cursor normal.
     ].        
     labelView foregroundColor:clr.
+    labelView cursor:cursor.
+    self cursor:cursor.
+    toggleView cursor:cursor.
 
 ! !
 
@@ -831,5 +841,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.61 1999-08-18 15:12:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.62 1999-09-07 09:13:31 tm Exp $'
 ! !