Image.st
changeset 7966 52449eb9f442
parent 7962 9867dcc19191
child 7967 fa34f3731d4e
--- a/Image.st	Sun Mar 05 11:42:57 2017 +0100
+++ b/Image.st	Sun Mar 05 11:43:46 2017 +0100
@@ -2335,20 +2335,26 @@
               it may not work from within a buttonMotion
               (use #fromScreen:on:grab: with a false grabArg then)."
 
-    |display|
+    |display bounds|
 
     display := Screen current.
-    ^ self
-        fromScreen:(0@0 corner:(display width @ display height))
-        on:display
-        grab:true
+    bounds := (0@0 corner:(display width @ display height)).
+    
+    OperatingSystem isOSXlike ifTrue:[
+        "/ sigh: XQuartz does not include the dock
+        display == Display ifTrue:[
+            bounds := OperatingSystem screenBounds:0
+        ].    
+    ].
+    
+    ^ self fromScreen:bounds on:display grab:true
 
     "
      Image fromScreen
      Image fromScreen inspect
     "
 
-    "Modified: 26.3.1997 / 10:44:55 / cg"
+    "Modified: / 05-03-2017 / 11:35:34 / cg"
 !
 
 fromScreen:aRectangle