[PD-cvs] pd/src desire.tk,1.1.2.136,1.1.2.137
Mathieu Bouchard
matju at users.sourceforge.net
Sun Dec 4 17:58:19 CET 2005
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25384
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
fixed [hsl], [vsl] draw
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.136
retrieving revision 1.1.2.137
diff -C2 -d -r1.1.2.136 -r1.1.2.137
*** desire.tk 4 Dec 2005 12:58:54 -0000 1.1.2.136
--- desire.tk 4 Dec 2005 16:58:16 -0000 1.1.2.137
***************
*** 2424,2428 ****
}
! class_new slider {view}
def slider orient {} {
switch $@class {
--- 2424,2428 ----
}
! class_new slider {bluebox}
def slider orient {} {
switch $@class {
***************
*** 2433,2436 ****
--- 2433,2437 ----
def* slider init {args} {
+ super
set @clicking 0
}
***************
*** 2447,2454 ****
set outs [expr [string compare $@snd empty]==0]
super
set color [bluify #ffffff]
! $self item KNOB rectangle $x1 $y1 $x1 $y1 \
-outline #000000 -fill [darker $color]
! set {u1 v1 u2 v2} [$@canvas coords ${self}BASE]
set span [expr $@max-$@min]
set l [expr $orient?$@h:$@w]
--- 2448,2456 ----
set outs [expr [string compare $@snd empty]==0]
super
+ $self makebox $x1 $y1 $@w $@h $@ninlets $@noutlets
set color [bluify #ffffff]
! $self item KNOB rectangle [list $x1 $y1 $x1 $y1] \
-outline #000000 -fill [darker $color]
! set c .$@canvas.c
set span [expr $@max-$@min]
set l [expr $orient?$@h:$@w]
***************
*** 2456,2469 ****
set @value $value
if {$orient} {
! set size [expr $u2-$x1]
! set y1 [expr $v2-$value*($l-1)/$span-2]
set y2 [expr $y1-2]
! $@canvas coords ${self}KNOB [expr $x1+2] $y1 [expr $x1+$size-2] $y2
} {
! set size [expr $v2-$y1]
set x1 [expr $x1+$value*($l-1)/$span]
set x2 [expr $x1+2]
set y2 [expr $y1+$size]
! $@canvas coords ${self}KNOB $x1 [expr $y1+2] $x2 [expr $y1+$size-2]
}
}
--- 2458,2471 ----
set @value $value
if {$orient} {
! set size $xs
! set y1 [expr $y1+$ys-$value*($l-1)/$span-2]
set y2 [expr $y1-2]
! $c coords ${self}KNOB [expr $x1+2] $y1 [expr $x1+$size-2] $y2
} {
! set size $ys
set x1 [expr $x1+$value*($l-1)/$span]
set x2 [expr $x1+2]
set y2 [expr $y1+$size]
! $c coords ${self}KNOB $x1 [expr $y1+2] $x2 [expr $y1+$size-2]
}
}
More information about the Pd-cvs
mailing list