Posted to tcl by colin at Fri Aug 10 01:46:56 GMT 2012view raw

  1. variable dir "MOOP"
  2.  
  3. proc ss {} {
  4. set dir MOOP1
  5. source sourced.tcl
  6. }
  7. source sourced.tcl
  8. ss