| !Boot file for !Grimoire

If (("<Boot$OSVersion>" >= "500") AND ("<Boot$OSVersion>" < "600")) Then IconSprites <Obey$Dir>.5Sprites Else If "<Boot$OSVersion>" >= "400" Then IconSprites <Obey$Dir>.4Sprites Else IconSprites <Obey$Dir>.!Sprites

Set Grimoire$Dir <Obey$Dir>

Set Grimoire$Help <Grimoire$Dir>.!Help

| { Sourcery generated help details

Set Grimoire$Version "1.00"
Set Grimoire$Web "http://www.reallysmall.co.uk"
Set Grimoire$Title "Grimoire"
Set Grimoire$Publisher "The Really Small Software Company"
Set Grimoire$Description "Code editor"
| }

| Register as the OLE editor for text and source files no other editor has
If "<OLEServer$Type_fff>" = "" Then Set OLEServer$Type_fff -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_feb>" = "" Then Set OLEServer$Type_feb -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_fd7>" = "" Then Set OLEServer$Type_fd7 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_f80>" = "" Then Set OLEServer$Type_f80 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_faf>" = "" Then Set OLEServer$Type_faf -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_ffb>" = "" Then Set OLEServer$Type_ffb -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_ae5>" = "" Then Set OLEServer$Type_ae5 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_f79>" = "" Then Set OLEServer$Type_f79 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_f81>" = "" Then Set OLEServer$Type_f81 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_f74>" = "" Then Set OLEServer$Type_f74 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_ce5>" = "" Then Set OLEServer$Type_ce5 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_2a8>" = "" Then Set OLEServer$Type_2a8 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_102>" = "" Then Set OLEServer$Type_102 -R /<Grimoire$Dir> -N Grimoire
If "<OLEServer$Type_fe1>" = "" Then Set OLEServer$Type_fe1 -R /<Grimoire$Dir> -N Grimoire

| Edit and run text files with Grimoire unless another editor has claimed
| them. Each alias is copied into Grimoire$Type first, because an unset
| variable can't be tested by name. The test is written "Then Else" because
| the RunType macro has an Else of its own, which If would take as its own.
Set Grimoire$Type <Alias$@EditType_FFF>
If Grimoire$Type <> "" Then Else Set Alias$@EditType_FFF /<Grimoire$Dir> %%*0
Set Grimoire$Type <Alias$@RunType_FFF>
If Grimoire$Type <> "" Then Else SetMacro Alias$@RunType_FFF If "<Wimp$State>"="commands" Then Type %%*0 Else /<Grimoire$Dir> %%*0
Unset Grimoire$Type

