[PD-cvs] pd/src desire.tk,1.1.2.600.2.77,1.1.2.600.2.78

chunlee chunlee at users.sourceforge.net
Thu Dec 14 02:20:42 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1930

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix ctrl/shift click on making wire connections


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.77
retrieving revision 1.1.2.600.2.78
diff -C2 -d -r1.1.2.600.2.77 -r1.1.2.600.2.78
*** desire.tk	14 Dec 2006 00:53:16 -0000	1.1.2.600.2.77
--- desire.tk	14 Dec 2006 01:20:38 -0000	1.1.2.600.2.78
***************
*** 2434,2438 ****
  	    foreach wire $_($obj:wires2) {
  		set find [lsearch $@wires $wire]
! 		if {$find != -1} {$self disconnect $wire}
  		$wire delete
  	    }
--- 2434,2438 ----
  	    foreach wire $_($obj:wires2) {
  		set find [lsearch $@wires $wire]
! 		    if {$find != -1} {$self disconnect [$wire connects]}
  		$wire delete
  	    }
***************
*** 2441,2445 ****
  	foreach x $@selection_wire {
  	  set find [lsearch $@wires $x]
! 	  if {$find != -1} {$self disconnect $x}
  	  $x delete
  	}
--- 2441,2445 ----
  	foreach x $@selection_wire {
  	  set find [lsearch $@wires $x]
! 		if {$find != -1} {$self disconnect [$x connects]}
  	  $x delete
  	}
***************
*** 2989,2996 ****
  def Canvas disconnect {wire} {
  	set @keynav_tab_sel "wire"
! 	mset {from outlet to inlet} [$wire connects]
  	netsend [list .$self disconnect $from $outlet $to $inlet]
! 	#netsend [list .$self disconnect $wire]
! 	$@history add [list $self    connect [$wire connects]]
  }
  def Canvas connect {wire} {
--- 2989,2995 ----
  def Canvas disconnect {wire} {
  	set @keynav_tab_sel "wire"
! 	mset {from outlet to inlet} $wire
  	netsend [list .$self disconnect $from $outlet $to $inlet]
! 	$@history add [list $self    connect $wire]
  }
  def Canvas connect {wire} {





More information about the Pd-cvs mailing list