Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16198
Modified Files: Tag: desiredata desire.tk Log Message: fixed slider jump mode
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.354 retrieving revision 1.1.2.600.2.355 diff -C2 -d -r1.1.2.600.2.354 -r1.1.2.600.2.355 *** desire.tk 12 Aug 2007 17:33:59 -0000 1.1.2.600.2.354 --- desire.tk 12 Aug 2007 18:45:35 -0000 1.1.2.600.2.355 *************** *** 5450,5454 ****
def AtomBox update_size {} { ! set width [font measure [$self look font] W] set ls [font metrics [$self look font] -linespace] set @xs [expr ($width*$@w)+3] --- 5450,5454 ----
def AtomBox update_size {} { ! set width [font measure [$self look font] 0] set ls [font metrics [$self look font] -linespace] set @xs [expr ($width*$@w)+3] *************** *** 6070,6081 **** $canvas focus= $self set @click_at [list $x $y] - set @oposition $@value set @rate [expr $f&1 ? 0.01 : 1.00] if {!$@steady} { mset {x1 y1 x2 y2} [$self bbox] ! set @value [expr [$self calc $x $y $x1 $y2]*$@rate] ! #set @oposition $@value netsend [list .$self float $@value] ! } }
--- 6070,6081 ---- $canvas focus= $self set @click_at [list $x $y] set @rate [expr $f&1 ? 0.01 : 1.00] if {!$@steady} { mset {x1 y1 x2 y2} [$self bbox] ! set t [expr [$self calc $x $y $x1 $y2]*$@rate] ! set @value [expr $@is_log ? [expr $@min*exp($t*[$self slider_ratio])] : $t] ! set @oposition $t netsend [list .$self float $@value] ! } else {set @oposition $@value} }
*************** *** 6096,6101 **** set value [expr $@is_log ? [expr $@min*exp($t*[$self slider_ratio])] : $t] set out [clip $value $@min $@max] - #set value [clip [expr $@oposition+$d*$@rate] $@min $@max] - #set out [expr $@is_log ? [expr $@min*exp($value*[$self slider_ratio])] : $value] netsend [list .$self float $out] } --- 6096,6099 ----