--- a/DialogBox.st	Thu Dec 07 23:09:55 1995 +0100
+++ b/DialogBox.st	Thu Dec 07 23:15:09 1995 +0100
@@ -828,25 +828,28 @@
 
     box := EnterBox title:aString.
     box initialText:initial.
+    box abortAction:[:val | ^ nil].
     resultAction isNil ifTrue:[
-	box action:[:val | ^ val]
+        box action:[:val | ^ val]
     ] ifFalse:[
-	box action:[:val | ^ resultAction value:val]
+        box action:[:val | ^ resultAction value:val]
     ].
     aPoint notNil ifTrue:[
-	box showAt:aPoint
+        box showAt:aPoint
     ] ifFalse:[
-	box showAtPointer
+        box showAtPointer
     ].
     ^ ''  "/ used to be nil - but that is incompatible to ST-80
 
     "
      Dialog request:'enter a string:'
-	      displayAt:0@0
-	       centered:true
-		 action:[:result | result printNewline]
-	  initialAnswer:'the default'
+              displayAt:0@0
+               centered:true
+                 action:[:result | result printNewline]
+          initialAnswer:'the default'
     "
+
+    "Created: 7.12.1995 / 23:14:10 / cg"
 !
 
 request:aString displayAt:aPoint initialAnswer:initial
@@ -1937,5 +1940,5 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.30 1995-12-07 22:09:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.31 1995-12-07 22:15:09 cg Exp $'
 ! !