[PD-cvs] pd/src desire.tk,1.1.2.421,1.1.2.422

chunlee chunlee at users.sourceforge.net
Tue Aug 29 21:25:18 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
small fix to wire draw


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.421
retrieving revision 1.1.2.422
diff -C2 -d -r1.1.2.421 -r1.1.2.422
*** desire.tk	29 Aug 2006 19:20:19 -0000	1.1.2.421
--- desire.tk	29 Aug 2006 19:25:15 -0000	1.1.2.422
***************
*** 3072,3078 ****
  	set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]]
  	if {[$self selected?]} {set wire_color [$self look fg2]} else {
  		if {[regexp -nocase {~$} [lindex $_($@obj1:text) 0]] && \
  		    [regexp -nocase {~$} [lindex $_($@obj2:text) 0]]} {
! 			set wire_color [$self look dspfg]
  			set wire_width [expr [$self look thick] * 2]
  		} else {
--- 3072,3079 ----
  	set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]]
  	if {[$self selected?]} {set wire_color [$self look fg2]} else {
+ 		if {[info exists _($@obj1:text)] && [info exists _($@obj2:text)]} {
  		if {[regexp -nocase {~$} [lindex $_($@obj1:text) 0]] && \
  		    [regexp -nocase {~$} [lindex $_($@obj2:text) 0]]} {
! 			set wire_color [$self look fg]
  			set wire_width [expr [$self look thick] * 2]
  		} else {
***************
*** 3080,3083 ****
--- 3081,3088 ----
  			set wire_width [$self look thick]
  		}
+ 		} else {
+ 			set wire_color [$self look fg]
+ 			set wire_width [$self look thick]
+ 		} 
  	}
  	$self item WIRE line $xys -width $wire_width -smooth yes \





More information about the Pd-cvs mailing list