--- a/DialogBox.st	Tue Feb 24 13:21:44 2004 +0100
+++ b/DialogBox.st	Tue Feb 24 15:09:49 2004 +0100
@@ -1652,7 +1652,7 @@
      The default argument (if non-nil) defines the index of the 
      return button (1 to n)"
 
-    |box answer|
+    |box answer i|
 
     box := OptionBox title:aString numberOfOptions:buttonLabels size. 
     box buttonTitles:buttonLabels
@@ -1660,6 +1660,12 @@
     box form:(YesNoBox iconBitmap).
     default notNil ifTrue:[box defaultButtonIndex:default].
     box label:(boxLabelOrNil ? (self classResources string:'Confirm')).
+    (i := buttonValues indexOf:true) ~~ 0 ifTrue:[
+        (box buttons at:i) cursor:(Cursor thumbsUp).
+    ].
+    (i := buttonValues indexOf:false) ~~ 0 ifTrue:[
+        (box buttons at:i) cursor:(Cursor thumbsDown).
+    ].
     self showAndThenDestroyBox:box.
     box actions:nil.
     ^ answer
@@ -7917,7 +7923,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.226 2003-12-17 11:58:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.227 2004-02-24 14:09:49 cg Exp $'
 ! !
 
 DialogBox initialize!