Changeset 418 for trunk/atomcons.tcl


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

# on 2001/09/04 22:07:47, toby did:
adjustable fonts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/atomcons.tcl

    • Property rcs:date changed from 2001/05/11 16:17:36 to 2001/09/04 22:07:47
    • Property rcs:lines changed from +4 -4 to +2 -3
    • Property rcs:rev changed from 1.10 to 1.11
    r389 r418  
    301301    #    grid $top.scroll -sticky ew -column 0 -row 2 -columnspan 4
    302302    # create a scrollable frame inside the canvas
    303     set cfr [frame $top.canvas.fr]
     303    set cfr [frame $top.canvas.fr -class Coord]
    304304    $top.canvas create window 0 0 -anchor nw  -window $cfr
    305305
     
    412412    set expcons(atomlistbox$ic) $cfr.lb$ic
    413413    grid [listbox $cfr.lb$ic -height 10 -width 12 \
    414             -font $expgui(coordfont) \
    415414            -exportselection 0 -selectmode extended \
    416415            -yscrollcommand " $cfr.sb$ic set"] \
Note: See TracChangeset for help on using the changeset viewer.