XWorkstation.st
changeset 7229 30da116b864d
parent 7147 e914d0679641
child 7231 0550a616695c
child 7313 59b27278b119
--- a/XWorkstation.st	Thu Mar 24 20:06:49 2016 +0100
+++ b/XWorkstation.st	Thu Mar 24 20:10:33 2016 +0100
@@ -1645,6 +1645,14 @@
     "
 !
 
+supportedClipboards
+    "answer a collection of symbols with the supported clipboards.
+     X11 additionaly supports a buffer containing the currently selected text
+     (in xterm) - the PRIMARY selection"
+
+    ^ #(clipboard selection)
+!
+
 supportedImageFormats
     "return an array with supported image formats;
      each array entry is an attribute dictionary, consisting of
@@ -1758,6 +1766,36 @@
     "Created: / 4.5.1999 / 12:16:43 / cg"
 !
 
+supportsScreenReading
+    "return true, if the device allows reading the screen pixels
+     True returned here - X can do it"
+
+    "XQuartz seems to have a bug here...
+     ...but only on XQuartz servers.
+     Blame: cannot ask via server vendor, if its a Quartz display"
+    OperatingSystem isOSXlike ifTrue:[
+        ^ false
+    ].
+    ^ true
+
+    "
+     Display serverVendor
+     Display supportsScreenReading
+    "
+!
+
+supportsUTF8WindowLabels
+    "answer true, if window labels are to be utf-8 encoded"
+
+    ^ false
+!
+
+supportsVariableHeightFonts
+    "are fonts with variable height supported?"
+
+    ^ false
+!
+
 supportsViewBackgroundPixmap:aForm
     "return true, if the device allows the given pixmap as
      viewBackground.
@@ -10929,26 +10967,6 @@
     "
      Display isXineramaActive
     "
-!
-
-supportedClipboards
-    "answer a collection of symbols with the supported clipboards.
-     X11 additionaly supports a buffer containing the currently selected text
-     (in xterm) - the PRIMARY selection"
-
-    ^ #(clipboard selection)
-!
-
-supportsUTF8WindowLabels
-    "answer true, if window labels are to be utf-8 encoded"
-
-    ^ false
-!
-
-supportsVariableHeightFonts
-    "are fonts with variable height supported?"
-
-    ^ false
 ! !
 
 !XWorkstation methodsFor:'resources'!