Ignore:
Timestamp:
Nov 25, 2011 3:49:15 PM (9 years ago)
Author:
toby
Message:

liveplot updates for Topas, etc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/liveplot

    r1179 r1180  
    107107}
    108108set expgui(RadiiList) {}
     109set ::expmap(phaselist) {}
    109110
    110111proc waitmsg {message} {
     
    459460    set ::topasfile [tk_getOpenFile -title "Select Topas File" -parent . \
    460461                         -defaultextension .ascii \
    461                          -filetypes {{"Topas ascii export" ".ascii"}}]
     462                         -filetypes {
     463                             {"Topas ascii export" ".ascii"}
     464                             {"all files" "*"}
     465                         }]
    462466    if {$::topasfile == ""} return
    463467    if {[catch {set input [open $::topasfile r]} errmsg]} {
     
    469473    }
    470474    close $input
     475    readdata .g
    471476}
    472477
     
    23522357
    23532358.a.file.menu add command -label "Import from Topas" \
    2354     -command {get_topas_file; readdata .g}
     2359    -command {get_topas_file}
    23552360
    23562361.a.file.menu add command -label Quit -command "destroy ."
Note: See TracChangeset for help on using the changeset viewer.