class: WinWorkstation
changed
#usableHeightAt:
#primCreateWindowFor:type:primCreateWindowFor:....
Bugfixes due to multi screen support
--- a/WinWorkstation.st Tue Aug 26 11:48:39 2014 +0200
+++ b/WinWorkstation.st Thu Aug 28 17:14:38 2014 +0200
@@ -7755,14 +7755,17 @@
|info fullHeight usableHeight delta|
true "(self numberOfMonitors) > 1" ifTrue:[
- "/ ******* MULTI SCREEN ******
- info := self monitorInfoFor:(self monitorHandleForPoint:aPoint).
- info notNil ifTrue:[
- fullHeight := self getSystemMetrics:#SM_CYVIRTUALSCREEN.
- usableHeight := self getSystemMetrics:#SM_CYFULLSCREEN. "/ without any start-menu bar
- delta := fullHeight - usableHeight.
- ^ info workHeight - delta
- ].
+ "/ ******* MULTI SCREEN ******
+ info := self monitorInfoFor:(self monitorHandleForPoint:aPoint).
+ info notNil ifTrue:[
+ ^ info workHeight
+
+ "/ only works with single screen..
+"/ fullHeight := self getSystemMetrics:#SM_CYVIRTUALSCREEN.
+"/ usableHeight := self getSystemMetrics:#SM_CYFULLSCREEN. "/ without any start-menu bar
+"/ delta := fullHeight - usableHeight.
+"/ ^ info workHeight - delta
+ ].
].
^ self usableHeight
@@ -8669,16 +8672,16 @@
lI->mouseX = lI->mouseY = -9999;
if (isTopWindow) {
-/****** MULTI SCREEN *********
+/****** MULTI SCREEN CATZKERN *********
if (rec.left < 0) {
rec.left = 0;
rec.right = w;
}
-****** MULTI SCREEN *********/
if (rec.top < 0) {
rec.top = 0;
rec.bottom = h;
}
+****** MULTI SCREEN CATZKERN *********/
lI->flag |= LI_TOPWIN;
} else {
@@ -19349,11 +19352,11 @@
!WinWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.484 2014-06-05 09:56:00 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.485 2014-08-28 15:14:38 ca Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.484 2014-06-05 09:56:00 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.485 2014-08-28 15:14:38 ca Exp $'
! !