| 1 | 23a24,25 |
|---|
| 2 | > # May 2006 Change contents of I-Buffer list to show relevant |
|---|
| 3 | > # motors for BT5 - AJJ |
|---|
| 4 | 294a297,298 |
|---|
| 5 | > set config(mode) 0 |
|---|
| 6 | > set config(motlbls) {Monochromator Analyzer "Analyzer Table" "Detector Slide" Sample Unused} |
|---|
| 7 | 523a528,538 |
|---|
| 8 | > if { $config(nsta) == 5 } { |
|---|
| 9 | > set motname [lindex $config(motlbls) [expr $i-1]] |
|---|
| 10 | > label $parent.a${i}beglabel -text "$motname (A${i}) Beg:" |
|---|
| 11 | > entry $parent.a${i}beg -width $width -textvariable ibufdisp(a${i}beg) |
|---|
| 12 | > label $parent.a${i}inclabel -text "Inc:" |
|---|
| 13 | > entry $parent.a${i}inc -width $width -textvariable ibufdisp(a${i}inc) |
|---|
| 14 | > label $parent.a${i}endlabel -text "End:" |
|---|
| 15 | > entry $parent.a${i}end -width $width -textvariable ibufdisp(a${i}end) |
|---|
| 16 | > |
|---|
| 17 | > |
|---|
| 18 | > } else { |
|---|
| 19 | 530c545,546 |
|---|
| 20 | < if $text_only { |
|---|
| 21 | --- |
|---|
| 22 | > } |
|---|
| 23 | > if $text_only { |
|---|
| 24 | 538c554 |
|---|
| 25 | < grid $parent.a${i}beglabel -row $row -column 1 |
|---|
| 26 | --- |
|---|
| 27 | > grid $parent.a${i}beglabel -row $row -column 1 -sticky e |
|---|
| 28 | 720a737,746 |
|---|
| 29 | > if { $config(nsta) == 5} { |
|---|
| 30 | > foreach i {1 3 4 6} { |
|---|
| 31 | > foreach l "a${i}beglabel a${i}inclabel a${i}endlabel" { |
|---|
| 32 | > $parent.$l config -fg $color |
|---|
| 33 | > } |
|---|
| 34 | > foreach e "a${i}beg a${i}inc a${i}end" { |
|---|
| 35 | > $parent.$e config -state $state -fg $color |
|---|
| 36 | > } |
|---|
| 37 | > } |
|---|
| 38 | > } |
|---|
| 39 | 876c902 |
|---|
| 40 | < global text_only |
|---|
| 41 | --- |
|---|
| 42 | > global text_only config |
|---|
| 43 | 881c907,911 |
|---|
| 44 | < #$lbox configure -font fixed |
|---|
| 45 | --- |
|---|
| 46 | > if { $config(nsta) == 5} { |
|---|
| 47 | > $lbox configure -font {-family courier -size 12} |
|---|
| 48 | > } else { |
|---|
| 49 | > $lbox configure -font fixed |
|---|
| 50 | > } |
|---|
| 51 | 897c927,946 |
|---|
| 52 | < global ibuf |
|---|
| 53 | --- |
|---|
| 54 | > global ibuf config |
|---|
| 55 | > |
|---|
| 56 | > if { $config(nsta) == 5 } { |
|---|
| 57 | > |
|---|
| 58 | > set output [format "%-3d " [expr $recno + 1]] |
|---|
| 59 | > append output [binary format A20 $ibuf($recno,comment)] |
|---|
| 60 | > append output [format " %8.2f" $ibuf($recno,a2beg)] |
|---|
| 61 | > append output [format "%8.2f" $ibuf($recno,a2end)] |
|---|
| 62 | > append output [format "%8.2f" $ibuf($recno,a2inc)] |
|---|
| 63 | > append output [format "%8.2f" $ibuf($recno,a5beg)] |
|---|
| 64 | > append output [format "%8.2f" $ibuf($recno,a5end)] |
|---|
| 65 | > append output [format "%8.2f" $ibuf($recno,a5inc)] |
|---|
| 66 | > append output [format "%2.0f\* " $ibuf($recno,mpf)] |
|---|
| 67 | > append output [format "%6.0f " $ibuf($recno,mon)] |
|---|
| 68 | > append output [binary format A4 $ibuf($recno,mt)] |
|---|
| 69 | > append output [format "%6.1f" $ibuf($recno,t0)] |
|---|
| 70 | > append output [format "%4.0f" $ibuf($recno,th0)] |
|---|
| 71 | > |
|---|
| 72 | > } else { |
|---|
| 73 | > |
|---|
| 74 | 908a958 |
|---|
| 75 | > } |
|---|
| 76 | 5452c5502 |
|---|
| 77 | < global mode changed |
|---|
| 78 | --- |
|---|
| 79 | > global mode changed config |
|---|
| 80 | 5454a5505,5509 |
|---|
| 81 | > if { $config(nsta) == 5 } { |
|---|
| 82 | > .l.title configure -text \ |
|---|
| 83 | > "# Comment *I-Buf* A2-beg A2-end A2-Inc A5-beg A5-end A5-Inc Monitor Temp Hold"\ |
|---|
| 84 | > -font {-family courier -size 11} |
|---|
| 85 | > } else { |
|---|
| 86 | 5456a5512 |
|---|
| 87 | > } |
|---|
