confirmBox icon (windows only)
authorClaus Gittinger <cg@exept.de>
Thu, 15 Nov 2001 22:02:50 +0100
changeset 2466 d974e1316521
parent 2465 93e3c4c70c03
child 2467 82d16b9ea94d
confirmBox icon (windows only)
DialogBox.st
--- a/DialogBox.st	Thu Nov 15 22:01:49 2001 +0100
+++ b/DialogBox.st	Thu Nov 15 22:02:50 2001 +0100
@@ -1488,7 +1488,7 @@
     box := OptionBox title:aString numberOfOptions:buttonLabels size. 
     box buttonTitles:buttonLabels
              actions:(buttonValues collect:[:v | [answer := v]]).
-
+    box form:(YesNoBox iconBitmap).
     default notNil ifTrue:[box defaultButtonIndex:default].
     box label:(boxLabelOrNil ? (self classResources string:'confirm')).
     self showAndThenDestroyBox:box.
@@ -1507,7 +1507,7 @@
     "
 
     "Created: / 18.10.1996 / 14:50:51 / cg"
-    "Modified: / 21.10.1998 / 17:14:14 / cg"
+    "Modified: / 15.11.2001 / 21:57:15 / cg"
 ! !
 
 !DialogBox class methodsFor:'defaults'!
@@ -7165,6 +7165,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.175 2001-11-08 09:09:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.176 2001-11-15 21:02:50 cg Exp $'
 ! !
 DialogBox initialize!