home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / code / desklib / DeskLib / !DeskLib / !Run < prev    next >
Encoding:
Text File  |  1995-07-17  |  1021 b   |  31 lines
  1. | !Run file for !DeskLib (DeskLib compile resources)
  2. | Jason Williams 93
  3. | Julian Smith 18 May 1995
  4.  
  5. | Set up the DeskLib paths etc
  6. Run <Obey$Dir>.!Boot
  7.  
  8.  
  9. | Check the version of the window manager (RISC OS 2 or 3?)
  10.  
  11. Set WindowManager$Version 300
  12. RMEnsure WindowManager 3.00 Set WindowManager$Version 200
  13.  
  14.  
  15. | Open the .h directory with Filer_OpenDir.
  16. | The settings used give a small-icon alphabetically sorted list
  17. | which appears in the top right corner of the screen, which I
  18. | find is more convenient than most other possible settings.
  19. |
  20. | Now compatible with both RISC OS 2 and 3
  21.  
  22. If "<WindowManager$Version>" = "300" Then Filer_CloseDir <Obey$Dir>.h_doc
  23. If "<WindowManager$Version>" = "300" Then WimpSlot -min 32k -max 32k
  24. If "<WindowManager$Version>" = "300" Then <Obey$Dir>.OpenDirH
  25.  
  26. Set Alias$OldOSFudge Filer_CloseDir <Obey$Dir>.h_doc
  27. If "<WindowManager$Version>" = "200" Then OldOSFudge
  28. Set Alias$OldOSFudge Filer_OpenDir <Obey$Dir>.h
  29. If "<WindowManager$Version>" = "200" Then OldOSFudge
  30. UnSet Alias$OldOSFudge
  31.