--- a/ModalBox.st	Tue Oct 07 13:44:35 1997 +0200
+++ b/ModalBox.st	Tue Oct 07 16:28:09 1997 +0200
@@ -496,6 +496,14 @@
 
 !ModalBox methodsFor:'queries - internal'!
 
+windowLabelFor:labelString
+    "dialogs do not include the hostname in the window label"
+
+    ^ labelString
+
+    "Created: 22.9.1997 / 10:14:02 / cg"
+!
+
 windowStyle
     "return a symbol describing my style 
      (may be used internally by the device as a decoration hint)"
@@ -845,6 +853,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.58 1997-08-15 11:03:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.59 1997-10-07 14:28:09 cg Exp $'
 ! !
 ModalBox initialize!