Changeset 1204

Timestamp:

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

Author:

toby

Message:

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

Location:

branches/sandbox

Files:

• anomal.tcl (added)
• expgui (modified) (7 diffs)
• rbimport_zmatrix.tcl (modified) (1 diff)

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.

branches/sandbox/rbimport_zmatrix.tcl

@@ -28 +28 @@
 
      grid [button $zmat.con.but -text "Load Z-Matrix" -width 22 -command "RB_Zmat $zmat.display"] -row 2 -column 1
-     grid [button $zmat.save.but2 -text "Convert to Cartesian \n Coordnates" -width 17 -command "RB_Zmat_Convert"] -row 2 -column 1 -padx 5
+     grid [button $zmat.save.but2 -text "Continue" -width 17 -command "RB_Zmat_Convert"] -row 2 -column 1 -padx 5
           $zmat.save.but2 config -state disable
      grid [button $zmat.save.but3 -text "Abort" -width 17 -command "destroy .zmatrix"] -row 2 -column 2 -padx 5 -sticky ns