--- a/TopView.st	Tue Mar 31 18:37:29 2020 +0200
+++ b/TopView.st	Wed Apr 01 10:07:47 2020 +0200
@@ -443,12 +443,14 @@
     "make me a Screen-Dialog Window; that is one which raises above ALL other windows
      (not only st/x ones)"
 
+    type isInteger ifTrue:[
+        type := (type bitClear:WindowTypeMask) bitOr:TypeScreenDialog.
+        ^ self.
+    ].
     "/ the nonInteger handling code is for backward compatibility only.
-    type isInteger ifTrue:[
-	type := (type bitClear:WindowTypeMask) bitOr:TypeScreenDialog.
-	^ self.
-    ].
-    type := #dialog
+    type := #screenDialog
+
+    "Modified (format): / 31-03-2020 / 19:02:01 / Stefan Vogel"
 !
 
 beSlave
@@ -1093,6 +1095,7 @@
         t := type bitAnd:WindowTypeMask.
         t == TypeUndecorated ifTrue:[^ #undecorated].
         t == TypeDialog ifTrue:[^ #dialog].
+        t == TypeScreenDialog ifTrue:[^ #screenDialog].
         t == TypePopUp ifTrue:[^ #popUp].
         t == TypeToolWindow ifTrue:[^ #toolWindow].
         t == TypeToolDialog ifTrue:[^ #toolDialog].
@@ -1102,6 +1105,8 @@
     ].
     "/ the nonInteger handling code is for backward compatibility only.
     ^ super windowStyle
+
+    "Modified: / 31-03-2020 / 14:57:41 / Stefan Vogel"
 ! !
 
 !TopView methodsFor:'show & hide'!