StandardSystemView.st
branchjv
changeset 6872 5955d77d91ae
parent 6819 f91377f97414
parent 6871 68df321513d2
child 6915 7f3a3fe5b871
--- a/StandardSystemView.st	Thu May 14 18:14:35 2015 +0200
+++ b/StandardSystemView.st	Sat May 23 06:50:28 2015 +0200
@@ -1593,6 +1593,9 @@
         left := left max:(devBounds left).
     ].
 
+    dev isWindowsPlatform ifTrue:[
+        top := top + dev captionHeight.
+    ].
     org := (left @ top) rounded.
     lbl := self windowLabelFor:label.
 
@@ -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 / 21:09:35 / 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.233 2015-05-22 19:16:01 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.233 2015-05-22 19:16:01 cg Exp $'
 ! !