StandardSystemView.st
changeset 6870 9809bd505ea7
parent 6794 d23983b0f222
child 6871 68df321513d2
--- a/StandardSystemView.st	Tue May 12 17:57:45 2015 +0200
+++ b/StandardSystemView.st	Fri May 22 13:01:41 2015 +0200
@@ -1576,6 +1576,9 @@
     |dev lbl iconValue icn icnMask windowClassNameString org devBounds windowNameString|
 
     dev := self device.
+    dev isWindowsPlatform ifTrue:[
+        top := top + dev captionHeight.
+    ].
 
     UserPreferences current forceWindowsIntoMonitorBounds ifTrue:[
         "/ MULTI SCREEN support
@@ -1694,8 +1697,8 @@
     self windowClass:windowClassNameString name:windowNameString.
 
     "Modified: / 14-06-1996 / 17:14:25 / stefan"
-    "Modified: / 22-10-2010 / 11:01:35 / cg"
     "Modified: / 04-01-2013 / 16:13:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-05-2015 / 13:00:49 / cg"
 !
 
 postRealize
@@ -1751,11 +1754,11 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.231 2015-02-27 13:33:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.232 2015-05-22 11:01:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.231 2015-02-27 13:33:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.232 2015-05-22 11:01:41 cg Exp $'
 ! !