Posted to tcl by mjanssen at Mon Sep 26 09:13:26 GMT 2022view raw

  1. namespace eval test {
  2. proc init {} {
  3. after 2000
  4. interp alias {} ::test::test {} ::test::_test
  5. interp alias {} ::test::test2 {} ::test::_test2
  6. }
  7. proc _test {} {
  8. puts test
  9. }
  10. proc _test2 {} {
  11. puts test2
  12. }
  13. interp alias {} ::test::test {} ::test::init
  14. interp alias {} ::test::test2 {} ::test::init
  15. }
  16.  
  17. test::test
  18. test::test
  19. test::test2