|!Run file for Delirium

Set Delirium$Dir <Obey$Dir>
IconSprites <Delirium$Dir>.!Sprites

|Set up the debugging levels
Set Delirium$Debug "1"

|Where can we find the savers?
Set Delirium$SaversDir <Delirium$Dir>.Savers

|Set Delirium$SaversDir Root:Work.Programs.Delirium.Savers


|Check Toolbox modules are loaded. Version isn't hugely important...

RMEnsure Toolbox      0.00 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox      0.00 Error Delirium requires the Toolbox module

RMEnsure IconBar      0.00 RMLoad System:Modules.Toolbox.IconBar
RMEnsure IconBar      0.00 Error Delirium requires the IconBar Toolbox module

RMEnsure ProgInfo     0.00 RMLoad System:Modules.Toolbox.ProgInfo
RMEnsure ProgInfo     0.00 Error Delirium requires the ProgInfo Toolbox module

RMEnsure Window       0.00 RMLoad System:Modules.Toolbox.Window
RMEnsure Window       0.00 Error Delirium requires the Window Toolbox module

RMEnsure Menu         0.00 RMLoad System:Modules.Toolbox.Menu
RMEnsure Menu         0.00 Error Delirium requires the Menu Toolbox module


|Do the cunning load/show icon bit
Set Delirium$Running "1"
RMEnsure Delirium 2.00 Set Delirium$Running "0"

If "<Delirium$Running>" = "0" Then WimpSlot -min 32K -max 32K
If "<Delirium$Running>" = "0" Then RMLoad <Delirium$Dir>.Delirium 2><Delirium$Dir>.stderr
If "<Delirium$Running>" = "0" Then Delirium_Desktop Else Delirium_ShowIcon
