Changeset 1204 for branches/sandbox


Ignore:
Timestamp:
Jun 28, 2012 4:24:53 PM (8 years ago)
Author:
toby
Message:

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

Location:
branches/sandbox
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/expgui

    r1189 r1204  
    159159source [file join $expgui(scriptdir) disagledit.tcl]
    160160source [file join $expgui(scriptdir) Geo_Viewer.tcl]
     161# setup Anomalous Dispersion Coefficent Editor
     162source [file join $expgui(scriptdir) anomal.tcl]
    161163#---------------------------------------------------------------------------
    162164# override options with locally defined values
     
    17931795            } else {
    17941796                $c configure -state normal
    1795             } 
     1797            }
    17961798        }
    17971799    }
     
    18151817        set expgui(backtermlbl) ""
    18161818        set expgui(backtypelbl) ""
    1817         set expgui(abstypelbl) "" 
     1819        set expgui(abstypelbl) ""
    18181820        foreach var {bref bdamp absref absdamp} {
    18191821            set entrycmd($var) ""
     
    18211823        }
    18221824        $expgui(histFrame).top.txt config -text "No Selected Histograms"
    1823         grid $expgui(histFrame).top -column 1 -row 0 -sticky nsew       
     1825        grid $expgui(histFrame).top -column 1 -row 0 -sticky nsew
    18241826        set expgui(bkglbl) ""
    18251827        set expgui(abslbl) ""
     
    18321834        set expgui(backtermlbl) ""
    18331835        set expgui(backtypelbl) ""
    1834         set expgui(abstypelbl) "" 
     1836        set expgui(abstypelbl) ""
    18351837        foreach var {bref bdamp absref absdamp} {
    18361838            set entrycmd($var) "histinfo [list $histlist] $var"
    18371839            set entryvar($var) [histinfo [lindex $histlist 0] $var]
    18381840        }
     1841        $expgui(histFrame).bb.anom config -state disabled
    18391842    } else {
    18401843        set hist $histlist
     
    18691872            set expgui(abstypelbl) "  Model #$abstype, value: [histinfo $hist abscor1]"
    18701873        }
     1874        $expgui(histFrame).bb.anom config -state normal
    18711875    }
    18721876    # Top box
     
    38933897            -command SetHistUseFlags
    38943898    grid $expgui(histFrame).bb.use -column 2 -row 1
     3899    button $expgui(histFrame).bb.anom -text "Edit\n\u0394f' and \u0394f\""\
     3900            -command Edit_Anomalous
     3901    grid $expgui(histFrame).bb.anom -column 3 -row 1
    38953902
    38963903    # BACKGROUND information.
  • branches/sandbox/rbimport_zmatrix.tcl

    r1135 r1204  
    2828
    2929     grid [button $zmat.con.but -text "Load Z-Matrix" -width 22 -command "RB_Zmat $zmat.display"] -row 2 -column 1
    30      grid [button $zmat.save.but2 -text "Convert to Cartesian \n Coordnates" -width 17 -command "RB_Zmat_Convert"] -row 2 -column 1 -padx 5
     30     grid [button $zmat.save.but2 -text "Continue" -width 17 -command "RB_Zmat_Convert"] -row 2 -column 1 -padx 5
    3131          $zmat.save.but2 config -state disable
    3232     grid [button $zmat.save.but3 -text "Abort" -width 17 -command "destroy .zmatrix"] -row 2 -column 2 -padx 5 -sticky ns
Note: See TracChangeset for help on using the changeset viewer.