# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1363612057 -3600
# Node ID 688f086bfe9ee0631ec8bdf9206d14f959cd98cd
# Parent  b1652d6942cf97600d64274e3a8e19869bd18c5d
class: XWorkstation
changed: #usableHeightAt:
for osx, reserve some space at the bottom for the icon-panel

diff -r b1652d6942cf -r 688f086bfe9e XWorkstation.st
--- a/XWorkstation.st	Thu Mar 14 16:05:41 2013 +0100
+++ b/XWorkstation.st	Mon Mar 18 14:07:37 2013 +0100
@@ -1518,7 +1518,14 @@
      On multi-display systems with different sized screens, this should care for
      which display is at the given x-position"
 
-    ^ (self monitorBoundsAt:aPoint) height.
+    |h|
+
+    h := (self monitorBoundsAt:aPoint) height.
+    OperatingSystem isOSXlike ifTrue:[
+        "/ take away some space for the icon-panel at the bottom.
+        ^ h - 50
+    ].
+    ^ h
 
     "
      Screen current usableHeightAt:(0@0)
@@ -12785,11 +12792,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.561 2013-02-13 20:57:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.562 2013-03-18 13:07:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.561 2013-02-13 20:57:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.562 2013-03-18 13:07:37 cg Exp $'
 !
 
 version_SVN