[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