# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1105525680 -3600
# Node ID 7a05bfd1826ff27661f5342ef14b2a7ed2f41287
# Parent  b4bd7fae96bbea209f43bf7f6595e090d9ae9698
*** empty log message ***

diff -r b4bd7fae96bb -r 7a05bfd1826f DeviceWorkstation.st
--- 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!