source: sans/utils/bt5/prepare/prepare-bt5.diff @ 142

Last change on this file since 142 was 142, checked in by ajj, 15 years ago

adding diff between official prepare and ours.

File size: 2.7 KB
Line 
123a24,25
2> #           May  2006 Change contents of I-Buffer list to show relevant
3> #                       motors for BT5 - AJJ
4294a297,298
5>           set config(mode) 0
6>           set config(motlbls) {Monochromator Analyzer  "Analyzer Table" "Detector Slide" Sample Unused}
7523a528,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 {
19530c545,546
20<         if $text_only {
21---
22>       }
23>        if $text_only {
24538c554
25<            grid $parent.a${i}beglabel -row $row -column 1
26---
27>            grid $parent.a${i}beglabel -row $row -column 1 -sticky e
28720a737,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>     }
39876c902
40<     global text_only
41---
42>     global text_only config
43881c907,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>     }
51897c927,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>
74908a958
75>     }
765452c5502
77<     global mode changed
78---
79>     global mode changed config
805454a5505,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 {
865456a5512
87>             }
Note: See TracBrowser for help on using the repository browser.