[PD-cvs] pd/src poe.tcl,1.1.2.2.2.11,1.1.2.2.2.12

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21386

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
add self in __args()


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.11
retrieving revision 1.1.2.2.2.12
diff -C2 -d -r1.1.2.2.2.11 -r1.1.2.2.2.12
*** poe.tcl	23 Jan 2007 18:17:32 -0000	1.1.2.2.2.11
--- poe.tcl	23 Jan 2007 19:03:38 -0000	1.1.2.2.2.12
***************
*** 53,66 ****
  }
  
! proc def {self selector args body} {
  	global _ __trace __args
  	if {![info exists _($self:_class)]} {error "unknown class '$self'"}
  	set name ${self}_$selector
  	if {[info exists __trace($self:$selector)]} {
! 		proc* $name "self $args" "global _; [expand_macros $body]"
  	} {
! 		proc  $name "self $args" "global _; [expand_macros $body]"
  	}
! 	set __args($name) $args
  	#trace add execution ${self}_$selector enter dedebug
  }
--- 53,67 ----
  }
  
! proc def {self selector argnames body} {
  	global _ __trace __args
  	if {![info exists _($self:_class)]} {error "unknown class '$self'"}
  	set name ${self}_$selector
+ 	set argnames [concat [list self] $argnames]
  	if {[info exists __trace($self:$selector)]} {
! 		proc* $name $argnames "global _; [expand_macros $body]"
  	} {
! 		proc  $name $argnames "global _; [expand_macros $body]"
  	}
! 	set __args($name) $argnames
  	#trace add execution ${self}_$selector enter dedebug
  }