Changeset 48


Ignore:
Timestamp:
Dec 4, 2009 4:59:31 PM (11 years ago)
Author:
toby
Message:

# on 1999/02/02 17:26:27, toby did:
fix typo in 1.8
update phase page on reload
make sure that all set commands trigger the expgui(changed) flag

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 1999/01/20 19:29:10 to 1999/02/02 17:26:27
    • Property rcs:lines changed from +46 -28 to +14 -4
    • Property rcs:rev changed from 1.8 to 1.9
    r30 r48  
    8787        set link [file readlink $expgui(script)]
    8888        if { [file  pathtype  $link] == "absolute" } {
    89 h           set expgui(script) $link
     89            set expgui(script) $link
    9090        } {
    9191            set expgui(script) [file dirname $expgui(script)]/$link
     
    207207    SetupExtractHist
    208208
    209     # update the histogram list
     209    # update the histogram list & the page, if shown
    210210    sethistlist
     211
     212    # update the atoms display
     213#    DisplayAllAtoms noreset
     214    SelectOnePhase $expgui(curPhase)
    211215
    212216    # start checking for external changes
     
    18341838    }
    18351839    hapinfo $histlist $phase extmeth set $expgui(Fextract$phase)
     1840    incr expgui(changed)
    18361841    if {$expgui(Fextract$phase) != 0} {set entryvar(fobsextract) 1}
    18371842}
     
    19421947        }
    19431948    }
    1944 
    19451949    if {$expgui(temp) != ""} return
    19461950
    19471951    if {$expgui(orig_backtype) != $expgui(backtype)} {
    19481952        histinfo $histlist backtype set $expgui(backtype)
     1953        incr expgui(changed)
    19491954    }
    19501955    if {$expgui(orig_backterms) != $expgui(backterms)} {
    19511956        histinfo $histlist backterms set $expgui(backterms)
     1957        incr expgui(changed)
    19521958    }
    19531959    for {set num 1 } { $num <= $expgui(backterms) } { incr num } {
     
    19551961        if {$expgui(orig_$var) != $expgui($var)} {
    19561962            histinfo $histlist $var set $expgui($var)
     1963            incr expgui(changed)
    19571964        }
    19581965    }
     
    20952102            if {$cmd == "histinfo"} {
    20962103                histinfo $h $variable set $expgui(temp)
     2104                incr expgui(changed)
    20972105                if $expgui(debug) {
    20982106                    puts "histinfo $h $variable set $expgui(temp)"
     
    21002108            } elseif {$cmd == "hapinfo"} {
    21012109                hapinfo $h $phase $variable set $expgui(temp)
     2110                incr expgui(changed)
    21022111                if $expgui(debug) {
    21032112                    puts "hapinfo $phase $h $variable set $expgui(temp)"
     
    22142223        if {$value != ""} {
    22152224            hapinfo $histlist $phaselist [lindex $item 0] set $value
     2225            incr expgui(changed)
    22162226            if $expgui(debug) {
    22172227                puts "hapinfo [list $phaselist] [list $histlist] [lindex $item 0] set $value"
Note: See TracChangeset for help on using the changeset viewer.