pd/src desire.tk,1.1.2.600.2.415,1.1.2.600.2.416 - Pd-cvs

19 Oct 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32428
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
Canvas_key regexp fix
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.415
retrieving revision 1.1.2.600.2.416
diff -C2 -d -r1.1.2.600.2.415 -r1.1.2.600.2.416
*** desire.tk	18 Oct 2007 21:50:36 -0000	1.1.2.600.2.415
--- desire.tk	18 Oct 2007 23:10:15 -0000	1.1.2.600.2.416
***************
*** 4814,4818 ****
    	set obj [$self selection]
    	if {[[$obj class] <= AtomBox]} {
! 			if {[regexp {[[:digit:]]} $key]} {$obj text= $key} {return}
    		$obj edit
    		$obj clear 0
--- 4814,4818 ----
    	set obj [$self selection]
    	if {[[$obj class] <= AtomBox]} {
! 			if {[regexp {^[a-zA-Z0-9~/._]{1}$} $key]} {$obj text= $key} {return}
    		$obj edit
    		$obj clear 0