[PD-cvs] pd/src desire.tk,1.1.2.600.2.46,1.1.2.600.2.47

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix array draw


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.46
retrieving revision 1.1.2.600.2.47
diff -C2 -d -r1.1.2.600.2.46 -r1.1.2.600.2.47
*** desire.tk	8 Dec 2006 16:40:44 -0000	1.1.2.600.2.46
--- desire.tk	8 Dec 2006 19:04:20 -0000	1.1.2.600.2.47
***************
*** 28,32 ****
  #
  #-----------------------------------------------------------------------------------#
!    
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
  
--- 28,32 ----
  #
  #-----------------------------------------------------------------------------------#
!     
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
  
***************
*** 5478,5482 ****
  	        #set canvas [$@canvas canvas]
  		set canvas [$self get_canvas]
- #		puts "             ....... Array: $self draw on canvas: $canvas  canvas:: $@canvas  width:: $width"
  		set i 0
  		foreach val $@data {
--- 5478,5481 ----
***************
*** 5486,5491 ****
  			set x2 [expr $x1 + $width]
  			set line [list $x1 $y $x2 $y]
! 			$canvas item ${self}ELEM${i} line $line -fill [$self look fg] -width 2 \
! 			    -tags "${self}ELEM${i} ${canvas}${self}ELEM${i} $self"
  			incr i
  		}
--- 5485,5489 ----
  			set x2 [expr $x1 + $width]
  			set line [list $x1 $y $x2 $y]
! 			$self item ${self}ELEM${i} line $line -fill [$self look fg] -width 2
  			incr i
  		}
***************
*** 5523,5527 ****
  		set line [list $x1 $y $x2 $y]
  		set val [expr (($c_height-$y)/$c_height) * ($yto-($yfrom)) + ($yfrom)]
! 		pd .$self $i $val
  	} else {
  		mset {xfrom yto xto yfrom pixwidth pixheight} [$@canvas get_mess]
--- 5521,5525 ----
  		set line [list $x1 $y $x2 $y]
  		set val [expr (($c_height-$y)/$c_height) * ($yto-($yfrom)) + ($yfrom)]
! 		netsend [list .$self $i $val]
  	} else {
  		mset {xfrom yto xto yfrom pixwidth pixheight} [$@canvas get_mess]
***************
*** 5530,5534 ****
  		set i [format %d [expr int(($x-$x_off)/$width)]]
  		set val [expr (($pixheight-$y+$y_off)/$pixheight) * ($yto-($yfrom)) + ($yfrom)]
! 		pd .$self $i $val
  	}
  }
--- 5528,5532 ----
  		set i [format %d [expr int(($x-$x_off)/$width)]]
  		set val [expr (($pixheight-$y+$y_off)/$pixheight) * ($yto-($yfrom)) + ($yfrom)]
! 		netsend [list .$self $i $val]
  	}
  }