Posted to tcl by kbk at Wed Jan 01 16:58:11 GMT 2020view raw

  1. namespace eval jobManager {
  2. namespace export display
  3. variable count 0
  4. proc display {} {
  5. variable count
  6. return [incr count]
  7. }
  8. }
  9. puts [jobManager::count]
  10. puts [jobManager::count]