[PD-cvs] pd/src poe.tcl,1.1.2.2.2.20,1.1.2.2.2.21
Mathieu Bouchard
matju at users.sourceforge.net
Mon Aug 13 05:18:09 CEST 2007
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]
}
More information about the Pd-cvs
mailing list