Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2815
Modified Files: Tag: desiredata poe.tcl Log Message: rename command in case of name conflict (useful for wrapping tk objects using poe objects)
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.20 retrieving revision 1.1.2.2.2.21 diff -C2 -d -r1.1.2.2.2.20 -r1.1.2.2.2.21 *** poe.tcl 13 Aug 2007 02:13:21 -0000 1.1.2.2.2.20 --- poe.tcl 13 Aug 2007 03:18:07 -0000 1.1.2.2.2.21 *************** *** 126,129 **** --- 126,130 ---- } proc setup_dispatcher {self} { + if {[llength [info commands $self]]} {rename $self old_$self} proc $self {selector args} [regsub -all {$self} $::dispatch $self] }