mono.tcl

来自「windows下的GDB insight前端」· TCL 代码 · 共 15 行

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