--- a/XWorkstation.st	Sat Jan 31 12:41:41 2004 +0100
+++ b/XWorkstation.st	Mon Feb 02 11:31:24 2004 +0100
@@ -9054,6 +9054,14 @@
     ].
     aTwoArgBlock value:typeID value:val.
     ^ true
+
+    "
+     Display 
+        getProperty:#'_DESKTOP_COLORS'
+        from:nil
+        delete:false
+        into:[:a :b | self halt]
+    "
 !
 
 getTextProperty:propertyID from:aWindowID
@@ -11106,7 +11114,7 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.437 2004-01-30 17:20:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.438 2004-02-02 10:31:24 cg Exp $'
 ! !
 
 XWorkstation initialize!