Changeset 1204 for branches/sandbox/expgui

Timestamp:

Jun 28, 2012 4:24:53 PM (9 years ago)

Author:

toby

Message:

f' & f" editor; import z-mat change is unclear

File:

• branches/sandbox/expgui (modified) (7 diffs)

branches/sandbox/expgui

@@ -159 +159 @@
 source [file join $expgui(scriptdir) disagledit.tcl]
 source [file join $expgui(scriptdir) Geo_Viewer.tcl]
+# setup Anomalous Dispersion Coefficent Editor
+source [file join $expgui(scriptdir) anomal.tcl]
 #---------------------------------------------------------------------------
 # override options with locally defined values
@@ -1793 +1795 @@
             } else {
                 $c configure -state normal
-            }  
+            }
         }
     }
@@ -1815 +1817 @@
         set expgui(backtermlbl) ""
         set expgui(backtypelbl) ""
-        set expgui(abstypelbl) "" 
+        set expgui(abstypelbl) ""
         foreach var {bref bdamp absref absdamp} {
             set entrycmd($var) ""
@@ -1821 +1823 @@
         }
         $expgui(histFrame).top.txt config -text "No Selected Histograms"
-        grid $expgui(histFrame).top -column 1 -row 0 -sticky nsew       
+        grid $expgui(histFrame).top -column 1 -row 0 -sticky nsew
         set expgui(bkglbl) ""
         set expgui(abslbl) ""
@@ -1832 +1834 @@
         set expgui(backtermlbl) ""
         set expgui(backtypelbl) ""
-        set expgui(abstypelbl) "" 
+        set expgui(abstypelbl) ""
         foreach var {bref bdamp absref absdamp} {
             set entrycmd($var) "histinfo [list $histlist] $var"
             set entryvar($var) [histinfo [lindex $histlist 0] $var]
         }
+        $expgui(histFrame).bb.anom config -state disabled
     } else {
         set hist $histlist
@@ -1869 +1872 @@
             set expgui(abstypelbl) "  Model #$abstype, value: [histinfo $hist abscor1]"
         }
+        $expgui(histFrame).bb.anom config -state normal
     }
     # Top box
@@ -3893 +3897 @@
             -command SetHistUseFlags
     grid $expgui(histFrame).bb.use -column 2 -row 1
+    button $expgui(histFrame).bb.anom -text "Edit\n\u0394f' and \u0394f\""\
+            -command Edit_Anomalous
+    grid $expgui(histFrame).bb.anom -column 3 -row 1
 
     # BACKGROUND information.