Changeset 1180 for branches/sandbox/liveplot
- Timestamp:
- Nov 25, 2011 3:49:15 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/liveplot
r1179 r1180 107 107 } 108 108 set expgui(RadiiList) {} 109 set ::expmap(phaselist) {} 109 110 110 111 proc waitmsg {message} { … … 459 460 set ::topasfile [tk_getOpenFile -title "Select Topas File" -parent . \ 460 461 -defaultextension .ascii \ 461 -filetypes {{"Topas ascii export" ".ascii"}}] 462 -filetypes { 463 {"Topas ascii export" ".ascii"} 464 {"all files" "*"} 465 }] 462 466 if {$::topasfile == ""} return 463 467 if {[catch {set input [open $::topasfile r]} errmsg]} { … … 469 473 } 470 474 close $input 475 readdata .g 471 476 } 472 477 … … 2352 2357 2353 2358 .a.file.menu add command -label "Import from Topas" \ 2354 -command {get_topas_file ; readdata .g}2359 -command {get_topas_file} 2355 2360 2356 2361 .a.file.menu add command -label Quit -command "destroy ."
Note: See TracChangeset
for help on using the changeset viewer.