--- a/DialogBox.st	Tue Jul 09 13:57:55 2002 +0200
+++ b/DialogBox.st	Tue Jul 09 14:01:38 2002 +0200
@@ -7194,9 +7194,15 @@
      If nonModal, stay up, but also evaluate the block."
 
     (windowGroup notNil and:[windowGroup isModal]) ifTrue:[
-	self hide.
+        self hide.
     ].
-    aBlock notNil ifTrue:[aBlock value]
+    aBlock notNil ifTrue:[
+        aBlock numArgs == 0 ifTrue:[
+            aBlock value
+        ] ifFalse:[
+            aBlock value:(self actionArgument)
+        ]
+    ]
 
     "Modified: 5.9.1995 / 19:06:33 / claus"
 !
@@ -7376,6 +7382,10 @@
     self hideAndEvaluate:abortAction
 !
 
+actionArgument
+    ^ nil
+!
+
 closeCancel
     "closed via escape"
 
@@ -7476,6 +7486,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.188 2002-03-08 14:30:06 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.189 2002-07-09 12:01:17 cg Exp $'
 ! !
 DialogBox initialize!