Changeset 425


Ignore:
Timestamp:
Dec 4, 2009 5:05:57 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/opts.tcl

    • Property rcs:date changed from 2001/09/04 22:06:41 to 2001/09/04 22:46:08
    • Property rcs:lines changed from +119 -85 to +10 -0
    • Property rcs:rev changed from 1.3 to 1.4
    r417 r425  
     1# $Id$
    12proc SetTkDefaultOptions {"basefont 14"} {
    23
     
    107108        if {$childtype == "FixedFont"} continue
    108109        set font [option get $child font $childtype]
     110        # handle BLT objects specially
     111        if {$childtype == "Graph"} {
     112            foreach w {legend  xaxis yaxis xaxis yaxis} \
     113                    o {-font -tickfont -tickfont -titlefont -titlefont} {
     114                catch {
     115                    $child $w configure $o $font
     116                }
     117            }
     118        }
    109119        if {$font != ""} {
    110120            catch {
Note: See TracChangeset for help on using the changeset viewer.