[PD-cvs] pd/src desire.tk, 1.1.2.600.2.239, 1.1.2.600.2.240 defaults.ddrc, 1.1.2.10.2.13, 1.1.2.10.2.14

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31974

Modified Files:
      Tag: desiredata
	desire.tk defaults.ddrc 
Log Message:
small fix to previous commit on pointer sensitivity


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.239
retrieving revision 1.1.2.600.2.240
diff -C2 -d -r1.1.2.600.2.239 -r1.1.2.600.2.240
*** desire.tk	15 Jul 2007 12:40:10 -0000	1.1.2.600.2.239
--- desire.tk	15 Jul 2007 13:16:23 -0000	1.1.2.600.2.240
***************
*** 2973,2979 ****
  	return [lindex $ios $idx]
  }
! def Canvas pointer_sense {} {return $::look(Client:pointer_sense)}
  def Canvas pointer_sense= {sense} {
! 	set ::look(Client:pointer_sense) $sense
  	mset {x y} $@curpos
  	$@sense flash $x $y $sense "red"
--- 2973,2979 ----
  	return [lindex $ios $idx]
  }
! def Canvas pointer_sense {} {return [$self look pointer_sense]}
  def Canvas pointer_sense= {sense} {
! 	set ::look(Canvas:pointer_sense) $sense
  	mset {x y} $@curpos
  	$@sense flash $x $y $sense "red"
***************
*** 7577,7581 ****
      integer Client console
      choice View language
!     integer Client pointer_sense
  }
  
--- 7577,7581 ----
      integer Client console
      choice View language
!     integer Canvas pointer_sense
  }
  
***************
*** 7711,7715 ****
  				switch $name {
  					console {set @$name $look(Client:console)}
! 					pointer_sense {set @$name $look(Client:pointer_sense)}
  					default {}
  				}
--- 7711,7715 ----
  				switch $name {
  					console {set @$name $look(Client:console)}
! 					pointer_sense {set @$name $look(Canvas:pointer_sense)}
  					default {}
  				}

Index: defaults.ddrc
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/defaults.ddrc,v
retrieving revision 1.1.2.10.2.13
retrieving revision 1.1.2.10.2.14
diff -C2 -d -r1.1.2.10.2.13 -r1.1.2.10.2.14
*** defaults.ddrc	15 Jul 2007 12:40:14 -0000	1.1.2.10.2.13
--- defaults.ddrc	15 Jul 2007 13:16:25 -0000	1.1.2.10.2.14
***************
*** 8,12 ****
    Client {
      console 666
-     pointer_sense 5
    }
    Box {
--- 8,11 ----
***************
*** 14,17 ****
--- 13,17 ----
    }
    Canvas {
+     pointer_sense 5
      bgedit #dddddd
      bgrun #ffffff