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