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

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 UtilityModule 3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
|RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 Error You need CallASWI 0.02 or later to run Messenger
|RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
|RMEnsure FPEmulator 4.03 Error You need FPEmulator 4.03 or later to run Messenger
|RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
|RMEnsure SharedCLibrary 5.34 Error You need SharedCLibrary 5.34 or later to run Messenger

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 Iconbar    0.00  RMLoad System:modules.toolbox.iconbar
RMEnsure Iconbar    1.13  Error You need iconbar 1.13 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>.
Run <Messenger$Dir>.Resources.ResFind Messenger

|If "<Dictionary$Dir>" = "" Then Error Messenger is unable to find the !Words resource directory

if "<Dictionary$dir>" <> "" then RMEnsure SpellCheck 0.00 run <Messenger$Dir>.Resources.!SpellM

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

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.

Set Messenger$UseZapRedraw 1
RMEnsure ZapRedraw 0.00 If "<Zap$Redraw>" <> "" Then RMLoad <Zap$Redraw>
RMEnsure ZapRedraw 0.00 Set Messenger$UseZapRedraw 0

IconSprites <Messenger$Dir>.!Sprites

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

| set Maximum dynamic area size to 64MB
SetEval Messenger$DynamicAreaSize 64*1024*1024

WimpSlot 736k 736k

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

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