home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 October: Mac OS SDK / Dev.CD Oct 96 SDK / Dev.CD Oct 96 SDK2.toast / Development Kits (Disc 2) / OpenDoc Development Framework / Getting Started / MPW Development / MPW Additions / UserStartup•OpenDoc < prev    next >
Encoding:
Text File  |  1996-08-16  |  1.4 KB  |  53 lines  |  [TEXT/MPS ]
  1.  
  2. ## SET UP THE OPENDOC INTERFACES/UTILS PATH
  3.  
  4. if (`exists "{PrefsFolder}OpenDocPath"` == "")
  5.     Set OpenDocDir `GetFileName -d -m "Where is the OpenDoc folder?"∂
  6.                     "{Boot}";Set saveStatus {Status}`
  7.     
  8.     if ( "{OpenDocDir}" != "" )
  9.         Echo "{OpenDocDir}" > "{PrefsFolder}OpenDocPath"
  10.     end
  11. end
  12.  
  13. set OpenDocDir "`catenate "{PrefsFolder}OpenDocPath"`"
  14.  
  15. if (`exists "{OpenDocDir}"` == "")
  16.     Set OpenDocDir `GetFileName -d -m "Where is the OpenDoc folder?"∂
  17.                     "{Boot}";Set saveStatus {Status}`
  18.     
  19.     if ( "{OpenDocDir}" != "" )
  20.         Echo "{OpenDocDir}" > "{PrefsFolder}OpenDocPath"
  21.     end
  22. end
  23.  
  24. Export OpenDocDir
  25.  
  26. ## ADD THE BUILD SUPPORT FOLDER TO THE COMMAND PATH
  27.  
  28. if (`exists "{PrefsFolder}BuildSupportPath"` == "")
  29.     Set OpenDocBuildSupportDir `GetFileName -d -m "Where is the Build Support folder?"∂
  30.                     "{Boot}";Set saveStatus {Status}`
  31.     
  32.     if ( "{OpenDocBuildSupportDir}" != "" )
  33.         Echo "{OpenDocBuildSupportDir}" > "{PrefsFolder}BuildSupportPath"
  34.     end
  35. end
  36.  
  37. set OpenDocBuildSupportDir "`catenate "{PrefsFolder}BuildSupportPath"`"
  38.  
  39. if (`exists "{OpenDocBuildSupportDir}"` == "")
  40.     Set OpenDocBuildSupportDir `GetFileName -d -m "Where is the Build Support folder?"∂
  41.                     "{Boot}";Set saveStatus {Status}`
  42.     
  43.     if ( "{OpenDocBuildSupportDir}" != "" )
  44.         Echo "{OpenDocBuildSupportDir}" > "{PrefsFolder}BuildSupportPath"
  45.     end
  46. end
  47.  
  48. Set Commands "{Commands},{OpenDocBuildSupportDir}"
  49. Export Commands
  50.  
  51. Export OpenDocBuildSupportDir
  52.  
  53.