--- a/DialogBox.st	Tue Aug 26 08:09:24 2008 +0200
+++ b/DialogBox.st	Thu Sep 04 11:57:44 2008 +0200
@@ -1768,7 +1768,7 @@
      The default argument (if non-nil) defines the index of the 
      return button (1 to n)"
 
-    |box answer i|
+    |box buttons answer i|
 
     box := OptionBox title:aString numberOfOptions:buttonLabels size. 
     box buttonTitles:buttonLabels
@@ -1782,19 +1782,20 @@
         ].
     ].
     box label:(boxLabelOrNil ? (self classResources string:'Confirm')).
+    buttons := box buttons.
     (i := buttonValues indexOf:true) ~~ 0 ifTrue:[
-        i <= box buttons size ifTrue:[
-            (box buttons at:i) cursor:(Cursor thumbsUp).
+        i <= buttons size ifTrue:[
+            (buttons at:i) cursor:(Cursor thumbsUp).
         ]
     ].
     (i := buttonValues indexOf:false) ~~ 0 ifTrue:[
-        i <= box buttons size ifTrue:[
-            (box buttons at:i) cursor:(Cursor thumbsDown).
+        i <= buttons size ifTrue:[
+            (buttons at:i) cursor:(Cursor thumbsDown).
         ]
     ].
     (i := buttonValues indexOf:nil) ~~ 0 ifTrue:[
-        i <= box buttons size ifTrue:[
-            (box buttons at:i) cursor:(Cursor thumbsDown).
+        i <= buttons size ifTrue:[
+            (buttons at:i) cursor:(Cursor thumbsDown).
         ]
     ].
     self showAndThenDestroyBox:box.
@@ -8733,7 +8734,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.273 2008-06-09 14:24:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.274 2008-09-04 09:57:44 cg Exp $'
 ! !
 
 DialogBox initialize!