Changeset 371


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

# on 2000/12/22 21:31:48, toby did:
show sample font sizes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lstview

    • Property rcs:date changed from 2000/05/17 16:30:57 to 2000/12/22 21:31:48
    • Property rcs:lines changed from +4 -4 to +9 -7
    • Property rcs:rev changed from 1.7 to 1.8
    r135 r371  
    399399
    400400if {$tcl_version >= 8.0} {
    401     .a.options.menu add cascade -label Font -menu .a.options.menu.font
    402     menu .a.options.menu.font
    403     foreach size {5 6 7 8 9 10 11 12 13 14 15 16} {
    404         .a.options.menu.font add command -label "Courier $size" \
    405                 -command "set txtvw(font) \"Courier $size\"; \
     401    pack [label .a.fontl -text "  Font:"] -side left
     402    set fontbut [tk_optionMenu .a.fontb txtvw(font) ""]
     403    pack .a.fontb -side left
     404    $fontbut delete 0 end
     405    foreach f {5 6 7 8 9 10 11 12 13 14 15 16} {
     406        $fontbut add command -label "Courier $f" -font "Courier $f"\
     407                -command "set txtvw(font) \"Courier $f\"; \
    406408                .txt config -font \$txtvw(font)"
    407409    }
Note: See TracChangeset for help on using the changeset viewer.