# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1536856629 -7200
# Node ID 27333e3928e5d4d67c0b8719f25d7698fcec1f38
# Parent  5bc480285a067800059ec0638a02c64b22debddc
#FEATURE by cg
class: DialogBox class
changed: #withAdditionalOKButtonLabeled:action:do:

diff -r 5bc480285a06 -r 27333e3928e5 DialogBox.st
--- 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