mono.tcl

This Source-Navigator, an IDE for C/C++/Fortran/Java/Tcl/PHP/Python and a host of other languages.

# mono.tcl - Dealing with monochrome.
# Copyright (C) 1997 Cygnus Solutions.
# Written by Tom Tromey <[e-mail]>.

# 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}]
}