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