[PD-cvs] pd/src desire.tk,1.1.2.600.2.234,1.1.2.600.2.235
Mathieu Bouchard
matju at users.sourceforge.net
Sat Jul 14 15:37:53 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18237
Modified Files:
Tag: desiredata
desire.tk
Log Message:
fixed some of the bugs of undo of delete of subpatch
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.234
retrieving revision 1.1.2.600.2.235
diff -C2 -d -r1.1.2.600.2.234 -r1.1.2.600.2.235
*** desire.tk 14 Jul 2007 02:22:54 -0000 1.1.2.600.2.234
--- desire.tk 14 Jul 2007 13:37:48 -0000 1.1.2.600.2.235
***************
*** 2565,2569 ****
# for undo; calls the server
def Canvas ins {i constructor} {
! netsend [concat [list .$self object_insert $i] $constructor]
$@history add [list $self del $i]
}
--- 2565,2573 ----
# for undo; calls the server
def Canvas ins {i constructor} {
! set parts [pd_mess_split $constructor]
! set last [lindex $parts end]
! set parts [lrange $parts 0 end-1]
! foreach part $parts {netsend $part}
! netsend [concat [list .$self object_insert $i] $last]
$@history add [list $self del $i]
}
***************
*** 2575,2591 ****
set @keynav_last_obj 0
}
if {[$o class] != "Canvas"} {
$@history add [list $self ins $i [$o deconstruct]]
} else {
! foreach wire [$o wires] {
! $@history add [list $self ins $i [$wire deconstruct]]
! $o disconnect [$wire connects]
! $wire delete
! }
! foreach obj [$o children] {
! $@history add [lisot $self ins $i [$obj deconstruct]]
! $o del [$o index $obj]
! }
! $@history add [list $self ins $i [$o deconstruct]]
}
netsend [list .$self object_delete $o]
--- 2579,2590 ----
set @keynav_last_obj 0
}
+ puts "Canvas del: [$o class]"
if {[$o class] != "Canvas"} {
$@history add [list $self ins $i [$o deconstruct]]
} else {
! set meuh [Clipboard2 new]
! $o deconstruct_to $meuh
! $@history add [list $self ins $i [$meuh value]]
! $meuh delete
}
netsend [list .$self object_delete $o]
***************
*** 5084,5091 ****
regsub -all {\\;} $y "\n" z
foreach mess [split $z ";"] {
! if {$mess != ""} {
! regsub -all "\n" $mess "\\;" x
! lappend r [string trimleft $x]
! }
}
return $r
--- 5083,5089 ----
regsub -all {\\;} $y "\n" z
foreach mess [split $z ";"] {
! regsub -all "\n" $mess "\\;" mess
! set mess [string trimleft $mess]
! if {$mess != ""} {lappend r $mess}
}
return $r
More information about the Pd-cvs
mailing list