home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / filemanager / director_1 / !Director / !Run < prev    next >
Text File  |  1995-06-22  |  2KB  |  43 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. If "<Director$Init>" = "" Then Set Director$Init <Machine$Name>
  41. If "<Director$Init>" = "" Then Set Director$Init Default
  42. DirectorObey Director:Menus.<Director$Init>
  43.