home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / mag_discs / 15 / director / !Director / !Run < prev    next >
Text File  |  1994-10-22  |  1KB  |  41 lines
  1. |===========================================================================|
  2. |!Run file for !Director
  3. |(C) Nick Craig-Wood 1994
  4. |===========================================================================|
  5.  
  6. RMEnsure UtilityModule 3.10 Error RISC OS 3.10 or later required for Director
  7.  
  8. If "<Director$Dir>" = "" then Set Run$Path <Run$Path>,Director:Utils.
  9. Set Director$Dir <Obey$Dir>
  10. SetMacro Director$Path <Director$Dir>.
  11. IconSprites Director:!Sprites
  12.  
  13. |---------------------------------------------------------------------------|
  14. |Kill off previous incarnation
  15. |(Done like this so the dying module can complaing without interfering with
  16. |the new version)
  17. |---------------------------------------------------------------------------|
  18.  
  19. SetEval Kill 1
  20. RMEnsure Director 0.00 SetEval Kill 0
  21. If Kill Then RMKill Director
  22. UnSet Kill
  23.  
  24. |---------------------------------------------------------------------------|
  25. |Load utilities
  26. |---------------------------------------------------------------------------|
  27.  
  28. RMEnsure SWIModule 1.00 RMLoad Director:Utils.SWIModule
  29.  
  30. |---------------------------------------------------------------------------|
  31. |Load the module and start the task
  32. |---------------------------------------------------------------------------|
  33.  
  34. WimpTask Director:Director
  35.  
  36. |---------------------------------------------------------------------------|
  37. |Load in menu definitions
  38. |---------------------------------------------------------------------------|
  39.  
  40. DirectorObey Director:Menus.Menu
  41.