--- a/ModalBox.st	Fri May 02 14:33:04 1997 +0200
+++ b/ModalBox.st	Fri May 02 14:36:12 1997 +0200
@@ -464,6 +464,18 @@
     "Modified: 19.7.1996 / 20:45:07 / cg"
 ! !
 
+!ModalBox methodsFor:'queries - internal'!
+
+windowStyle
+    "return a symbol describing my style 
+     (may be used internally by the device as a decoration hint)"
+
+    ^ #dialog
+
+    "Created: 2.5.1997 / 14:34:17 / cg"
+    "Modified: 2.5.1997 / 14:35:33 / cg"
+! !
+
 !ModalBox methodsFor:'show / hide'!
 
 autoHideAfter:seconds with:anAction
@@ -800,6 +812,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.54 1997-02-28 21:55:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.55 1997-05-02 12:36:12 cg Exp $'
 ! !
 ModalBox initialize!