[PD-cvs] pd/src desire.tk,1.1.2.124,1.1.2.125

[carmen rocco]

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"}}