--- a/ModalBox.st	Wed Apr 01 10:07:47 2020 +0200
+++ b/ModalBox.st	Wed Apr 01 10:28:14 2020 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -388,9 +390,10 @@
     "return true, if I want to come up without decoration
      and popUp to top immediately."
 
-    ^ UseTransientViews not
+    ^ self windowStyle == #popUp
 
-    "Modified: 24.7.1997 / 15:20:14 / cg"
+    "Modified: / 24-07-1997 / 15:20:14 / cg"
+    "Modified: / 01-04-2020 / 10:25:11 / Stefan Vogel"
 !
 
 realize
@@ -565,13 +568,21 @@
     "return a symbol describing my style (one of: #dialog, #popUp or #normal)
      (may be used internally by the device as a decoration hint)"
 
-    UseTransientViews ifFalse:[
-	^ #popUp
+    |style|
+
+    style := super windowStyle.
+    (UseTransientViews not and:[style == #toolDialog]) ifTrue:[
+        ^ #popUp
     ].
-    ^ super windowStyle
+    ^ style
 
-    "Created: 2.5.1997 / 14:34:17 / cg"
-    "Modified: 24.7.1997 / 15:22:39 / cg"
+    "
+     self new windowStyle
+    "
+
+    "Created: / 02-05-1997 / 14:34:17 / cg"
+    "Modified: / 24-07-1997 / 15:22:39 / cg"
+    "Modified (comment): / 01-04-2020 / 10:13:49 / Stefan Vogel"
 ! !
 
 !ModalBox methodsFor:'show & hide'!