Ignore:
Timestamp:
Jul 6, 2011 5:23:09 PM (10 years ago)
Author:
toby
Message:

a bit of cleanup

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/expgui

    r1150 r1152  
    18111811        set expgui(backtermlbl) ""
    18121812        set expgui(backtypelbl) ""
     1813        set expgui(abstypelbl) ""
    18131814        foreach var {bref bdamp absref absdamp} {
    18141815            set entrycmd($var) ""
     
    18271828        set expgui(backtermlbl) ""
    18281829        set expgui(backtypelbl) ""
     1830        set expgui(abstypelbl) ""
    18291831        foreach var {bref bdamp absref absdamp} {
    18301832            set entrycmd($var) "histinfo [list $histlist] $var"
     
    18561858            set entrycmd($var) "histinfo $hist $var"
    18571859            set entryvar($var) [eval $entrycmd($var)]
     1860        }
     1861        set abstype [histinfo $hist abstype]
     1862        if {$abstype > 1} {
     1863            set expgui(abstypelbl) "  Model #$abstype, values: [histinfo $hist abscor1], [histinfo $hist abscor2]"
     1864        } else {
     1865            set expgui(abstypelbl) "  Model #$abstype, value: [histinfo $hist abscor1]"
    18581866        }
    18591867    }
     
    32623270    RecordMacroEntry "incr expgui(changed)" 0
    32633271    destroy $top
     3272    DisplayHistogram
    32643273}
    32653274
     
    39063915            -row 2 -column 4 -sticky news -padx 4 -pady 3 -sticky e
    39073916    # Absorption information.
     3917    set expgui(abstypelbl) ""
     3918    grid [label $expgui(absBox).lbl1 \
     3919              -textvariable expgui(abstypelbl)] \
     3920            -row 1 -column 1 -columnspan 5 -sticky nws
    39083921    grid [label $expgui(absBox).rf1 -text "  Refine Abs./Refl." ] \
    3909             -row 2 -column 1 -sticky news -padx 4 -pady 3
     3922            -row 2 -column 1 -sticky news -padx 2 -pady 3
    39103923    grid [checkbutton $expgui(absBox).rf2 -text "" \
    39113924            -variable  entryvar(absref) ] \
     
    39153928    tk_optionMenu $expgui(absBox).d2  entryvar(absdamp) 0 1 2 3 4 5 6 7 8 9
    39163929    grid $expgui(absBox).d2 \
    3917             -row 2 -column 4 -sticky news -padx 4 -pady 3 -sticky e
     3930        -row 2 -column 4 -sticky news -padx 4 -pady 3 -sticky e
    39183931    grid [button $expgui(absBox).edit -textvariable expgui(abslbl) \
    3919             -command editabsorption] \
    3920             -row 2 -column 5 -sticky w -padx 2 -pady 3
     3932              -command editabsorption] \
     3933        -row 2 -column 5 -sticky nsw -padx 2 -pady 3
    39213934
    39223935    #^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^END OF HISTOGRAM PANE CODE ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
Note: See TracChangeset for help on using the changeset viewer.