pd/src desire.tk,1.1.2.558,1.1.2.559 - Pd-cvs

17 Nov 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}