--- a/ModalBox.st	Mon Jul 15 15:39:44 2019 +0200
+++ b/ModalBox.st	Tue Jul 16 15:06:06 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -152,6 +150,20 @@
     exclusiveKeyboard := aBoolean
 
     "Modified: 12.5.1996 / 21:55:09 / cg"
+!
+
+windowTitle
+    ^ super label
+
+    "Created: / 26-08-2018 / 17:03:56 / Claus Gittinger"
+!
+
+windowTitle:windowTitleString
+    "set the boxes window title string"
+
+    super label:windowTitleString.
+
+    "Created: / 26-08-2018 / 17:01:23 / Claus Gittinger"
 ! !
 
 !ModalBox methodsFor:'event handling'!