| !Run file for Messenger
| Copyright  Mark Sawle, 1995-9

RMEnsure UtilityModule 3.10 Error Messenger requires RISC OS 3.10 or later

Set System$Path_Message Your system resources can not be found.  Please allow the filer to see your !System directory

RMEnsure FilterManager 0.09 RMLoad System:Modules.FilterMgr
RMEnsure FilterManager 0.09 Error You need Filter Manager 0.09 or later to run Messenger

RMEnsure Toolbox    0.00 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox    1.36 Error You need Toolbox 1.36 or later to run Messenger
RMEnsure Window     0.00 RMLoad System:Modules.Toolbox.Window
RMEnsure Window     1.30 Error You need Window 1.30 or later to run Messenger
RMEnsure Menu       0.00 RMLoad System:Modules.Toolbox.Menu
RMEnsure Menu       0.23 Error You need Menu 0.23 or later to run Messenger
RMEnsure FontDbox   0.00 RMLoad System:Modules.Toolbox.FontDbox
RMEnsure FontDbox   0.14 Error You need FontDbox 0.14 or later to run Messenger
RMEnsure ColourDbox 0.00 RMLoad System:Modules.Toolbox.ColourDbox
RMEnsure ColourDbox 0.17 Error You need ColourDbox 0.17 or later to run Messenger
RMEnsure ColourPicker 0.00 RMLoad System:Modules.Picker
RMEnsure ColourPicker 0.31 Error You need ColourPicker 0.31 or later to run Messenger
RMEnsure SaveAs     0.00 RMLoad System:Modules.Toolbox.SaveAs
RMEnsure SaveAs     0.11 Error You need SaveAs 0.11 or later to run Messenger

RMEnsure UtilityModule 3.50 RMEnsure 310Support 0.02 RMLoad System:Modules.310Support.ThreeTen
RMEnsure UtilityModule 3.50 RMEnsure 310Support 0.02 Error You need 310Support 0.02 or later to run Messenger

RMEnsure UtilityModule 3.50 RMEnsure BorderUtils 0.05 RMLoad System:Modules.BorderUtil
RMEnsure UtilityModule 3.50 RMEnsure BorderUtils 0.05 Error You need BorderUtils 0.05 or later to run Messenger

Set Messenger$Dir <Obey$Dir>

If "<Messenger$Path>" = "" Then Set Alias$Open_URI_mailto <Alias$Open_URI_mailto>,<Messenger$Dir>.!Run 
If "<Messenger$Path>" = "" Then Set Alias$Open_URI_news <Alias$Open_URI_news>,<Messenger$Dir>.!Run 

Set Alias$URLOpen_mailto Run <Messenger$Dir>.!Run -url %%*0
Set Alias$URLOpen_news Run <Messenger$Dir>.!Run -url %%*0

Set Messenger$Path <Messenger$Dir>.

If "<Messenger$FontsDir>" = "" Then If "<ZapFontsSource$Path>" <> "" Then Set Messenger$FontsDir ZapFontsSource:
If "<Messenger$FontsDir>" = "" Then If "<Zap$Dir>" <> "" Then Set Messenger$FontsDir <Zap$Dir>.Fonts.

RMEnsure ZapRedraw 0.00 If "<Zap$Redraw>" <> "" Then RMLoad <Zap$Redraw>
RMEnsure ZapRedraw 0.00 RMLoad <Messenger$Dir>.RMStore.ZapRedraw
RMEnsure ZapRedraw 0.30 Error You need ZapRedraw 0.30 or later to run Messenger

RMEnsure SpellCheck 0.00 Obey <Messenger$Dir>.Resources.!SpellMod.!Run

If "<Speak$Dir>" <> "" Then RMEnsure Speak 0.00 RMLoad <Speak$Dir>.speakmod

IconSprites <Messenger$Dir>.!Sprites

Set Newsbase$ClientMessenger <Messenger$Dir>

If "<NewsFind$Dir>" = "" Then Obey <Messenger$Dir>.Resources.!NewsFind.!Boot

WimpSlot 430k 430k

| Amend the following line as shown to enable backtrace logging
|Run <Messenger$Dir>.!RunImage %*0 2>><Messenger$Dir>.Errors

Run <Messenger$Dir>.!RunImage %*0
