|
| Glass 1.xx !Run file
|
| © 1994 Straylight
|
| This file version 1.00 (20 March 1994)
|

Set Glass$Dir <Obey$Dir>
IconSprites <Glass$Dir>.!Sprites
Set Alias$Glass Run <Glass$Dir>.!Run %%*0
Set Alias$@RunType_FEC Run <Glass$Dir>.!Run %%*0

/<Glass$Dir>.setSlot -appName Glass 320K 4K

Set Alias$IfUnset If "|<%%0>"="" %%*1
Set Alias$TrySet IfUnset %%0 Then /|<Glass$Dir>.test -file %%1 -isDir -then "Run %%1"

TrySet System$Path <Boot$Dir>.Resources.!System
TrySet System$Path $.!System
IfUnset System$Path Then Error 0 System resources could not be found.  Please double-click a !System folder and reload.

TrySet Wimp$Scrap <System$Dir>.^.!Scrap
IfUnset Wimp$Scrap Then Error 0 Couldn't find Scrap folder.  Please double click a !Scrap folder (or !System if you don't have !Scrap) and reload.

TrySet DLL$Path <System$Dir>.^.!DLLs
IfUnset DLL$Path Then Error 0 Couldn't find Dynamic Link libraries.  Please double click a !DLLs folder and reload.

Unset Alias$IfUnset
Unset Alias$TrySet

Set Alias$_RMEnsure RMEnsure %%0 0.00 RMLoad %%2 |m RMEnsure %%0 %%1

_RMEnsure SharedCLibrary 3.75 System:Modules.CLib
_RMEnsure Sculptrix 2.01 <Glass$Dir>.Modules.Sculptrix
_RMEnsure InterfaceManager 2.00 <Glass$Dir>.Modules.Interface
_RMEnsure WimpExtension 2.18 <Glass$Dir>.Modules.WimpExt
_RMEnsure FPEmulator 2.80 System:Modules.FPEmulator
_RMEnsure DLLManager 1.14 <DLL$Dir>.DLLManager
_RMEnsure ColourTrans 0.51 System:Modules.Colours

Unset Alias$_RMEnsure

DLLEnsure Steel 1.00

/<Glass$Dir>.setSlot -appName Glass 320K 4K

Set Alias$AddCLI If "%%*0"<>"" Then Set Glass$CLI |<Glass$CLI> %%*0
Set Alias$IfRun /<Glass$Dir>.test -file %%0 -isFile -then "Run %%*0"

Set Glass$CLI ""
Set Glass$Image <Glass$Dir>.!RunImage
IfRun <Glass$Dir>.Setup %*0
If "<Glass$CLI>"="" Then Set Glass$CLI "%*0"

Unset Alias$IfRun
Unset Alias$AddCLI

Set Alias$_Glass Unset Alias$_Glass |m Run <Glass$Image> <Glass$CLI>
Unset Glass$CLI
Unset Glass$Image
_Glass