Changeset 48

Timestamp:

Dec 4, 2009 4:59:31 PM (14 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:

• trunk/expgui (modified) (8 diffs, 3 props)

trunk/expgui

@@ -87 +87 @@
         set link [file readlink $expgui(script)]
         if { [file  pathtype  $link] == "absolute" } {
-h           set expgui(script) $link
+            set expgui(script) $link
         } {
             set expgui(script) [file dirname $expgui(script)]/$link
@@ -207 +207 @@
     SetupExtractHist
 
-    # update the histogram list
+    # update the histogram list & the page, if shown
     sethistlist
+
+    # update the atoms display
+#    DisplayAllAtoms noreset
+    SelectOnePhase $expgui(curPhase)
 
     # start checking for external changes
@@ -1834 +1838 @@
     }
     hapinfo $histlist $phase extmeth set $expgui(Fextract$phase)
+    incr expgui(changed)
     if {$expgui(Fextract$phase) != 0} {set entryvar(fobsextract) 1}
 }
@@ -1942 +1947 @@
         }
     }
-
     if {$expgui(temp) != ""} return
 
     if {$expgui(orig_backtype) != $expgui(backtype)} {
         histinfo $histlist backtype set $expgui(backtype)
+        incr expgui(changed)
     }
     if {$expgui(orig_backterms) != $expgui(backterms)} {
         histinfo $histlist backterms set $expgui(backterms)
+        incr expgui(changed)
     }
     for {set num 1 } { $num <= $expgui(backterms) } { incr num } {
@@ -1955 +1961 @@
         if {$expgui(orig_$var) != $expgui($var)} {
             histinfo $histlist $var set $expgui($var)
+            incr expgui(changed)
         }
     }
@@ -2095 +2102 @@
             if {$cmd == "histinfo"} {
                 histinfo $h $variable set $expgui(temp)
+                incr expgui(changed)
                 if $expgui(debug) {
                     puts "histinfo $h $variable set $expgui(temp)"
@@ -2100 +2108 @@
             } elseif {$cmd == "hapinfo"} {
                 hapinfo $h $phase $variable set $expgui(temp)
+                incr expgui(changed)
                 if $expgui(debug) {
                     puts "hapinfo $phase $h $variable set $expgui(temp)"
@@ -2214 +2223 @@
         if {$value != ""} {
             hapinfo $histlist $phaselist [lindex $item 0] set $value
+            incr expgui(changed)
             if $expgui(debug) {
                 puts "hapinfo [list $phaselist] [list $histlist] [lindex $item 0] set $value"