Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3046
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixing for tcl8.5
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.124 retrieving revision 1.1.2.125 diff -C2 -d -r1.1.2.124 -r1.1.2.125 *** desire.tk 15 Nov 2005 15:32:55 -0000 1.1.2.124 --- desire.tk 17 Nov 2005 18:52:43 -0000 1.1.2.125 *************** *** 825,829 **** set @editmode $mode catch {.$self.bbar.edit configure -image icon_mode_$mode} ! .$self.c configure -background [if $@editmode {list $look(canvasbgedit)} {list $look(canvasbgrun)}] }
--- 825,829 ---- set @editmode $mode catch {.$self.bbar.edit configure -image icon_mode_$mode} ! .$self.c configure -background [if $@editmode {concat $look(canvasbgedit)} {concat $look(canvasbgrun)}] }
*************** *** 1119,1123 **** } { $c create rectangle $points -tags "$self$which $self$which$i $self" \ ! -outline [switch $which { i {list $look(inletfg)} o {list $look(outletfg)}}] } } --- 1119,1123 ---- } { $c create rectangle $points -tags "$self$which $self$which$i $self" \ ! -outline [switch $which { i {concat $look(inletfg)} o {concat $look(outletfg)}}] } } *************** *** 1967,1971 **** set p ${self}${type}${port} #if {![llength $@wire_from]} {} ! set outline [switch $type {i {list $look(outletfg)} o {list $look(inletfg)}}] $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"}} --- 1967,1971 ---- set p ${self}${type}${port} #if {![llength $@wire_from]} {} ! set outline [switch $type {i {concat $look(outletfg)} o {concat $look(inletfg)}}] $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"}}