Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23080
Modified Files: Tag: desiredata desire.tk Log Message: NumBox log mode fix
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.356 retrieving revision 1.1.2.600.2.357 diff -C2 -d -r1.1.2.600.2.356 -r1.1.2.600.2.357 *** desire.tk 12 Aug 2007 20:06:46 -0000 1.1.2.600.2.356 --- desire.tk 12 Aug 2007 20:38:47 -0000 1.1.2.600.2.357 *************** *** 3688,3692 **** } restore {incr in -1; netsend [$self paste_coords $mess $offset]} ! default {if {!$in} {netsend [$self paste_coords $mess $offset] [list $self new_object_copyselect]}} } } --- 3688,3693 ---- } restore {incr in -1; netsend [$self paste_coords $mess $offset]} ! default {if {!$in} {netsend [$self paste_coords $mess $offset] \ ! [list $self new_object_copyselect]}} } } *************** *** 5827,5831 **** set canvas [$self get_canvas] set t [$canvas widget].${self}text ! set @ovalue $@text set @clickpos [list $x $y] set @mouse [list $x $y] --- 5828,5832 ---- set canvas [$self get_canvas] set t [$canvas widget].${self}text ! set @ovalue [clip $@text $@min $@max] set @clickpos [list $x $y] set @mouse [list $x $y] *************** *** 5845,5849 **** if {[$self class] == "NumBox"} { set t [expr $@is_log ? $@ovalue*exp($d*$@rate*[$self log_ratio]) : $@ovalue+$d*$@rate] - #set @text [expr $@is_log ? [expr $@min*exp($t*[$sealf log_ratio])] : $t] } else { set t [expr $@ovalue+$d*$@rate] --- 5846,5849 ---- *************** *** 5882,5886 **** set changed 0 set @buf "" ! set @text 0 }
--- 5882,5886 ---- set changed 0 set @buf "" ! set @text $@min }