| >!Run file for PhotoFiler
| by David Thomas,  1998

IconSprites <Obey$Dir>.!Sprites

RMEnsure UtilityModule 3.50 Error PhotoFiler requires RISC OS 3.5 or later

RMEnsure SpriteExtend  0.99 RMLoad System:Modules.SpriteExt
RMEnsure SpriteExtend  0.99 Error PhotoFiler requires SpriteExtend 0.99 or later
RMEnsure DrawFile      1.30 RMLoad System:Modules.DrawFile
RMEnsure DrawFile      1.30 Error PhotoFiler requires DrawFile 1.30 or later

IconSprites <Obey$Dir>.Sprites
Set PhotoFiler$Dir <Obey$Dir>

WimpSlot -min 24K -max 24K

RMEnsure WimpSWIVe 0.00 RMLoad <PhotoFiler$Dir>.WimpSWIVe
RMEnsure WimpSWIVe 0.04 Error PhotoFiler requires WimpSWIVe 0.05 or later

Run <PhotoFiler$Dir>.Library.IfRunning
Run <PhotoFiler$Dir>.Library.PhotoCheck

RMEnsure PhotoFiler 1.00 RMLoad <PhotoFiler$Dir>.PhotoFiler
RMEnsure PhotoFiler 1.00 Error PhotoFiler module is missing!

If "<Choices$Write>" = "" Then SetMacro PhotoFiler$Choices <PhotoFiler$Dir>.Choices Else SetMacro PhotoFiler$Choices <Choices$Dir>.PhotoFiler

WimpSlot -min 16K -max 16K

| Append '-autoquit' to the next line to
| make the front-end exit automatically.
Run <PhotoFiler$Dir>.!RunImage %*0