| !GPDriver.!Launch
|
| In order to get here, the !Boot file must have been executed, so
| there is no need to do any !Boot-type activities here
|
RMEnsure UtilityModule 3.50 Error "GPDriver is only suitable for use with RISC OS 3.50 or later versions"
|
| We still re-read the sprites, since the screen mode could have changed
| We can use 256 colour sprites under RISC OS 4 and above only, so detect RO4.
Set GPDriver$OS4 "True"
RMEnsure UtilityModule 4.00 Set GPDriver$OS4 "False"
If "<GPDriver$OS4>" = "False" Then IconSprites <Obey$Dir>.!Sprites Else IconSprites <Obey$Dir>.4Sprites
Unset GPDriver$OS4
|
RMEnsure Toolbox  0.00 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Window   0.00 RMLoad System:Modules.Toolbox.Window
RMEnsure ProgInfo 0.00 RMLoad System:Modules.Toolbox.ProgInfo
RMEnsure Menu     0.00 RMLoad System:Modules.Toolbox.Menu
WimpSlot -min 900k -max 900k
GPDriver:!RunImage %*0