#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Tue, 23 Apr 2019 16:31:06 +0200
changeset 6573 a2a5d33886ab
parent 6572 9cec05d7dbff
child 6574 6c054f170606
#FEATURE by cg class: DialogBox added: #isDialogBox
DialogBox.st
--- a/DialogBox.st	Tue Apr 16 12:04:09 2019 +0200
+++ b/DialogBox.st	Tue Apr 23 16:31:06 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -10974,6 +10972,14 @@
     "Modified (comment): / 01-07-2018 / 09:47:37 / Claus Gittinger"
 ! !
 
+!DialogBox methodsFor:'testing'!
+
+isDialogBox
+    ^ true
+
+    "Created: / 23-04-2019 / 16:30:16 / Claus Gittinger"
+! !
+
 !DialogBox methodsFor:'user actions'!
 
 abortPressed