Posted to tcl by Colin at Mon Jan 19 02:43:28 GMT 2009view raw
- namespace eval parent {
- namespace eval child {
- proc clue {} {
- puts "got a clue"
- }
- namespace export -clear *
- }
- namespace import child::*
- proc try {} {
- clue
- }
- proc trythis {} {
- child::clue
- }
- }
- parent::try
- parent::trythis