[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