home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / unique.tcl < prev    next >
Text File  |  2000-11-02  |  299b  |  18 lines
  1. # unique.tcl --
  2. #
  3. # This library uses a last generation, military-grade algorithm to 
  4. # generate unique identifiers
  5.  
  6. package provide unique 1.0
  7. namespace eval unique {
  8.     variable counter 0
  9. }
  10.  
  11.  
  12. proc unique::newId {} {
  13.     variable counter
  14.     return id[incr ::unique::counter]
  15. }
  16.  
  17.  
  18.