Changeset 288 for trunk/odf.tcl


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

# on 2000/10/02 16:52:08, toby did:
make phase buttons/title like on phase page

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/odf.tcl

    • Property rcs:date changed from 2000/09/25 20:08:45 to 2000/10/02 16:52:08
    • Property rcs:lines changed from +12 -1 to +3 -2
    • Property rcs:rev changed from 1.2 to 1.3
    r283 r288  
    133133    pack [label $expgui(odfFrameTop).ps.0 -text "No Phases"] -side left
    134134   
    135     grid [label $expgui(odfFrameTop).lA -text "  Phase name:" \
     135    grid [label $expgui(odfFrameTop).lA -text " title:" \
    136136            -fg blue ] -column 1 -row 0 -sticky e
    137137    grid columnconfig $expgui(odfFrameTop) 1 -weight 1
    … …  
    251251    global expgui expmap
    252252    eval destroy [winfo children $expgui(odfFrameTop).ps]
     253    pack [label $expgui(odfFrameTop).ps.0 -text Phase:] -side left
    253254    foreach num $expmap(phaselist) type $expmap(phasetype) {
    254255        pack [button $expgui(odfFrameTop).ps.$num -text $num \
    255                 -command "SelectODFPhase $num"] -side left
     256                -command "SelectODFPhase $num" -padx 1.5m] -side left
    256257        if {$type > 3} {
    257258            $expgui(odfFrameTop).ps.$num config -state disabled
Note: See TracChangeset for help on using the changeset viewer.