Changeset 1180 for branches/sandbox/liveplot

Timestamp:

Nov 25, 2011 3:49:15 PM (9 years ago)

Author:

toby

Message:

liveplot updates for Topas, etc.

File:

• branches/sandbox/liveplot (modified) (4 diffs)

branches/sandbox/liveplot

@@ -107 +107 @@
 }
 set expgui(RadiiList) {}
+set ::expmap(phaselist) {}
 
 proc waitmsg {message} {
@@ -459 +460 @@
     set ::topasfile [tk_getOpenFile -title "Select Topas File" -parent . \
                          -defaultextension .ascii \
-                         -filetypes {{"Topas ascii export" ".ascii"}}]
+                         -filetypes {
+                             {"Topas ascii export" ".ascii"}
+                             {"all files" "*"}
+                         }]
     if {$::topasfile == ""} return
     if {[catch {set input [open $::topasfile r]} errmsg]} {
@@ -469 +473 @@
     }
     close $input
+    readdata .g
 }
 
@@ -2352 +2357 @@
 
 .a.file.menu add command -label "Import from Topas" \
-    -command {get_topas_file; readdata .g}
+    -command {get_topas_file}
 
 .a.file.menu add command -label Quit -command "destroy ."