--- a/ModalBox.st	Sat Sep 18 00:20:33 2004 +0200
+++ b/ModalBox.st	Mon Sep 20 10:52:39 2004 +0200
@@ -313,7 +313,9 @@
 
     super initialize.
 
-    self beDialogView. 
+    "/ self beDialogView. 
+    self beToolDialog.
+
     exclusiveKeyboard := false.
 "/    label := ' '.
 
@@ -541,10 +543,10 @@
     "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:[
-        ^ #dialog
+    UseTransientViews ifFalse:[
+        ^ #popUp
     ].
-    ^ #popUp
+    ^ super windowStyle
 
     "Created: 2.5.1997 / 14:34:17 / cg"
     "Modified: 24.7.1997 / 15:22:39 / cg"
@@ -911,7 +913,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.88 2004-07-03 17:12:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.89 2004-09-20 08:52:39 ca Exp $'
 ! !
 
 ModalBox initialize!