[PD-cvs] pd/src desire.tk,1.1.2.600.2.354,1.1.2.600.2.355

[chunlee]

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