home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 13_7.tcl < prev    next >
Text File  |  2003-04-16  |  385b  |  17 lines
  1. #
  2. # Example 13-7
  3. # Using info script to find related files.
  4. #
  5.  
  6. # Get the directory containing the current script.
  7. set dir [file dirname [info script]]
  8.  
  9. # Source a file in the same directory
  10. source [file join $dir helper.tcl]
  11.  
  12. # Add an adjacent script library directory to auto_path
  13. # The use of ../lib with file join is cross-platform safe.
  14. lappend auto_path [file join $dir ../lib]
  15.  
  16.  
  17.