- Timestamp:
- Dec 4, 2009 5:10:56 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/liveplot_FoxExport.tcl
- Property rcs:date changed from 2003/05/22 21:35:52 to 2003/08/11 19:21:36
- Property rcs:rev changed from 1.1 to 1.2
- Property rcs:lines set to +15 -15
r692 r723 11 11 12 12 grid [frame $b.par -bd 2 -relief groove] \ 13 -row [incr row] -col 0 -columnspan 2 -sticky w13 -row [incr row] -column 0 -columnspan 2 -sticky w 14 14 grid [label $b.par.1 -text "Dataset name:"] \ 15 -row 0 -col 015 -row 0 -column 0 16 16 global plot expnam hst 17 17 set plot(projname) "$expnam H$hst" 18 18 grid [entry $b.par.2 -textvariable plot(projname) -width 25] \ 19 -row 0 -col 1 -columnspan 3 -sticky w19 -row 0 -column 1 -columnspan 3 -sticky w 20 20 if {[catch {set plot(lambda)}]} {set plot(lambda) 0} 21 21 grid [label $b.par.3 -text "wavelength:"] \ 22 -row 1 -col 022 -row 1 -column 0 23 23 grid [entry $b.par.4 -textvariable plot(lambda) -width 9] \ 24 -row 1 -col 1 -sticky w24 -row 1 -column 1 -sticky w 25 25 26 26 grid [label $b.par.5 -text "max:"] \ 27 -row 2 -col 027 -row 2 -column 0 28 28 if {[catch {set plot(sinthmax_type)}]} {set plot(sinthmax_type) 1} 29 29 if {[catch {set plot(sinthmax)}]} {set plot(sinthmax) 10} 30 30 grid [entry $b.par.6 -textvariable plot(sinthmax) -width 9] \ 31 -row 2 -col 1 -sticky w31 -row 2 -column 1 -sticky w 32 32 grid [radiobutton $b.par.7 -variable plot(sinthmax_type) \ 33 33 -text sin(th)/lam -value 1 \ 34 34 -command {set plot(sinthmax) [expr $plot(sinthmax)/6.28]} \ 35 ] -row 2 -col 235 ] -row 2 -column 2 36 36 grid [radiobutton $b.par.8 -variable plot(sinthmax_type) \ 37 37 -text Q -value 6.28\ 38 38 -command {set plot(sinthmax) [expr $plot(sinthmax)*6.28]} \ 39 ] -row 2 -col 339 ] -row 2 -column 3 40 40 grid [label $b.par.9 -text "# of Bkg points:"] \ 41 -row 3 -col 041 -row 3 -column 0 42 42 if {[catch {set plot(nbkg)}]} {set plot(nbkg) 20} 43 43 grid [entry $b.par.10 -textvariable plot(nbkg) -width 3] \ 44 -row 3 -col 1 -sticky w44 -row 3 -column 1 -sticky w 45 45 grid [frame $b.bot] \ 46 -row [incr row] -col 0 -columnspan 2 -sticky w46 -row [incr row] -column 0 -columnspan 2 -sticky w 47 47 grid columnconfig $b.bot 0 -weight 1 48 48 grid [label $b.bot.note -fg red -text ""] \ 49 -row 0 -col 0 -columnspan 349 -row 0 -column 0 -columnspan 3 50 50 grid [button $b.bot.b1 -text "Write" -command "MakeFoxfile $b"] \ 51 -row 1 -col 0 -sticky w51 -row 1 -column 0 -sticky w 52 52 grid [button $b.bot.b2 -text "Close" -command "destroy $b"] \ 53 -row 1 -col 1 -sticky w53 -row 1 -column 1 -sticky w 54 54 } 55 55
Note: See TracChangeset
for help on using the changeset viewer.