--- a/ButtonController.st	Tue Mar 09 17:00:05 1999 +0100
+++ b/ButtonController.st	Tue Mar 09 17:00:51 1999 +0100
@@ -492,7 +492,15 @@
 enableStateChange
     "this is sent, whenever the enable value has changed"
 
-    view notNil ifTrue:[view invalidate "redraw"]
+    view notNil ifTrue:[
+        view invalidate "redraw".
+
+        enableChannel value ifTrue:[
+            view cursor:Cursor hand
+        ] ifFalse:[
+            view cursor:Cursor normal
+        ].
+    ]
 
     "Modified: 17.9.1995 / 19:55:52 / claus"
     "Modified: 17.4.1997 / 01:53:14 / cg"
@@ -702,5 +710,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.54 1999-02-15 12:39:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.55 1999-03-09 16:00:51 cg Exp $'
 ! !