home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume17 / tcl-editor / part02 / tclLib / startup.tcl < prev    next >
Encoding:
Text File  |  1992-03-18  |  338 b   |  16 lines
  1. if [file exists ~/.ptrc] then {
  2.     source ~/.ptrc
  3. } else {
  4.     if [file exists ./ptsetup.tcl] then {
  5.         source ./ptsetup.tcl
  6.     } else {
  7.         global PointTclLibrary
  8.         if [file exists $PointTclLibrary/ptsetup.tcl] {
  9.             source $PointTclLibrary/ptsetup.tcl
  10.         } else {
  11.             puts stderr \
  12.                 "CANNOT FIND A STARTUP FILE. POINT WILL NOT WORK."
  13.         }
  14.     }
  15. }
  16.