class: WinWorkstation
authorca
Thu, 28 Aug 2014 17:14:38 +0200
changeset 6565 a3955bc42356
parent 6564 90112191cacb
child 6566 949689795584
child 6567 803364ec1f7d
class: WinWorkstation changed #usableHeightAt: #primCreateWindowFor:type:primCreateWindowFor:.... Bugfixes due to multi screen support
WinWorkstation.st
--- 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 $'
 ! !