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