TopView.st
branchjv
changeset 8272 b99e94212cb5
parent 7694 79afd8c2c966
child 8420 76e39223f5ab
--- a/TopView.st	Mon Jan 08 10:01:06 2018 +0000
+++ b/TopView.st	Thu Jan 25 10:48:17 2018 +0000
@@ -1428,7 +1428,14 @@
         ]
     ].
     device isWindowsPlatform ifTrue:[
-        self raise
+        "/ raise the window but only if it's not 
+        "/ a #toolWindow, since #raiseWindowToTop:
+        "/ clears the HWND_TOPMOST flag.
+        "/
+        "/ HWND_TOPMOST is set in WinWorkstation>>createWindowFor:type:...
+        (self windowStyle == #toolWindow) ifFalse:[
+            self raise
+        ].
     ].
     false "self isScreenDialog" ifTrue:[
         self setForegroundWindow.
@@ -1439,6 +1446,7 @@
     ]
 
     "Modified: / 09-12-2010 / 18:13:20 / cg"
+    "Modified: / 25-01-2018 / 10:22:51 / jv"
 !
 
 masterSlaveMessage:aSelector inGroup:aWindowGroup
@@ -1495,6 +1503,11 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !