set the initialfile when doing "save as"

Closes: #746
pure-data · Sep 19, 2019 · 6ef7d18 · 6ef7d18
1 parent 83015dc
commit 6ef7d18
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tcl/pdtk_canvas.tcl b/tcl/pdtk_canvas.tcl
@@ -157,6 +157,7 @@ proc pdtk_canvas_raise {mytoplevel} {
 proc pdtk_canvas_saveas {mytoplevel initialfile initialdir destroyflag} {
     if { ! [file isdirectory $initialdir]} {set initialdir $::filenewdir}
     set filename [tk_getSaveFile -initialdir $initialdir \
+                      -initialfile $initialfile \
                       -defaultextension .pd -filetypes $::filetypes]
     if {$filename eq ""} return; # they clicked cancel