pd/src desire.tk,1.1.2.600.2.113,1.1.2.600.2.114 - Pd-cvs

19 Dec 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28077
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
fix for can't click on slider in a GOP
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.113
retrieving revision 1.1.2.600.2.114
diff -C2 -d -r1.1.2.600.2.113 -r1.1.2.600.2.114
*** desire.tk	19 Dec 2006 16:40:10 -0000	1.1.2.600.2.113
--- desire.tk	19 Dec 2006 17:15:20 -0000	1.1.2.600.2.114
***************
*** 5092,5098 ****
def Slider click {x y f target} {
! 	mset {type id detail} [$@canvas identify_target $x $y $f]
    if {$type != "object"} {return}
! 	$@canvas focus= $self
    set @click_at [list $x $y]
    set @ovalue $@value
--- 5092,5099 ----
def Slider click {x y f target} {
! 	set canvas [$self get_canvas]
! 	mset {type id detail} [$canvas identify_target $x $y $f]
    if {$type != "object"} {return}
! 	$canvas focus= $self
    set @click_at [list $x $y]
    set @ovalue $@value
***************
*** 5109,5117 ****
    ### keep focus if only clicked. do we want that feature?
    # if {[distance $@click_at [list $x $y]] == 0} {return}
! 	$@canvas focus= ""
  }
def Slider motion {x y f target} {
! 	set focused [$self == [$@canvas focus]]
    if {!$focused} {return}
    mset {clx cly} $@click_at
--- 5110,5120 ----
    ### keep focus if only clicked. do we want that feature?
    # if {[distance $@click_at [list $x $y]] == 0} {return}
! 	set canvas [$self get_canvas]
! 	$canvas focus= ""
  }
def Slider motion {x y f target} {
! 	set canvas [$self get_canvas]
! 	set focused [$self == [$canvas focus]]
    if {!$focused} {return}
    mset {clx cly} $@click_at