[PD-cvs] pd/src desire.tk,1.1.2.600.2.356,1.1.2.600.2.357

[chunlee]

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
  }