Posted to tcl by Rothgar at Fri Dec 14 14:20:57 GMT 2007view raw

  1. class T1 {
  2. proc T1 {this} {
  3. putlog "Contructing";
  4. }
  5. proc ~T1 {this} {
  6. putlog "Destructing";
  7. }
  8. }
  9.  
  10. set server [new T1];
  11.  
  12.  
  13.  
  14. [06:05] invalid command name "T1::T1"
  15. while executing
  16. "T1::T1 1"
  17. ("uplevel" body line 1)
  18. invoked from within
  19. "uplevel 1 $constructor [set id [incr newId]] $args"
  20. (procedure "new" line 29)
  21. invoked from within
  22. "new T1"
  23. invoked from within
  24. "set server [new T1]"
  25.  
  26.