[PD-cvs] pd/src desire.tk,1.1.2.487,1.1.2.488

chunlee chunlee at users.sourceforge.net
Fri Sep 29 13:00:10 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
remove the canvas behind the array


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.487
retrieving revision 1.1.2.488
diff -C2 -d -r1.1.2.487 -r1.1.2.488
*** desire.tk	27 Sep 2006 16:04:34 -0000	1.1.2.487
--- desire.tk	29 Sep 2006 11:00:05 -0000	1.1.2.488
***************
*** 4542,4553 ****
  	set width [expr $c_width / $@length]
  	set i 0
- 	#cheats
- 	if {[$@canvas editmode]} {
- 		set bg [$@canvas look bgedit]
- 	} else {
- 		set bg [$@canvas look bgrun]
- 	}
- 	$self item RECT polygon [list 0 0 $c_width 0 $c_width $c_height 0 $c_height] \
- 	    -outline red -fill $bg
  	foreach val $@data {
  		if {!$val} {set val 0.0}
--- 4542,4545 ----
***************
*** 4578,4583 ****
  }
  
! def Array click {x y f target} {set @draw 1}
! def Array unclick {x y f target} {set @draw 0}
  def Array motion {x y f target} {
  	if {!$@draw} return
--- 4570,4575 ----
  }
  
! def Array click {x y f target} {$@canvas focus= $self; set @draw 1}
! def Array unclick {x y f target} {$@canvas focus= ""; set @draw 0}
  def Array motion {x y f target} {
  	if {!$@draw} return
***************
*** 4591,4602 ****
  	set val [expr (($c_height-$y)/$c_height) * ($yto-($yfrom)) + ($yfrom)]
  	pd .$self $i $val
- 	#..
- 	if {[$@canvas editmode]} {
- 		set bg [$@canvas look bgedit]
- 	} else {
- 		set bg [$@canvas look bgrun]
- 	}
- 	$self item RECT polygon [list 0 0 $c_width 0 $c_width $c_height 0 $c_height] \
- 	    -outline red -fill $bg
  }
  def Array length= {val} {set @length $val}
--- 4583,4586 ----





More information about the Pd-cvs mailing list