Changeset 362

Timestamp:

Dec 4, 2009 5:04:54 PM (14 years ago)

Author:

toby

Message:

# on 2000/12/22 19:44:07, toby did:
Implement autoraise
detect expgui.lck in windows and delay while it runs

File:

• trunk/liveplot (modified) (5 diffs, 3 props)

trunk/liveplot

@@ -40 +40 @@
 set graph(xunits) 0
 set graph(yunits) 0
+set graph(autoraise) 1
 set expgui(debug) 0
 catch {if $env(DEBUG) {set expgui(debug) 1}}
@@ -173 +174 @@
 
 proc readdata {box} { 
-    global expgui
+    global expgui modtime expnam
     if [catch {
+        set modtime [file mtime $expnam.EXP]
         set loadtime [time {
             if {$expgui(tcldump) == ""} {
@@ -718 +720 @@
     puts $fp "set graph(outname) $graph(outname)"
     puts $fp "set graph(outcmd) $graph(outcmd)"
+    puts $fp "set graph(autoraise) $graph(autoraise)"
     puts $fp "set expgui(lblfontsize) $expgui(lblfontsize)"
     puts $fp "set expgui(fadetime) $expgui(fadetime)" 
@@ -751 +754 @@
 
 proc updateifnew {} {
-    global cycle modtime expnam
+    global cycle modtime expnam env tcl_platform graph
+    # has the .EXP file been changed?
     if {[file mtime $expnam.EXP] != $modtime} {
-        set modtime [file mtime $expnam.EXP]
-        set newcycle [getcycle]
-        if {$newcycle != $cycle} {
-            set cycle $newcycle
-            # delay one second
-            # after 1000
-            readdata .g
-        }
-    }
-    # check every second
+        # are we in windows and are "locked?" If not, OK to update
+        if {$tcl_platform(platform) == "windows" && [file exists expgui.lck]} {
+            .g config -title "(Experiment directory locked)"
+        } else { 
+            set modtime [file mtime $expnam.EXP]
+            set newcycle [getcycle]
+            if {$newcycle != $cycle} {
+                set cycle $newcycle
+                readdata .g
+            }
+            if {$tcl_platform(platform) == "windows" && $graph(autoraise)} {
+                # raise does not seem to be global in Windows, 
+                # but this works in Win-95
+                # nothing seems to work in Win-NT
+                wm withdraw .
+                wm deiconify .
+            } elseif {$graph(autoraise)} {
+                raise .
+            }
+        }
+    }
+    # check again in a second
     after 1000 updateifnew 
 }
@@ -938 +954 @@
         -command {setlegend $box $graph(legend)}
 .a.options.menu add command -label "Set PS output" -command setpostscriptout
+.a.options.menu add checkbutton -label "Raise on update" \
+        -variable graph(autoraise)
 .a.options.menu add command -label "Save Options" -underline 1 \
         -command "SaveOptions"