Changeset 866


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

# on 2006/02/22 00:23:25, toby did:
Plug GSAS on window head
Make histogram selection look like a button
fix bug in global setting of phase fractions/damping
make history not like a button
remove control-C exit from Windows version

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2005/09/07 21:32:23 to 2006/02/22 00:23:25
    • Property rcs:lines changed from +2 -2 to +13 -10
    • Property rcs:rev changed from 1.77 to 1.78
    r848 r866  
    384384    set expgui(last_History) [string range [string trim [lindex [exphistory last] 1]] 0 50 ]
    385385    # set the window/icon title
    386     wm title . "EXPGUI $expfile"
     386    wm title . "EXPGUI interface to GSAS: $expfile"
    387387    set expgui(titleunchanged) 1
    388388    wm iconname . [file tail $expfile]
     
    778778    if $expgui(titleunchanged) {
    779779        if {$expgui(changed) != 0} {
    780             wm title . "$expgui(expfile) (modified)"
     780            wm title . "EXPGUI interface to GSAS: $expgui(expfile) (modified)"
    781781            set expgui(titleunchanged) 0
    782782        }
     
    15571557    global expgui
    15581558    grid [label $frm.mode -text "Select a Histogram" \
    1559             -bg beige -anchor center] \
     1559            -bg beige -anchor center -bd 2 -relief raised] \
    15601560            -row 0 -column 0 -columnspan 2 -sticky ew
    15611561    bind $frm.mode <Button-1> {
     
    22802280                    [list $phasehistlist($i)] $i" \
    22812281                    ] -column 1 -row 0
     2282            set entrycmd(frref$i) "hapinfo [list $histlist] $i frref"
     2283            set entryvar(frref$i) [hapinfo $hist $i frref]
     2284            set entrycmd(frdamp$i) "hapinfo [list $histlist] $i frdamp"
    22822285        } else {
    22832286            grid [label $framePF.l1  -text "Phase $i"] \
     
    22862289                    -column 1 -row 0
    22872290            set entrybox(frac$i) $framePF.ent
     2291            set entrycmd(frref$i) "hapinfo $hist $i frref"
     2292            set entryvar(frref$i) [hapinfo $hist $i frref]
     2293            set entrycmd(frdamp$i) "hapinfo $hist $i frdamp"
    22882294        }
    22892295        set entrycmd(frac$i) "hapinfo $hist $i frac"
     
    22932299        grid [checkbutton $framePF.cb -variable entryvar(frref$i)] \
    22942300                -column 3 -row 0 -sticky nws
    2295         set entrycmd(frref$i) "hapinfo $hist $i frref"
    2296         set entryvar(frref$i) [hapinfo $hist $i frref]
    22972301        grid [label $framePF.l3  -text "  Damping"] \
    22982302                -column 4 -row 0 -sticky nws
    22992303        tk_optionMenu $framePF.tkOptDamp entryvar(frdamp$i) \
    23002304                0 1 2 3 4 5 6 7 8 9     
    2301         set entrycmd(frdamp$i) "hapinfo $hist $i frdamp"
    23022305        set entryvar(frdamp$i) [hapinfo $hist $i frdamp]
    23032306        grid $framePF.tkOptDamp -row 0 -sticky nsw -column 5
     
    38953898set row 0
    38963899grid [label $expgui(lsFrame).f1.his1 -pady 6 -text "Last History:"] -row $row -column 0
    3897 grid [label $expgui(lsFrame).f1.his2 -relief raised -bd 2 -pady 6 \
     3900grid [label $expgui(lsFrame).f1.his2 -relief groove -bd 2 -pady 6 \
    38983901        -textvariable expgui(last_History)] \
    38993902        -row $row -column 1 -columnspan 5 -sticky w
     
    42814284# handle indirect exits
    42824285wm protocol . WM_DELETE_WINDOW catchQuit
    4283 bind . <Control-c> catchQuit
     4286if {$tcl_platform(platform) != "windows"} {bind . <Control-c> catchQuit}
    42844287
    42854288set expgui(pagenow) ""
Note: See TracChangeset for help on using the changeset viewer.