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}}