Changeset 422 for trunk/odf.tcl


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

# on 2001/09/04 22:11:44, toby did:
adjustable fonts

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/odf.tcl

    • Property rcs:date changed from 2000/10/03 23:29:29 to 2001/09/04 22:11:44
    • Property rcs:lines changed from +7 -3 to +5 -3
    • Property rcs:rev changed from 1.4 to 1.5
    r304 r422  
    146146            -column 0 -row $row
    147147    foreach col {1 4 7} var {omega chi phi} lbl {w c f} {
    148         grid [label $angframe.l$var -text $lbl -font symbol] \
     148        grid [label $angframe.l$var -text $lbl] \
    149149                -column $col -row $row -padx 5 -sticky e
     150        set font [$angframe.l$var cget -font]
     151        $angframe.l$var config -font "Symbol [lrange $font 1 end]"
    150152        incr col
    151153        grid [checkbutton $angframe.r$var \
Note: See TracChangeset for help on using the changeset viewer.