|
| Font setup for Tiles
|  R.I.D.Macfarlane, 1997
| Version 1.02, 16.6.97
|
|
UnSet TilesFontFlag
RMEnsure FontManager  2 RMReInit FontManager
RMEnsure FontManager  2 Echo |J   The Outline Font Manager is not available.|J|M   The system font will be used. 
RMEnsure FontManager  2 SetEval TilesFontFlag 0
|
|
| In RiscOS v2.00 there was no help in displaying the Font Menu
| In RiscOS v3,3.1 there was a problem in displaying the Font Menu
| It was therefore necessary to use J.Rling's utility
| See !Tiles.Utility.FontMenu and ...FntMenuDoc
| 
| Recently (1995/6/7) the Toolbox has included the same entitled
| module which conflicts with J.Rling's utility.
|
| The following allows J.Rling's utility to be loaded and run for versions
| of Font Manager versions less than 3.08 (RiscOS versions 3.10 and below)
| except where the Toolbox module is in use, when a short form of font selection is used.
|
SetEval TilesTest 0
IF "<TilesFontMenu>" = "" THEN SetEval TilesTest -1
IF TilesTest THEN SetEval TilesFontMenu 2
|
| For more recent versions of the FontManager the SWI Font_ListFonts is used.
IF TilesTest THEN RMEnsure FontManager 3.08 SetEval TilesFontMenu 0
|
| Only proceed to load J.Rling's utility if the Toolbox's module is not loaded
IF TilesTest AND TilesFontMenu=0 THEN RMEnsure FontMenu  0    SetEval TilesFontMenu 1
|
IF TilesTest AND TilesFontMenu=1 THEN RMEnsure FontMenu  1.18 RMReInit FontMenu
IF TilesTest AND TilesFontMenu=1 THEN RMEnsure FontMenu  1.18 RMRun <TilesDir>.Utility.FontMenu
| IF J.Rling's FontMenu module is not available for use THEN set flag to use short form
IF TilesTest AND TilesFontMenu=1 THEN RMEnsure FontMenu  1.18 SetEval TilesFontMenu 0
|
| Indicate that this is the first time J.Rling's utility will be used
IF TilesTest AND TilesFontMenu=1 THEN TilesFontMenu=-1
|
UnSet TilesTest
|
