/[gcl]/gcl/gcl-tk/demos/mkItems.tcl
ViewVC logotype

Diff of /gcl/gcl-tk/demos/mkItems.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:01 1999 UTC revision 1.2 by camm, Sun May 1 20:17:31 2005 UTC
# Line 44  proc mkItems {{w .citems}} { Line 44  proc mkItems {{w .citems}} {
44    
45      set font1 -Adobe-Helvetica-Medium-R-Normal--*-120-*      set font1 -Adobe-Helvetica-Medium-R-Normal--*-120-*
46      set font2 -Adobe-Helvetica-Bold-R-Normal--*-240-*      set font2 -Adobe-Helvetica-Bold-R-Normal--*-240-*
47      if {[tk colormodel $c] == "color"} {      if {[winfo depth $c] > 1} {
48          set blue DeepSkyBlue3          set blue DeepSkyBlue3
49          set red red          set red red
50          set bisque bisque3          set bisque bisque3
# Line 165  proc mkItems {{w .citems}} { Line 165  proc mkItems {{w .citems}} {
165  proc itemEnter {c} {  proc itemEnter {c} {
166      global restoreCmd      global restoreCmd
167    
168      if {[tk colormodel $c] != "color"} {      if {[winfo depth $c] <= 1} {
169          set restoreCmd {}          set restoreCmd {}
170          return          return
171      }      }

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26