[PD-cvs] pd/src desire.tk,1.1.2.101,1.1.2.102

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed hilite_io


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.101
retrieving revision 1.1.2.102
diff -C2 -d -r1.1.2.101 -r1.1.2.102
*** desire.tk	4 Nov 2005 00:18:41 -0000	1.1.2.101
--- desire.tk	4 Nov 2005 00:34:02 -0000	1.1.2.102
***************
*** 1336,1340 ****
  	global look
  	mset {cx cy} [$self xy]
! 	set c .x$canvas.c
  	set ports 0; catch {set ports $@ninlets}
  	if {$ports==0} return
--- 1336,1340 ----
  	global look
  	mset {cx cy} [$self xy]
! 	set c .x$@canvas.c
  	set ports 0; catch {set ports $@ninlets}
  	if {$ports==0} return
***************
*** 1346,1350 ****
  	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
! 	$canvas show_tooltip $x $y $tip
  	return $port
  }
--- 1346,1350 ----
  	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
! 	$@canvas show_tooltip $x $y $tip
  	return $port
  }
***************
*** 1401,1405 ****
  	  mset {x1 y1 x2 y2} [$id bbox]
  	  if {abs($y1+3-$y)<=3} {
! 		set port [$id hilite_io $self i $x $y]
  		set dehighlight "$c delete ${id}i${port}b; set wire_to {}"
  		set wire_to [list $id $port]
--- 1401,1405 ----
  	  mset {x1 y1 x2 y2} [$id bbox]
  	  if {abs($y1+3-$y)<=3} {
! 		set port [$id hilite_io i $x $y]
  		set dehighlight "$c delete ${id}i${port}b; set wire_to {}"
  		set wire_to [list $id $port]
***************
*** 1407,1411 ****
  	  }
  	  if {abs($y2-3-$y)<=3} {
! 		set port [$id hilite_io $self o $x $y]
  		set dehighlight "$c delete ${id}o${port}b"
  		return
--- 1407,1411 ----
  	  }
  	  if {abs($y2-3-$y)<=3} {
! 		set port [$id hilite_io o $x $y]
  		set dehighlight "$c delete ${id}o${port}b"
  		return
***************
*** 1533,1537 ****
  				#puts "____complete [lindex $@selection 0] first!____"
  				set @old_obj [lindex $@selection 0]
! 				if {$@select_by == "click"} {$old_obj unedit $self}
  				set @obj_in_edit {}
  			}
--- 1533,1537 ----
  				#puts "____complete [lindex $@selection 0] first!____"
  				set @old_obj [lindex $@selection 0]
! 				if {$@select_by == "click"} {$old_obj unedit}
  				set @obj_in_edit {}
  			}
***************
*** 1567,1572 ****
  	if {[llength $@obj_in_edit]} {
  		#puts "and some object is in edit -> $@obj_in_edit in $self"
! 		#[lindex $@selection 0] unedit $self
! 		$@obj_in_edit unedit $self
  		set @obj_in_edit {}
  	}
--- 1567,1572 ----
  	if {[llength $@obj_in_edit]} {
  		#puts "and some object is in edit -> $@obj_in_edit in $self"
! 		#[lindex $@selection 0] unedit
! 		$@obj_in_edit unedit
  		set @obj_in_edit {}
  	}
***************
*** 1714,1718 ****
  			if {![llength $@obj_in_edit]} {
  				set @obj_in_edit [lindex $@selection 1]
! 				[lindex $@selection 0] edit $self
  			}
  		  }
--- 1714,1718 ----
  			if {![llength $@obj_in_edit]} {
  				set @obj_in_edit [lindex $@selection 1]
! 				[lindex $@selection 0] edit
  			}
  		  }