[PD-cvs] pd/src desire.tk,1.1.2.533,1.1.2.534

chunlee chunlee at users.sourceforge.net
Sun Oct 29 21:31:37 CET 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
Box hilite_io also uses View item now


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.533
retrieving revision 1.1.2.534
diff -C2 -d -r1.1.2.533 -r1.1.2.534
*** desire.tk	29 Oct 2006 19:52:51 -0000	1.1.2.533
--- desire.tk	29 Oct 2006 20:31:33 -0000	1.1.2.534
***************
*** 1041,1045 ****
  	lappend tags [list $self]
  	if {![llength [$c gettags $ss]]} {
- 		#puts "       c --> $c"
  		eval  [concat [list $c create $type $coords  -tags $tags] $args]
  	} {
--- 1041,1044 ----
***************
*** 3775,3782 ****
  	#set port [expr int(($x-$x1)*$ports/$xs)]
  	if {$port >= $ports} {set port [expr $ports-1]}
! 	set p $self$type$port
  	set hilitebox [lmap * [list -3 -3 +3 +3] [$@canvas zoom]]
  	set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}]
! 	$c create rectangle [l+ [$c coords $p] $hilitebox] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
  	if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip $type}
--- 3774,3784 ----
  	#set port [expr int(($x-$x1)*$ports/$xs)]
  	if {$port >= $ports} {set port [expr $ports-1]}
! 	#set p $self$type$port
! 	set p2 $self$type$port
! 	set p $type$port
  	set hilitebox [lmap * [list -3 -3 +3 +3] [$@canvas zoom]]
  	set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}]
! 	#$c create rectangle [l+ [$c coords $p] $hilitebox] -outline $outline -width 1 -tags ${p}b
! 	$self item ${p}b rectangle [l+ [$c coords $p2] $hilitebox] -outline $outline -width 1
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
  	if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip $type}





More information about the Pd-cvs mailing list