Posted to tcl by apw at Tue Jul 24 12:22:41 GMT 2007view raw

  1. namespace eval ::cl1 {
  2. proc m1 {str}{
  3. puts "::cl1::m1 called with str: $str!"
  4. }
  5. }
  6.  
  7. interp alias {} ::cl1::m2 {} m1
  8.  
  9. namespace eval ::cl1 {
  10. m2 "Hello World"
  11. }