[PD-cvs] pd/src desire.tk,1.1.2.336,1.1.2.337

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed problems with selecting wires


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.336
retrieving revision 1.1.2.337
diff -C2 -d -r1.1.2.336 -r1.1.2.337
*** desire.tk	14 Aug 2006 16:22:53 -0000	1.1.2.336
--- desire.tk	15 Aug 2006 02:16:05 -0000	1.1.2.337
***************
*** 1673,1677 ****
  }
  def Canvas selection_wire+= {wires} {
! 	set @selection_wire [concat [lwithout $@selection_wire $objs] $objs]
  	foreach o $wires {$o selected?= 1}
  }
--- 1673,1677 ----
  }
  def Canvas selection_wire+= {wires} {
! 	set @selection_wire [concat [lwithout $@selection_wire $wires] $wires]
  	foreach o $wires {$o selected?= 1}
  }
***************
*** 2229,2234 ****
  	  }
  	  wire {
! 	    switch $f {
! 		0 {$self selection_wire+= $id}
  		1 {#click on a wire with shift
  			#if click on the one already selected wire, reconnect it
--- 2229,2234 ----
  	  }
  	  wire {
! 	    switch [expr $f&255] {
! 		0 {$self selection_wire= $id}
  		1 {#click on a wire with shift
  			#if click on the one already selected wire, reconnect it
***************
*** 2685,2688 ****
--- 2685,2689 ----
      # select_by is a hack to get wires remain hilited if selected by serect....
      set @select_by ""
+     #$self subscribe $canvas
  }