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

Diff of /gcl/gcl-tk/demos/mkStyles.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 26  proc mkStyles {{w .styles}} { Line 26  proc mkStyles {{w .styles}} {
26      $w.t tag configure bold -font -Adobe-Courier-Bold-O-Normal-*-120-*      $w.t tag configure bold -font -Adobe-Courier-Bold-O-Normal-*-120-*
27      $w.t tag configure big -font -Adobe-Courier-Bold-R-Normal-*-140-*      $w.t tag configure big -font -Adobe-Courier-Bold-R-Normal-*-140-*
28      $w.t tag configure verybig -font -Adobe-Helvetica-Bold-R-Normal-*-240-*      $w.t tag configure verybig -font -Adobe-Helvetica-Bold-R-Normal-*-240-*
29      if {[tk colormodel $w] == "color"} {      if {[winfo depth $w] > 1} {
30          $w.t tag configure color1 -background #eed5b7          $w.t tag configure color1 -background #eed5b7
31          $w.t tag configure color2 -foreground red          $w.t tag configure color2 -foreground red
32          $w.t tag configure raised -background #eed5b7 -relief raised \          $w.t tag configure raised -background #eed5b7 -relief raised \

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