Posted to tcl by Rothgar at Fri Dec 14 14:46:11 GMT 2007view raw

  1. class T1 {
  2. set host "localhost";
  3. set user "admin";
  4. set pass "password";
  5.  
  6.  
  7. # Functions
  8.  
  9. proc T1 { this host {port 5000} } {
  10. # Constructor
  11. putlog "Constructing";
  12. set ($this,host) $host;
  13. set ($this,port) $port;
  14. }
  15. proc ~T1 {this} {
  16. }
  17. }
  18.  
  19. set server [new T1 "127.0.0.1"];
  20. putlog "TEST: $T1::($server,pass)";
  21.  
  22. pass doesn't get set correctly?