[PD-cvs] SF.net SVN: pure-data: [10020] branches/pd-extended/v0-40/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 10020
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10020&view=rev
Author:   eighthave
Date:     2008-06-17 15:26:18 -0700 (Tue, 17 Jun 2008)

Log Message:
-----------
sorted out default save dirs to use CWD and then update once something has been saved, following this discussion: http://lists.puredata.info/pipermail/pd-list/2008-05/062647.html

Modified Paths:
--------------
    branches/pd-extended/v0-40/pd/src/u_main.tk

Modified: branches/pd-extended/v0-40/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/v0-40/pd/src/u_main.tk	2008-06-17 21:45:27 UTC (rev 10019)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-06-17 22:26:18 UTC (rev 10020)
@@ -360,10 +360,10 @@
 ############### set up global variables ################################
 
 set untitled_number 1
-if {$pd_nt == 1} {
-	set untitled_directory [regsub -all \\\\ $::env(USERPROFILE) /]
+if {$pd_nt == 2} {
+    set untitled_directory $::env(HOME)
 } else {
-	set untitled_directory $::env(HOME)
+    set untitled_directory [pwd]
 }
 set pd_opendir $untitled_directory
 set pd_undoaction no
@@ -1277,7 +1277,6 @@
 
 ############# pdtk_canvas_new -- create a new canvas ###############
 proc pdtk_canvas_new {name width height geometry editable} {
-    global pd_opendir
     global pd_tearoff
     global pd_nt
     global tcl_version
@@ -2163,12 +2162,10 @@
     } 
 }
 
-set saveas_dir nowhere
-
 ############ pdtk_canvas_saveas -- run a saveas dialog ##############
 
 proc pdtk_canvas_saveas {name initfile initdir} {
-    global pd_nt filetypes
+    global pd_nt filetypes untitled_directory
     set filename [tk_getSaveFile -initialfile $initfile -initialdir $initdir \
 					  -defaultextension .pd -filetypes $filetypes]
 
@@ -2196,6 +2193,7 @@
         pd [concat $name savetofile [pdtk_enquote $basename] \
                 [pdtk_enquote $directory] \;]
         #       pd [concat $name savetofile $basename $directory \;]
+        set untitled_directory $directory
     }
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.