[PD-cvs] pd/src desire.tk,1.1.2.600.2.417,1.1.2.600.2.418

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
small fix to atombox selection in runmode


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.417
retrieving revision 1.1.2.600.2.418
diff -C2 -d -r1.1.2.600.2.417 -r1.1.2.600.2.418
*** desire.tk	19 Oct 2007 16:29:31 -0000	1.1.2.600.2.417
--- desire.tk	20 Oct 2007 12:15:52 -0000	1.1.2.600.2.418
***************
*** 4322,4325 ****
--- 4322,4326 ----
  
  def Canvas click_runmode {id x y f target} {
+ 	foreach obj [$self selection] {if {[[$obj class] <= AtomBox]} {$obj unedit}}
  	$self deselect_all
  	#if {$@focus != ""} {if {[[$@focus class] <= TextBox]} {$self selection-= $@focus;$@focus unedit}}