Changeset 413 for trunk/addcmds.tcl


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

# on 2001/09/04 22:01:55, toby did:
adjust font

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2001/05/23 20:06:32 to 2001/09/04 22:01:55
    • Property rcs:lines changed from +29 -3 to +7 -3
    • Property rcs:rev changed from 1.20 to 1.21
    r394 r413  
    4040    set col -1
    4141    foreach i {a b g} {
    42         grid [label $np.f.l2$i -text $i -font symbol] -column [incr col] -row 2
     42        grid [label $np.f.l2$i -text $i] -column [incr col] -row 2
     43        set font [$np.f.l2$i cget -font]
     44        $np.f.l2$i config -font "Symbol [lrange $font 1 end]"
    4345        grid [entry $np.f.e2$i -width 12] -column [incr col]  -row 2
    4446        $np.f.e2$i insert 0 90.
     
    12961298    set col -1
    12971299    foreach i {a b g} var {alpha beta gamma} {
    1298         grid [label $top.f.l2$i -text $i -font symbol] -column [incr col] -row 2
     1300        grid [label $top.f.l2$i -text $i] -column [incr col] -row 2
     1301        set font [$top.f.l2$i cget -font]
     1302        $top.f.l2$i config -font "Symbol [lrange $font 1 end]"
    12991303        grid [entry $top.f.e2$i -width 12] -column [incr col]  -row 2
    13001304        $top.f.e2$i delete 0 end
Note: See TracChangeset for help on using the changeset viewer.