Changeset 490


Ignore:
Timestamp:
Dec 4, 2009 5:07:02 PM (11 years ago)
Author:
toby
Message:

# on 2001/11/19 19:50:58, toby did:
include Rfactors on file lookup

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2001/11/07 18:22:57 to 2001/11/19 19:50:58
    • Property rcs:lines changed from +27 -12 to +67 -1
    • Property rcs:rev changed from 1.41 to 1.42
    r485 r490  
    18411841                -variable expgui(includearchived) \
    18421842                -command "ChooseExpFil $frmA"] -side top -pady 10
     1843        set expgui(FileInfoBox) $frmC.info 
     1844        pack [frame $expgui(FileInfoBox) -bd 4 -relief groove \
     1845                -class SmallFont] \
     1846                -side top -fill both -expand yes -pady 5
    18431847    }
    18441848    pack [button $frmC.b -text Read \
     
    21752179    } else {
    21762180        set expgui(FileMenuEXPNAM) [string trim [$files get $select]]
     2181        after idle UpdateInfoBox
    21772182    }
    21782183    if {$expgui(FileMenuEXPNAM) == "<Parent>"} {
     
    21872192    }
    21882193    return
     2194}
     2195proc UpdateInfoBox {} {
     2196    global expgui
     2197    if {![winfo exists $expgui(FileInfoBox)]} return
     2198    eval destroy [winfo children $expgui(FileInfoBox)]
     2199    set file [file join [set expgui(FileMenuDir)] $expgui(FileMenuEXPNAM)]
     2200    if [file isdirectory $file] return
     2201    if [file exists $file] {
     2202        pack [label $expgui(FileInfoBox).1 -text $expgui(FileMenuEXPNAM)] \
     2203                -side top
     2204        catch {
     2205            set fp [open $file r]
     2206            global testline
     2207            set testline [read $fp]
     2208            close $fp
     2209            update
     2210            regexp {GNLS  RUN on (.*) +Total.*run +([0-9]+) } \
     2211                    $testline a last cycles
     2212            pack [label $expgui(FileInfoBox).2 -justify left \
     2213                    -text "last GENLES run:\n  $last\n  total cycles: $cycles"] \
     2214                -side top -anchor w
     2215            regexp {REFN GDNFT.*= *([0-9]*\.[0-9]*) +for *([0-9]+) variables} \
     2216                    $testline a chi2 vars
     2217            pack [frame $expgui(FileInfoBox).3 -class SmallFont] \
     2218                    -side top -anchor w
     2219            pack [label $expgui(FileInfoBox).3.a -justify left \
     2220                    -text "c" -font symbol] \
     2221                    -side left -anchor w
     2222            pack [label $expgui(FileInfoBox).3.b -justify left \
     2223                    -text "2: $chi2, $vars vars"] \
     2224                    -side top -anchor w
     2225            # check first 9 histograms
     2226            set lbl "h  Rwp     R(F2)"
     2227            set n 0
     2228            foreach k {1 2 3 4 5 6 7 8 9} {
     2229                set key "HST  $k"
     2230                append key { RPOWD +([0-9]*\.[0-9]*) }
     2231                set i [regexp $key $testline a Rwp]
     2232                set key "HST  $k"
     2233                append key { R-FAC +[0-9]+ +([0-9]*\.[0-9]*) }
     2234                set j [regexp $key $testline a Rb]
     2235                if {$i || $j} {
     2236                    incr n
     2237                    append lbl "\n$k  "
     2238                    if {$i} {
     2239                        append lbl [string range $Rwp 0 5]
     2240                    } else {
     2241                        append lbl "    "
     2242                    }
     2243                }
     2244                if {$j} {
     2245                    append lbl " [string range $Rb 0 5]"
     2246                }
     2247                # stick 1st 3 entries in box
     2248                if {$n >= 3} break
     2249            }
     2250            pack [label $expgui(FileInfoBox).4 -justify left \
     2251                    -text $lbl] \
     2252                    -side top -anchor w     
     2253        }
     2254    }
    21892255}
    21902256
Note: See TracChangeset for help on using the changeset viewer.