[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