Posted to tcl by colin at Mon Mar 23 06:24:55 GMT 2009view raw

  1. interp create I
  2. I eval {
  3. proc x {args} {return "Moop $args"}
  4. }
  5. interp hide I x
  6. puts [I invokehidden x 1]