home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / _catalogue / _run < prev    next >
Text File  |  1999-04-12  |  600b  |  24 lines
  1. | !RUN file for !Catalogue
  2. | (C) 1997-99 by M.S Cook, M. Smith and T. Hughes
  3. |
  4. Set Catalogue$Dir <Obey$Dir>
  5. IconSprites <Catalogue$Dir>.!Sprites
  6. |
  7. | Make sure ArcFS is running
  8. |
  9. RMEnsure ArcFS 0.73 Filer_Run <Catalogue$Dir>.^.!ArcFS
  10. |
  11. | Run the ArcWeb setup script unless we've already seen !Browse
  12. |
  13. If "<Browse$Dir>" = "" Then Filer_Run <Catalogue$Dir>.!AWSetup
  14. |
  15. | Make sure our support module is loaded
  16. |
  17. RMEnsure ACSupport 1.00 WimpTask <Catalogue$Dir>.ACSupport
  18. |
  19. | And Display Main Index
  20. |
  21. Set Alias$CatalogueRun Filer_Run <Catalogue$Dir>.Catalogue.Index
  22. CatalogueRun
  23. Unset Alias$CatalogueRun
  24.