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 \