--- 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