[PD-cvs] pd/src poe.tcl,1.1.2.2.2.19,1.1.2.2.2.20
Mathieu Bouchard
matju at users.sourceforge.net
Mon Aug 13 04:13:23 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12976
Modified Files:
Tag: desiredata
poe.tcl
Log Message:
def Thing unknown
Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.19
retrieving revision 1.1.2.2.2.20
diff -C2 -d -r1.1.2.2.2.19 -r1.1.2.2.2.20
*** poe.tcl 12 Aug 2007 22:59:36 -0000 1.1.2.2.2.19
--- poe.tcl 13 Aug 2007 02:13:21 -0000 1.1.2.2.2.20
***************
*** 103,116 ****
}
- proc dispatch_error {self args} {
- upvar 1 selector selector class class
- error "no such method '$selector' for object '$self'\nwith ancestors {[Class_ancestors $class]}"
- }
-
proc cache_method {class selector} {
global _ __
set methods {}; set ancestors {}
lookup_method $class $selector methods ancestors
! if {![llength $methods]} {set methods {dispatch_error}}
set __($class:$selector) $methods
return $methods
--- 103,111 ----
}
proc cache_method {class selector} {
global _ __
set methods {}; set ancestors {}
lookup_method $class $selector methods ancestors
! if {![llength $methods]} {set methods [cache_method $class unknown]}
set __($class:$selector) $methods
return $methods
***************
*** 176,179 ****
--- 171,179 ----
def Thing class {} {return $@_class}
+ def Thing unknown {args} {
+ upvar 1 selector selector class class
+ error "no such method '$selector' for object '$self'\nwith ancestors {[Class_ancestors $class]}"
+ }
+
class_new Class
More information about the Pd-cvs
mailing list