pd/src desire.tk,1.1.2.536,1.1.2.537 - Pd-cvs

30 Oct 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18302
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
fixed the bug in Canvas save
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.536
retrieving revision 1.1.2.537
diff -C2 -d -r1.1.2.536 -r1.1.2.537
*** desire.tk	30 Oct 2006 02:36:05 -0000	1.1.2.536
--- desire.tk	30 Oct 2006 12:02:49 -0000	1.1.2.537
***************
*** 1232,1236 ****
    if {$@subpatch} {return [$@canvas save]}
    $self checkgeometry
! 	if {$@name != ""} {
    	pd .$self savetofile $@name $@folder
    } else {
--- 1232,1241 ----
    if {$@subpatch} {return [$@canvas save]}
    $self checkgeometry
! 	#if {$@name != ""} {
! 	#	pd .$self savetofile $@name $@folder
! 	#} else {
! 	#	$self save_as
! 	#}
! 	if {![regexp {^Untitled-[0-9]} $@name]} {
    	pd .$self savetofile $@name $@folder
    } else {