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