Posted to tcl by mjanssen_ at Fri Jun 29 13:04:44 GMT 2007view raw
- interp create user
- # remove all commands for user
- foreach cmd [user eval {info commands}] {if {$cmd ne "rename"} {user eval [list rename $cmd {}]}}
- interp create main
- main eval {proc test1 {} {test2}}
- main eval {proc test2 {} {puts "yes I can call test2"}}
- interp alias user test1 main test1
- user eval test1
- user eval test2