--- a/OptionBox.st	Fri Feb 20 16:14:05 2004 +0100
+++ b/OptionBox.st	Fri Feb 20 17:43:55 2004 +0100
@@ -137,6 +137,14 @@
     box buttonTitles:labels.
     box defaultButtonIndex:(values indexOf:defaultValue). 
     box label:label; form:aForm.
+    values keysAndValuesDo:[:idx :val |
+        val == false ifTrue:[
+            (box buttons at:idx) cursor:(Cursor thumbsDown).
+        ].
+        val == true ifTrue:[
+            (box buttons at:idx) cursor:(Cursor thumbsUp).
+        ].
+    ].
     ^ box
 
     "Modified: / 23.2.2000 / 11:59:32 / cg"
@@ -561,5 +569,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.56 2003-03-21 09:41:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.57 2004-02-20 16:43:55 cg Exp $'
 ! !