afonso/core-extra
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

allow executing XML files from GUI via File > Execute XML or Python script...

Browse source 
adopt filename when connecting to running session having a filename
(Boeing r1793)
This commit is contained in:
ahrenholz 2013-11-25 19:56:08 +00:00
parent 1e8abc4c1e
commit acf2430dbd
4 changed files with 22 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
gui/util.tcl
View file

@ -982,7 +982,16 @@ proc exportPython { } {
# ask the daemon to execute the selected file
proc execPython { } {
set fn [tk_getOpenFile -filetypes {{ "CORE Python scripts" {.py} }} ]
global fileDialogBox_initial g_prefs
set ft {{ "CORE XML or Python scripts" {.py .xml} } { "All files" {*}}}
if { $fileDialogBox_initial == 0 } {
set fileDialogBox_initial 1
set dir $g_prefs(default_conf_path)
set fn [tk_getOpenFile -filetypes $ft -initialdir $dir]
} else {
set fn [tk_getOpenFile -filetypes $ft]
}
if { $fn == "" } { return }
set flags 0x10 ;# status request flag
sendRegMessage -1 $flags [list "exec" $fn]