Changeset 425

Timestamp:

Dec 4, 2009 5:05:57 PM (13 years ago)

Author:

toby

Message:

# on 2001/09/04 22:46:08, toby did:
Do a better job with BLT graphs

File:

• trunk/opts.tcl (modified) (2 diffs, 3 props)

trunk/opts.tcl

@@ +1 @@
+# $Id$
 proc SetTkDefaultOptions {"basefont 14"} { 
 
@@ -107 +108 @@
         if {$childtype == "FixedFont"} continue
         set font [option get $child font $childtype]
+        # handle BLT objects specially
+        if {$childtype == "Graph"} {
+            foreach w {legend  xaxis yaxis xaxis yaxis} \
+                    o {-font -tickfont -tickfont -titlefont -titlefont} {
+                catch {
+                    $child $w configure $o $font
+                }
+            }
+        }
         if {$font != ""} {
             catch {