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]" }