Changeset 17 for sans/utils/bt5/prepare

Timestamp:

Dec 12, 2006 4:29:47 PM (16 years ago)

Author:

ajj

Message:

Changes made to show BT5 relevant motors in buffer display

File:

• sans/utils/bt5/prepare/prepare (modified) (4 diffs)

sans/utils/bt5/prepare/prepare

@@ -20 +20 @@
 #             Mar  2004 Change packing of GUI to permit expansion of buf list
 #                       Fix buffer copy bug - KOD
+#             May  2006 Change contents of I-Buffer list to show relevant
+#                       motors for BT5 - AJJ
 set version {$Id: prepare.tcl,v 1.47 2005/08/11 19:55:25 nickm Exp $}
 # set tcl_precision 12
@@ -865 +867 @@
     set start [expr int([lindex [$lbox yview] 0] * [$lbox index end])]
     $lbox delete 0 end
-    #$lbox configure -font fixed
+    $lbox configure -font {-family courier -size 12}
     for {set i 0} {$i < 30} {incr i} {
         $lbox insert end [IBufFormatRec $i]
@@ -882 +884 @@
 proc IBufFormatRec { recno } {
     global ibuf
-    set output [format "%2d " [expr $recno + 1]]
+    set output [format "%-3d " [expr $recno + 1]]
     append output [binary format A20 $ibuf($recno,comment)]
-    append output [format " %6.2f "  $ibuf($recno,a4beg)]
-    append output [format "%6.2f "   $ibuf($recno,a4end)]
-    append output [format "%5.2f "   $ibuf($recno,a4inc)]
+    append output [format " %8.2f"  $ibuf($recno,a2beg)]
+    append output [format "%8.2f"   $ibuf($recno,a2end)]
+    append output [format "%8.2f"   $ibuf($recno,a2inc)]
+    append output [format "%8.2f"  $ibuf($recno,a5beg)]
+    append output [format "%8.2f"   $ibuf($recno,a5end)]
+    append output [format "%8.2f"   $ibuf($recno,a5inc)]
     append output [format "%2.0f\* " $ibuf($recno,mpf)]
     append output [format "%6.0f "   $ibuf($recno,mon)]
     append output [binary format A4  $ibuf($recno,mt)]
-    append output [format " %6.1f"   $ibuf($recno,t0)]
-    append output [format "%4.0f "   $ibuf($recno,th0)]
+    append output [format "%6.1f"   $ibuf($recno,t0)]
+    append output [format "%4.0f"   $ibuf($recno,th0)]
  
     return $output
@@ -5429 +5434 @@
         increment {
             .l.title configure -text \
-                    "No Comment *I-Buffer*   A4-beg A4-end  Inc    Monitor        Temp Hold"
+                    "#  Comment *I-Buf*         A2-beg  A2-end  A2-Inc  A5-beg  A5-end  A5-Inc Monitor         Temp  Hold"\
+                    -font {-family courier -size 11}
             IBufReadFile ;# Make sure we get the latest data from disk
             IBufList