Changeset 1152 for branches/sandbox/expgui
- Timestamp:
- Jul 6, 2011 5:23:09 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/expgui
r1150 r1152 1811 1811 set expgui(backtermlbl) "" 1812 1812 set expgui(backtypelbl) "" 1813 set expgui(abstypelbl) "" 1813 1814 foreach var {bref bdamp absref absdamp} { 1814 1815 set entrycmd($var) "" … … 1827 1828 set expgui(backtermlbl) "" 1828 1829 set expgui(backtypelbl) "" 1830 set expgui(abstypelbl) "" 1829 1831 foreach var {bref bdamp absref absdamp} { 1830 1832 set entrycmd($var) "histinfo [list $histlist] $var" … … 1856 1858 set entrycmd($var) "histinfo $hist $var" 1857 1859 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]" 1858 1866 } 1859 1867 } … … 3262 3270 RecordMacroEntry "incr expgui(changed)" 0 3263 3271 destroy $top 3272 DisplayHistogram 3264 3273 } 3265 3274 … … 3906 3915 -row 2 -column 4 -sticky news -padx 4 -pady 3 -sticky e 3907 3916 # 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 3908 3921 grid [label $expgui(absBox).rf1 -text " Refine Abs./Refl." ] \ 3909 -row 2 -column 1 -sticky news -padx 4-pady 33922 -row 2 -column 1 -sticky news -padx 2 -pady 3 3910 3923 grid [checkbutton $expgui(absBox).rf2 -text "" \ 3911 3924 -variable entryvar(absref) ] \ … … 3915 3928 tk_optionMenu $expgui(absBox).d2 entryvar(absdamp) 0 1 2 3 4 5 6 7 8 9 3916 3929 grid $expgui(absBox).d2 \ 3917 3930 -row 2 -column 4 -sticky news -padx 4 -pady 3 -sticky e 3918 3931 grid [button $expgui(absBox).edit -textvariable expgui(abslbl) \ 3919 -command editabsorption] \3920 -row 2 -column 5 -stickyw -padx 2 -pady 33932 -command editabsorption] \ 3933 -row 2 -column 5 -sticky nsw -padx 2 -pady 3 3921 3934 3922 3935 #^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^END OF HISTOGRAM PANE CODE ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
Note: See TracChangeset
for help on using the changeset viewer.