[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