--- a/DialogBox.st	Mon Apr 21 18:03:39 2008 +0200
+++ b/DialogBox.st	Tue Apr 22 12:53:11 2008 +0200
@@ -5756,6 +5756,10 @@
     ^ bindings at:anAspectSymbol ifAbsent:nil
 
     "Modified: / 11-10-2006 / 21:48:14 / cg"
+!
+
+cancel
+    ^ BlockValue forLogicalNot:(acceptValue)
 ! !
 
 !DialogBox methodsFor:'construction-adding'!
@@ -6137,12 +6141,35 @@
     "Modified: 3.6.1996 / 18:48:49 / cg"
 !
 
-addMessage:aString centered:centered
-    ^ self addTextLabel:aString
+addMessage:labelString centered:centered
+    ^ self addTextLabel:labelString
 
     "Created: / 4.2.2000 / 00:03:24 / cg"
 !
 
+addMessage:labelString textLine:valueHolder boundary:fraction
+    ^ self
+        addMessage:labelString 
+        textLine:valueHolder 
+        type:nil 
+        boundary:fraction
+!
+
+addMessage:labelString textLine:valueHolder type:typeSymbolOrNil boundary:fraction
+    |pos lbl field|
+
+    pos := self yPosition.
+    lbl := self addTextLabel:labelString.
+    lbl width:fraction.
+    self yPosition:pos.
+    field := self addInputFieldOn:valueHolder tabable:true.
+    field left:fraction; width:(1.0-fraction).
+    typeSymbolOrNil == #password ifTrue:[
+        field bePassword
+    ].
+    ^ field
+!
+
 addTextLabel:aString
     "create a text label - the name has been choosen for ST-80 compatibility;
      however, ST/X labels allow image labels too.
@@ -7109,6 +7136,12 @@
 
 !DialogBox methodsFor:'construction-layout'!
 
+addGap
+    "VW compatibility"
+
+    self addGap:4
+!
+
 addGap:pixels
     "VW compatibility"
 
@@ -8620,12 +8653,17 @@
     ] ifFalse:[
 	okAction value
     ]
+!
+
+openDialog
+    self showAtPointer.
+    ^ self accepted
 ! !
 
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.267 2008-03-31 16:15:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.268 2008-04-22 10:53:11 cg Exp $'
 ! !
 
 DialogBox initialize!