mdw@git.distorted.org.uk Git - ssr/blob - StraySrc/Glass/!Glass/!Run,feb

   1 |
   2 | Glass 1.xx !Run file
   3 |
   4 | © 1994 Straylight
   5 |
   6 | This file version 1.00 (20 March 1994)
   7 |
   8
   9 Set Glass$Dir <Obey$Dir>
  10 IconSprites <Glass$Dir>.!Sprites
  11 Set Alias$Glass Run <Glass$Dir>.!Run %%*0
  12 Set Alias$@RunType_FEC Run <Glass$Dir>.!Run %%*0
  13
  14 /<Glass$Dir>.setSlot -appName Glass 320K 4K
  15
  16 Set Alias$IfUnset If "|<%%0>"="" %%*1
  17 Set Alias$TrySet IfUnset %%0 Then /|<Glass$Dir>.test -file %%1 -isDir -then "Run %%1"
  18
  19 TrySet System$Path <Boot$Dir>.Resources.!System
  20 TrySet System$Path $.!System
  21 IfUnset System$Path Then Error 0 System resources could not be found.  Please double-click a !System folder and reload.
  22
  23 TrySet Wimp$Scrap <System$Dir>.^.!Scrap
  24 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.
  25
  26 TrySet DLL$Path <System$Dir>.^.!DLLs
  27 IfUnset DLL$Path Then Error 0 Couldn't find Dynamic Link libraries.  Please double click a !DLLs folder and reload.
  28
  29 Unset Alias$IfUnset
  30 Unset Alias$TrySet
  31
  32 Set Alias$_RMEnsure RMEnsure %%0 0.00 RMLoad %%2 |m RMEnsure %%0 %%1
  33
  34 _RMEnsure SharedCLibrary 3.75 System:Modules.CLib
  35 _RMEnsure Sculptrix 2.01 <Glass$Dir>.Modules.Sculptrix
  36 _RMEnsure InterfaceManager 2.00 <Glass$Dir>.Modules.Interface
  37 _RMEnsure WimpExtension 2.18 <Glass$Dir>.Modules.WimpExt
  38 _RMEnsure FPEmulator 2.80 System:Modules.FPEmulator
  39 _RMEnsure DLLManager 1.14 <DLL$Dir>.DLLManager
  40 _RMEnsure ColourTrans 0.51 System:Modules.Colours
  41
  42 Unset Alias$_RMEnsure
  43
  44 DLLEnsure Steel 1.00
  45
  46 /<Glass$Dir>.setSlot -appName Glass 320K 4K
  47
  48 Set Alias$AddCLI If "%%*0"<>"" Then Set Glass$CLI |<Glass$CLI> %%*0
  49 Set Alias$IfRun /<Glass$Dir>.test -file %%0 -isFile -then "Run %%*0"
  50
  51 Set Glass$CLI ""
  52 Set Glass$Image <Glass$Dir>.!RunImage
  53 IfRun <Glass$Dir>.Setup %*0
  54 If "<Glass$CLI>"="" Then Set Glass$CLI "%*0"
  55
  56 Unset Alias$IfRun
  57 Unset Alias$AddCLI
  58
  59 Set Alias$_Glass Unset Alias$_Glass |m Run <Glass$Image> <Glass$CLI>
  60 Unset Glass$CLI
  61 Unset Glass$Image
  62 _Glass