|> !Run
|
|  Execution file for !ArtWorks
|
|  (c) 1992-1994 Computer Concepts Ltd.
|
Set TopDraw$Dir <Obey$Dir>
Set ArtWorks$Dir <Obey$Dir>
WimpSlot -min 352k -max 352k
Run <ArtWorks$Dir>.RiscOSV

Filer_Run <ArtWorks$Dir>.CCMemHack

| If CCShared not yet set up then set it up...
|
SetEval Flag 0
<ArtWorks$Dir>.FileEnsure <ArtWorks$Dir>.Flag Flag
If "<CCShared$Dir>"="" AND Flag Then Obey <ArtWorks$Dir>.!BootShare
Unset Flag

|  Look for ABI in the !System directory.  If it's not there then try to load
|  it from inside the application...
|
SetEval SysABI 0
RMEnsure ABI 2.73 SetEval SysABI -1
IF "<System$Path>"="" Then SetEval SysABI 0
If SysABI Then Run <ArtWorks$Dir>.FileEnsure System:Modules.ABIMod SysABI
If SysABI Then RMEnsure ABI 2.73 RMLoad System:Modules.ABIMod
If SysABI Then RMEnsure ABI 2.73 Error "The copy of ABIModule in !System is out of date. Please refer to the section 'Updating ABI' in the manual."
RMEnsure ABI 2.73 RMLoad <ArtWorks$Dir>.RMStore.ABIMod
RMEnsure ABI 2.73 Error "The copy of ABI used by ArtWorks is out of date. ArtWorks may have been incorrectly installed. Please re-install ArtWorks or seek technical help."
Unset SysABI

|  Ensure we have all the modules we will need.
|  They preferably come from !CCShared but fallback to <ArtWorks$Dir>.RMStore
|
Set RunApp$Name ArtWorks
<ArtWorks$Dir>.RMShare ImageExtnd ImageExtend 0.80 <ArtWorks$Dir>.RMStore
<ArtWorks$Dir>.RMShare GDraw GDraw 2.95 <ArtWorks$Dir>.RMStore
<ArtWorks$Dir>.RMShare FontDraw FontDraw 1.07 <ArtWorks$Dir>.RMStore
<ArtWorks$Dir>.RMShare CCSquash StreamSquash 0.64 <ArtWorks$Dir>.RMStore
<ArtWorks$Dir>.RMShare SpriteExt GSpriteExtend 0.67 <ArtWorks$Dir>.RMStore

|RMEnsure CCWord 0.45 RMLoad <ArtWorks$Dir>.RMStore.CCWord

IF RiscOS$Version = 200 THEN Obey <ArtWorks$Dir>.EnsureRO2
IF RiscOS$Version = 300 THEN Obey <ArtWorks$Dir>.EnsureRO3

<ArtWorks$Dir>.RMShare DitherExt DitherExtend 0.45 <ArtWorks$Dir>.RMStore
Unset RunApp$Name

SetEval LocalFonts 0
<ArtWorks$Dir>.FileEnsure <ArtWorks$Dir>.ArtFonts.AvantG.Book.IntMetrics LocalFonts
If LocalFonts Then <ArtWorks$Dir>.FInstall <ArtWorks$Dir>.ArtFonts.
UnSet LocalFonts

IconSprites <ArtWorks$Dir>.!Sprites

Set File$Type_D94 ArtWork
Set File$Type_D95 ArtWkMod
Set File$Type_D8E ABIDefs
Set Alias$@RunType_D94 Run <ArtWorks$Dir>.!Run %%*0
Set Alias$@RunType_D95 Error 0 "You cannot run an ArtWorks module without running ArtWorks!"

Run "<ArtWorks$Dir>.!RunImage" %*0