Changeset 17 for sans/utils/bt5


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/utils/bt5/prepare/prepare

    r13 r17  
    2020#             Mar  2004 Change packing of GUI to permit expansion of buf list 
    2121#                       Fix buffer copy bug - KOD 
     22#             May  2006 Change contents of I-Buffer list to show relevant 
     23#                       motors for BT5 - AJJ 
    2224set version {$Id: prepare.tcl,v 1.47 2005/08/11 19:55:25 nickm Exp $} 
    2325# set tcl_precision 12 
     
    865867    set start [expr int([lindex [$lbox yview] 0] * [$lbox index end])] 
    866868    $lbox delete 0 end 
    867     #$lbox configure -font fixed 
     869    $lbox configure -font {-family courier -size 12} 
    868870    for {set i 0} {$i < 30} {incr i} { 
    869871        $lbox insert end [IBufFormatRec $i] 
     
    882884proc IBufFormatRec { recno } { 
    883885    global ibuf 
    884     set output [format "%2d " [expr $recno + 1]] 
     886    set output [format "%-3d " [expr $recno + 1]] 
    885887    append output [binary format A20 $ibuf($recno,comment)] 
    886     append output [format " %6.2f "  $ibuf($recno,a4beg)] 
    887     append output [format "%6.2f "   $ibuf($recno,a4end)] 
    888     append output [format "%5.2f "   $ibuf($recno,a4inc)] 
     888    append output [format " %8.2f"  $ibuf($recno,a2beg)] 
     889    append output [format "%8.2f"   $ibuf($recno,a2end)] 
     890    append output [format "%8.2f"   $ibuf($recno,a2inc)] 
     891    append output [format "%8.2f"  $ibuf($recno,a5beg)] 
     892    append output [format "%8.2f"   $ibuf($recno,a5end)] 
     893    append output [format "%8.2f"   $ibuf($recno,a5inc)] 
    889894    append output [format "%2.0f\* " $ibuf($recno,mpf)] 
    890895    append output [format "%6.0f "   $ibuf($recno,mon)] 
    891896    append output [binary format A4  $ibuf($recno,mt)] 
    892     append output [format " %6.1f"   $ibuf($recno,t0)] 
    893     append output [format "%4.0f "   $ibuf($recno,th0)] 
     897    append output [format "%6.1f"   $ibuf($recno,t0)] 
     898    append output [format "%4.0f"   $ibuf($recno,th0)] 
    894899  
    895900    return $output 
     
    54295434        increment { 
    54305435            .l.title configure -text \ 
    5431                     "No Comment *I-Buffer*   A4-beg A4-end  Inc    Monitor        Temp Hold" 
     5436                    "#  Comment *I-Buf*         A2-beg  A2-end  A2-Inc  A5-beg  A5-end  A5-Inc Monitor         Temp  Hold"\ 
     5437                    -font {-family courier -size 11} 
    54325438            IBufReadFile ;# Make sure we get the latest data from disk 
    54335439            IBufList 
Note: See TracChangeset for help on using the changeset viewer.