--- a/DialogBox.st	Thu Sep 13 10:26:57 2018 +0200
+++ b/DialogBox.st	Thu Sep 13 18:37:09 2018 +0200
@@ -6523,9 +6523,14 @@
         modifyingBoxWith:[:box |
             |b|
 
-            b := Button label:aString action:[action value. box okPressed].
-            box addButton:b after:nil.
-            box forceResize.
+            (box isKindOf:DialogBox) ifTrue:[
+                b := Button label:aString action:[action value. box okPressed].
+                box addButton:b after:nil.
+                box forceResize.
+            ] ifFalse:[
+                b := Button label:aString action:[action value. box application doAccept].
+                box application addButton:b.
+            ].    
         ] 
         do:boxOpeningBlock.
 
@@ -6539,6 +6544,7 @@
     "
 
     "Created: / 01-07-2018 / 09:38:09 / Claus Gittinger"
+    "Modified: / 13-09-2018 / 15:06:54 / Claus Gittinger"
 !
 
 withCheckBoxFor:checkModel labelled:checkLabel do:boxOpeningBlock