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

namespace eval test {
    proc init {} {
        after 2000
        interp alias {} ::test::test {} ::test::_test
         interp alias {} ::test::test2 {} ::test::_test2
    }
    proc _test {} {
       puts test
    }
    proc _test2 {} {
       puts test2
    }
    interp alias {} ::test::test {} ::test::init
    interp alias {} ::test::test2 {} ::test::init
}

test::test
test::test
test::test2