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