# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1084293717 -7200
# Node ID d66d46e04cd4cdcfed04972fd061a7985fee8055
# Parent  7a54d308f3ac730b55aacfd00a403ed845275abd
Use #image:/#label: instead of obsolete #form:

diff -r 7a54d308f3ac -r d66d46e04cd4 DialogBox.st
--- a/DialogBox.st	Tue May 11 18:41:07 2004 +0200
+++ b/DialogBox.st	Tue May 11 18:41:57 2004 +0200
@@ -1657,7 +1657,7 @@
     box := OptionBox title:aString numberOfOptions:buttonLabels size. 
     box buttonTitles:buttonLabels
              actions:(buttonValues collect:[:v | [answer := v]]).
-    box form:(YesNoBox iconBitmap).
+    box image:(YesNoBox iconBitmap).
     default notNil ifTrue:[box defaultButtonIndex:default].
     box label:(boxLabelOrNil ? (self classResources string:'Confirm')).
     (i := buttonValues indexOf:true) ~~ 0 ifTrue:[
@@ -7961,7 +7961,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.229 2004-04-14 13:37:31 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.230 2004-05-11 16:41:57 stefan Exp $'
 ! !
 
 DialogBox initialize!