[PD-cvs] pd/src desire.tk,1.1.2.558,1.1.2.559
chunlee
chunlee at users.sourceforge.net
Fri Nov 17 19:26:24 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15700
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
fixed <- .x82a28a8 connect 1 0 -1 ; bug
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.558
retrieving revision 1.1.2.559
diff -C2 -d -r1.1.2.558 -r1.1.2.559
*** desire.tk 17 Nov 2006 11:59:59 -0000 1.1.2.558
--- desire.tk 17 Nov 2006 18:26:21 -0000 1.1.2.559
***************
*** 3016,3034 ****
mset [list type foo bar] $target
switch $type {
! outlet {mset [list type @from @outlet] $target}
! inlet {mset [list type @to @inlet] $target}
! }
! if {$@to != ""} {
! set children [$@canvas children]
! $@canvas connect [list \
! [lsearch $children $@from] $@outlet \
! [lsearch $children $@to ] $@inlet]
! } else {
! if {$@from != ""} {
! set children [$@canvas children]
! $@canvas connect [list \
! [lsearch $children $@from] $@outlet \
! [lsearch $children $@to ] $@inlet]
! }
}
if {![shift? $f]} {$@canvas end_action}
--- 3016,3032 ----
mset [list type foo bar] $target
switch $type {
! outlet {
! mset [list type @from @outlet] $target
! set from_idx [$@canvas children_idx $@from]
! set to_idx [$@canvas children_idx $@to]
! $@canvas connect [list $from_idx $@outlet $to_idx $@inlet]
! }
! inlet {
! mset [list type @to @inlet] $target
! set from_idx [$@canvas children_idx $@from]
! set to_idx [$@canvas children_idx $@to]
! $@canvas connect [list $from_idx $@outlet $to_idx $@inlet]
! }
! default {}
}
if {![shift? $f]} {$@canvas end_action}
More information about the Pd-cvs
mailing list