From 1e45c6bafc8419930958103cc1651ff86cf5d84d Mon Sep 17 00:00:00 2001
From: Miller Puckette <millerpuckette@users.sourceforge.net>
Date: Fri, 20 Jul 2007 03:25:21 +0000
Subject: various bug fixes.

svn path=/trunk/; revision=8186
---
 pd/src/u_main.tk | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'pd/src/u_main.tk')

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] \;]
     }
-- 
cgit v1.2.1