| !Blinds V1.27 (10-Mar-2006)
|  Quantum Software
| Written by Alisdair Jrgensen
| Documentation by Stuart Halliday
|
If "<Blinds$Loaded>" = "Yes" Then Set Blinds$Load <Obey$Dir>.Default
If "<Blinds$Loaded>" = "" Then Set Blinds$Dir <Obey$Dir>
IconSprites <Blinds$Dir>.!Sprites
Set Blinds$IconDragged_3FB *Copy |||<Filename> |<Filename>.|||<Leafname> A~C~DF~LNQ~R~S~V
RMEnsure UtilityModule 3.10 Error 0 You need RISC OS 3.10 or later to run !Blinds.
If "<Wimp$ScrapDir>" = "" Then Error 0 I haven't seen !Scrap. Please open a directory display with this application and try again.
Set Blinds$Path <Wimp$ScrapDir>.Blinds.
Set Inserttext <Blinds$Dir>.Inserttext
If "<Blinds$Icon>" = "" Then Set Blinds$Icon On

RMEnsure SharedCLibrary 5.00 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.00 Error You need SharedCLibrary 5.00 or later


RMEnsure Blinds 0.03 RMLoad <Blinds$Dir>.BlindsMod
RMEnsure Blinds 0.03 Error 0 You need V0.03 or later of the Blinds module.
WimpSlot -min 260K -max 260K
If "<Blinds$Loaded>" = "" Then <Blinds$Dir>.Brandy <Blinds$Dir>.!RunImage %*0

