[PD-cvs] pd/src poe.tcl,1.1.2.2.2.5,1.1.2.2.2.6

Mathieu Bouchard matju at users.sourceforge.net
Wed Dec 13 07:40:02 CET 2006


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

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
errorCode isn't so useful after all


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.5
retrieving revision 1.1.2.2.2.6
diff -C2 -d -r1.1.2.2.2.5 -r1.1.2.2.2.6
*** poe.tcl	6 Dec 2006 19:38:25 -0000	1.1.2.2.2.5
--- poe.tcl	13 Dec 2006 06:40:00 -0000	1.1.2.2.2.6
***************
*** 70,77 ****
  	set _($self:subclasses) {}
  	foreach sup $super {lappend _($sup:subclasses) $self}
! 	proc ${self}_new {args} "
! 		global nextid _
! 		set self \[format o%07x \$nextid\]
! 		incr nextid
  		set _(\$self:_class) $self
  		setup_dispatcher \$self
--- 70,76 ----
  	set _($self:subclasses) {}
  	foreach sup $super {lappend _($sup:subclasses) $self}
! 	proc ${self}_new {args} "global _
! 		set self \[format o%07x \$::nextid\]
! 		incr ::nextid
  		set _(\$self:_class) $self
  		setup_dispatcher \$self
***************
*** 79,84 ****
  		return \$self
  	"
! 	proc ${self}_new_as {self args} "
! 		global _
  		if {\[info exists _(\$self:_class)\]} {error \"object '\\$self' already exists\" }
  		set _(\$self:_class) $self
--- 78,82 ----
  		return \$self
  	"
! 	proc ${self}_new_as {self args} "global _
  		if {\[info exists _(\$self:_class)\]} {error \"object '\\$self' already exists\" }
  		set _(\$self:_class) $self
***************
*** 208,213 ****
  }
  proc error_dump {} {
! 	global errorCode
! 	puts "[VTred]Exception:[VTgrey] errorCode=$errorCode; errorInfo=[error_text]"
  }
  
--- 206,210 ----
  }
  proc error_dump {} {
! 	puts "[VTred]Exception:[VTgrey] errorInfo=[error_text]"
  }
  





More information about the Pd-cvs mailing list