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"