# Xresource chapter
#
# Grey color set
# Slightly modified from Ron Frederick's NV grey family
#
source colormodel.tcl

proc GreyColors {} {
	if {[tk colormodel .] == "color"} {
		option add *activeBackground	white	startup
		option add *activeForeground	black	startup
		option add *selectColor		black	startup
		option add *background		#efefef	startup
		option add *foreground		black	startup
		option add *troughColor		#dfdfdf	startup
		option add *selectBackground	#bfdfff	startup
		option add *disabledForeground	#7f7f7f	startup
	}
}
proc GrayColors {} { GreyColors }
