# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1411376787 -7200
# Node ID ad1e51bf2c3beea9d007fade0c1693191050be21
# Parent  6751a32c66ecfeadfceecb02a31f31fe2b0eedd2
Added queryDefaultVisual which returns value of DefaultVisual().

Visual is required co create XRender/XftDraw contexts.

diff -r 6751a32c66ec -r ad1e51bf2c3b XWorkstation.st
--- a/XWorkstation.st	Mon Sep 22 11:03:58 2014 +0200
+++ b/XWorkstation.st	Mon Sep 22 11:06:27 2014 +0200
@@ -9254,6 +9254,27 @@
     "
 !
 
+queryDefaultVisual
+%{  /* NOCONTEXT */
+
+    if (ISCONNECTED) {
+        Display *dpy;
+        Visual *visual;
+
+        dpy = myDpy;
+        visual = DefaultVisualOfScreen(DefaultScreenOfDisplay(dpy));
+        RETURN ( __MKEXTERNALADDRESS( visual ) );
+    }
+%}.
+    ^ nil
+
+    "
+     Display queryDefaultVisual
+    "
+
+    "Created: / 22-09-2014 / 10:05:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 queryDefaultVisualType
 %{  /* NOCONTEXT */
 
@@ -13557,11 +13578,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.599 2014-09-22 09:03:58 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.600 2014-09-22 09:06:27 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.599 2014-09-22 09:03:58 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.600 2014-09-22 09:06:27 vrany Exp $'
 !
 
 version_SVN