--- a/ModalBox.st	Wed Sep 04 16:34:35 2002 +0200
+++ b/ModalBox.st	Wed Sep 04 19:35:55 2002 +0200
@@ -543,7 +543,7 @@
 !
 
 windowStyle
-    "return a symbol describing my style 
+    "return a symbol describing my style (one of: #dialog, #popUp or #normal)
      (may be used internally by the device as a decoration hint)"
 
     UseTransientViews ifTrue:[
@@ -911,6 +911,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.79 2002-07-11 13:48:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.80 2002-09-04 17:35:42 cg Exp $'
 ! !
 ModalBox initialize!

--- a/SimpleView.st	Wed Sep 04 16:34:35 2002 +0200
+++ b/SimpleView.st	Wed Sep 04 19:35:55 2002 +0200
@@ -7371,10 +7371,10 @@
 !
 
 windowStyle
-    "return a symbol describing my style"
+    "return a symbol describing my style (one of: #dialog, #popUp or #normal)"
 
     self isPopUpView ifTrue:[
-	^ #popUp
+        ^ #popUp
     ].
 
     ^ #normal
@@ -9339,6 +9339,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.453 2002-09-02 10:18:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.454 2002-09-04 17:35:55 cg Exp $'
 ! !
 SimpleView initialize!