[PD-cvs] pd/src desire.tk,1.1.2.600.2.415,1.1.2.600.2.416

[chunlee]

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