Subversion Repositories or1k

# mono.tcl - Dealing with monochrome.

# Copyright (C) 1997 Cygnus Solutions.

# Written by Tom Tromey <tromey@cygnus.com>.

# It is safe to run this any number of times, so it is ok to have it

# here.  Defined as true if the user wants monochrome display.

pref define global/monochrome 0

# Return 1 if monochrome, 0 otherwise.  This should be used to make

# the application experience more friendly for colorblind users as

# well as those stuck on mono displays.

proc monochrome_p {} {

  return [expr {[pref get global/monochrome] || [winfo depth .] == 1}]

}