home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / mag_discs / volume_9 / issue_06 / clark / !FasterAct / !Run < prev    next >
Text File  |  1995-12-17  |  1KB  |  29 lines
  1. | Run file for FasterAction
  2. | (c) 1995 Ian Clark
  3. |
  4. If "<OldAct$Path>"<>"" Then Error Faster Act has been loaded, if the program has crashed then run the file called '!Reload' inside the !FasterAct directory.
  5.  
  6. | This is necessary because otherwise the filer action window looses it's templates!
  7.  
  8. Set FasterAct$Dir <Obey$Dir>
  9. UnSet Obey$Dir
  10.  
  11. | Check for Risc OS 3.5/6, we need different templates, thanks Acorn!
  12. Set RPC$Flag 1
  13. RMEnsure WindowManager 3.17 Set RPC$Flag 0
  14.  
  15. | Must load Border Utils module as we use 3D templates
  16. | Check first in system and then in our dir
  17.  
  18. Set FATemp$Path <FasterAct$Dir>.Resources.,System:Modules.
  19. RMEnsure BorderUtils 0.05 RMEnsure WindowManager 3.17 RMLoad FATemp:BorderUtil
  20. RMEnsure BorderUtils 0.05 RMEnsure WindowManager 3.17 Error 0,I need to be able to find a copy of the 'BorderUtils' module. There should be one inside !FasterAct.Resources
  21. Unset FATemp$Path
  22.  
  23. | Note old filer action resources path.
  24. Set OldAct$Path <FilerAct$Path>
  25. IF "<RPC$Flag>" = "0" Then Set FilerAct$Path <FasterAct$Dir>.Resources.FilerAct.,<FilerAct$Path> Else Set FilerAct$Path <FasterAct$Dir>.Resources.RPCAct.,<FilerAct$Path>
  26. Unset RPC$Flag
  27.  
  28. WimpSlot -min 32k -max 32k
  29. /<FasterAct$Dir>.Resources.!Intro