--- a/DeviceWorkstation.st	Tue Jan 11 18:05:04 2005 +0100
+++ b/DeviceWorkstation.st	Wed Jan 12 11:28:00 2005 +0100
@@ -1283,6 +1283,18 @@
     ^ nil
 !
 
+getSystemColor:aKey
+    "retrieve a windows system color.
+     The styleSheet/View classes may use this to setup default colors."
+
+    ^ nil
+
+    "
+     Display getSystemColor:#COLOR_WINDOW
+     Display getSystemColor:#COLOR_HIGHLIGHT
+    "
+!
+
 id
     "return the displayId"
 
@@ -7470,7 +7482,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.484 2005-01-11 17:05:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.485 2005-01-12 10:28:00 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!