[PD-cvs] pd/src desire.tk,1.1.2.269,1.1.2.270

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10959

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
save and save_as should work now


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.269
retrieving revision 1.1.2.270
diff -C2 -d -r1.1.2.269 -r1.1.2.270
*** desire.tk	1 Jul 2006 05:15:55 -0000	1.1.2.269
--- desire.tk	1 Jul 2006 06:29:11 -0000	1.1.2.270
***************
*** 998,1003 ****
  
  #def Canvas close  {} {pd $self menuclose 0}
! def Canvas save   {} {$self checkgeometry; pd .$self menusave}
! def Canvas saveas {} {$self checkgeometry; pd .$self menusaveas}
  def Canvas print  {} {
      set filename [tk_getSaveFile -initialfile pd.ps -defaultextension .ps \
--- 998,1028 ----
  
  #def Canvas close  {} {pd $self menuclose 0}
! def Canvas save   {} {
! 	$self checkgeometry 
! 	if {[string length $@file]} {
! 		pd .$self savetofile $@file $@directory
! 	} else {
! 		$self save_as
! 	}
! }
! 
! 
! def Canvas save_as {} {
! 	$self checkgeometry
! 	set types {
! 		{{Pd Files}       {.pd} }
! 		{{All Files}      *     }
! 	}
! 	set filename [tk_getSaveFile -filetypes $types]
! 	if {$filename != ""} {
! 		set @file [string range $filename [expr [string last / $filename]+1] end]
! 		set @directory [string range $filename 0 [expr [string last / $filename]-1]]
! 		puts "save $@file dir to $@directory"
! 		pd .$self savetofile $@file $@directory
! 	}
! }
! 
! 
! 
  def Canvas print  {} {
      set filename [tk_getSaveFile -initialfile pd.ps -defaultextension .ps \
***************
*** 1186,1189 ****
--- 1211,1216 ----
      global history
      set @history $history
+     set @file ""
+     set @directory ""
      global manager
      post %s "canvas init: subscribing to $manager"