Index: library/prefs.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v
retrieving revision 1.25
diff -u -r1.25 prefs.tcl
--- library/prefs.tcl	13 Jun 2003 19:30:49 -0000	1.25
+++ library/prefs.tcl	2 Jul 2003 22:18:53 -0000
@@ -703,5 +703,7 @@
 
   # Change the default select color for checkbuttons, etc to match 
   # selectBackground.
-  option add *selectColor $Colors(sbg)
+  if {$::tcl_platform(platform) == "unix"}  {
+    option add *selectColor $Colors(sbg)
+  }
 }