--- 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 $'
! !