Changeset 490

Timestamp:

Dec 4, 2009 5:07:02 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/gsascmds.tcl (modified) (3 diffs, 3 props)

trunk/gsascmds.tcl

@@ -1841 +1841 @@
                 -variable expgui(includearchived) \
                 -command "ChooseExpFil $frmA"] -side top -pady 10
+        set expgui(FileInfoBox) $frmC.info  
+        pack [frame $expgui(FileInfoBox) -bd 4 -relief groove \
+                -class SmallFont] \
+                -side top -fill both -expand yes -pady 5
     }
     pack [button $frmC.b -text Read \
@@ -2175 +2179 @@
     } else {
         set expgui(FileMenuEXPNAM) [string trim [$files get $select]]
+        after idle UpdateInfoBox
     }
     if {$expgui(FileMenuEXPNAM) == "<Parent>"} {
@@ -2187 +2192 @@
     }
     return
+}
+proc UpdateInfoBox {} {
+    global expgui
+    if {![winfo exists $expgui(FileInfoBox)]} return
+    eval destroy [winfo children $expgui(FileInfoBox)]
+    set file [file join [set expgui(FileMenuDir)] $expgui(FileMenuEXPNAM)]
+    if [file isdirectory $file] return
+    if [file exists $file] {
+        pack [label $expgui(FileInfoBox).1 -text $expgui(FileMenuEXPNAM)] \
+                -side top
+        catch {
+            set fp [open $file r]
+            global testline
+            set testline [read $fp]
+            close $fp
+            update
+            regexp {GNLS  RUN on (.*) +Total.*run +([0-9]+) } \
+                    $testline a last cycles
+            pack [label $expgui(FileInfoBox).2 -justify left \
+                    -text "last GENLES run:\n  $last\n  total cycles: $cycles"] \
+                -side top -anchor w
+            regexp {REFN GDNFT.*= *([0-9]*\.[0-9]*) +for *([0-9]+) variables} \
+                    $testline a chi2 vars
+            pack [frame $expgui(FileInfoBox).3 -class SmallFont] \
+                    -side top -anchor w
+            pack [label $expgui(FileInfoBox).3.a -justify left \
+                    -text "c" -font symbol] \
+                    -side left -anchor w
+            pack [label $expgui(FileInfoBox).3.b -justify left \
+                    -text "2: $chi2, $vars vars"] \
+                    -side top -anchor w
+            # check first 9 histograms
+            set lbl "h  Rwp     R(F2)"
+            set n 0
+            foreach k {1 2 3 4 5 6 7 8 9} {
+                set key "HST  $k"
+                append key { RPOWD +([0-9]*\.[0-9]*) }
+                set i [regexp $key $testline a Rwp]
+                set key "HST  $k"
+                append key { R-FAC +[0-9]+ +([0-9]*\.[0-9]*) }
+                set j [regexp $key $testline a Rb]
+                if {$i || $j} {
+                    incr n
+                    append lbl "\n$k  "
+                    if {$i} {
+                        append lbl [string range $Rwp 0 5]
+                    } else {
+                        append lbl "    "
+                    }
+                }
+                if {$j} {
+                    append lbl " [string range $Rb 0 5]"
+                }
+                # stick 1st 3 entries in box
+                if {$n >= 3} break
+            }
+            pack [label $expgui(FileInfoBox).4 -justify left \
+                    -text $lbl] \
+                    -side top -anchor w     
+        }
+    }
 }