Changeset 6

Timestamp:

Dec 4, 2009 4:58:47 PM (13 years ago)

Author:

toby

Message:

# on 1998/11/23 19:34:03, toby did:
Bug for cycles > 999 fixed
Added "Auto advance" feature

File:

• trunk/lstview (modified) (7 diffs, 3 props)

trunk/lstview

@@ -1 +1 @@
 #!/usr/local/bin/wish
+set Revision {$Revision$ $Date$}
 # display a .LST file in a text box
 # updates 8/26 add bindings for page-up, -down, uparrow, downarrow
@@ -27 +28 @@
 }
 set box {}
+set txtvw(followcycle) 1
 # override options with locally defined values
 if [file exists ~/.textview_config] {
@@ -61 +63 @@
     global txtvw valuelst
     set i 0
+    set lastpos {}
     # loop over cycles
     set startpos $pos
@@ -71 +74 @@
         $win tag add cycle $line.1 $line.10
         incr i
-        scan [$win get $pos $line.end] %s%d x cycle
-        set txtvw(lastcycle) "Cycle $cycle"
-        .a.goto.menu entryconfigure 1 -state normal
-        $menu insert 1 command \
-                -font 6x12 \
-                -label "Cycle $cycle" \
-                -command "$win see $pos"
-        if {[$menu index end] > $txtvw(menulength)} {$menu delete end}
-
+        set cycle {}
+        regexp {Cycle *([0-9]+) +There} [$win get $pos $line.end] x cycle
+        if {$cycle != ""} {
+            set lastpos $pos
+            set txtvw(lastcycle) "Cycle $cycle"
+            .a.goto.menu entryconfigure 1 -state normal
+            $menu insert 1 command \
+                    -font 6x12 \
+                    -label "Cycle $cycle" \
+                    -command "$win see $pos"
+            if {[$menu index end] > $txtvw(menulength)} {$menu delete end}
+        }
         # get next cycle number
         set nextpos [$win search -regexp -count chars \
@@ -135 +141 @@
         set pos $nextpos
     }
+    if {$txtvw(followcycle) && $lastpos != ""} {$win see $lastpos}
 }
 
@@ -288 +295 @@
 
 proc aboutgsas {} {
-        tk_dialog .warn About {
-GSAS (Generalized Structure Analysis System)
-
-A. C. Larson and R. B. Von Dreele, LANSCE, Los Alamos
-
-GUI menu by B. Toby, NIST
-}  {} 0 OK
+    tk_dialog .warn About "
+GSAS\n\
+A. C. Larson and\n R. B. Von Dreele,\n LANSCE, Los Alamos\n\n\
+TEXTVIEW\nB. Toby, NIST\nNot subject to copyright\n\n\
+$Revision\n\
+" {} 0 OK
 }
 
@@ -323 +329 @@
             -side left
 menu .a.goto.menu
+.a.goto.menu  add checkbutton -label "Auto Advance" -variable txtvw(followcycle) 
 .a.goto.menu add cascade -label "Cycle #"  -menu .a.goto.menu.cyc \
         -state disabled