diff options
Diffstat (limited to 'pd/src/u_main.tk')
| -rw-r--r-- | pd/src/u_main.tk | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pd/src/u_main.tk b/pd/src/u_main.tk index a05d145f..8c43905b 100644 --- a/pd/src/u_main.tk +++ b/pd/src/u_main.tk @@ -212,6 +212,7 @@ set untitled_number 1 set untitled_directory [pwd] set saveas_client doggy set pd_opendir $untitled_directory +set pd_savedir $untitled_directory set pd_undoaction no set pd_redoaction no set pd_undocanvas no @@ -3414,8 +3415,7 @@ proc pdtk_openpanel {target localdir} { if {$localdir == ""} { set localdir $pd_opendir } - set filename [tk_getOpenFile \ - -initialdir $localdir] + set filename [tk_getOpenFile -initialdir $localdir] if {$filename != ""} { set directory [string range $filename 0 \ [expr [string last / $filename ] - 1]] @@ -3426,11 +3426,11 @@ proc pdtk_openpanel {target localdir} { } proc pdtk_savepanel {target localdir} { + global pd_savedir if {$localdir == ""} { - set filename [tk_getSaveFile] - } else { - set filename [tk_getSaveFile -initialdir $localdir] + set localdir $pd_savedir } + set filename [tk_getSaveFile -initialdir $localdir] if {$filename != ""} { pd [concat $target callback [pdtk_enquote $filename] \;] } |