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

gui: Small refactoring of code to execute a python script.

Browse source
This commit is contained in:
tgoff0 2014-12-15 18:23:04 +00:00
parent 51aba4b82c
commit 049efb642f
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gui/util.tcl
View file

@ -980,6 +980,14 @@ proc exportPython { } {
} }
} }
proc execPythonFile { filename } {
set flags 0x10 ;# status request flag
sendRegMessage -1 $flags [list "exec" $filename]
addFileToMrulist $filename
tk_messageBox -type ok -message "Executed Python script '$filename'"
}
# ask the daemon to execute the selected file # ask the daemon to execute the selected file
proc execPython { with_options } { proc execPython { with_options } {
global fileDialogBox_initial g_prefs global fileDialogBox_initial g_prefs
@ -999,9 +1007,8 @@ proc execPython { with_options } {
set fn [tk_inputBox "Python Script Options" $prompt $fn . 50] set fn [tk_inputBox "Python Script Options" $prompt $fn . 50]
if { $fn == "" } { return } if { $fn == "" } { return }
} }
set flags 0x10 ;# status request flag
sendRegMessage -1 $flags [list "exec" $fn] execPythonFile $fn
addFileToMrulist $fn
} }
# open a dialog that prompts the user with a text entry # open a dialog that prompts the user with a text entry