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