| > !GraphDraw.!Run
|
| Run file for GraphDraw
|
| by Chris Johnson
|
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
|
| Follow PRM (4:497) advice and prevent multiple running
|
|If "<GraphDraw$Running>" = "yes" Then Error GraphDraw is already running
|
|
IconSprites <Obey$Dir>.!Sprites
Set Alias$@RunType_7F3 /<Obey$Dir>.!Run %%*0
Set File$Type_7F3 GraphFile
Set Alias$@RunType_A9F /<Obey$Dir>.!Run %%*0
Set File$Type_A9F GraphDrw
|
| Find path to file
Set GraphDraw$Dir <Obey$Dir>
|
If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
|
Set rm$Path system:modules.,<GraphDraw$Dir>.rm.
|
RMEnsure Toolbox    0.00  RMLoad System:modules.toolbox.toolbox
RMEnsure Toolbox    1.36  ERROR You need Toolbox 1.36 or later to run GraphDraw
RMEnsure Window     0.00  RMLoad System:modules.toolbox.window
RMEnsure Window     1.31  ERROR You need Window 1.31 or later to run GraphDraw
RMEnsure ColourDbox 0.00  RMLoad System:modules.toolbox.colourdbox
RMEnsure ColourDbox 0.15  ERROR You need ColourDbox 0.15 or later to run GraphDraw
RMEnsure FontMenu   0.00  RMLoad System:modules.toolbox.fontmenu
RMEnsure FontMenu   0.21  ERROR You need FontMenu 0.22 or later to run GraphDraw
RMEnsure Menu       0.00  RMLoad System:modules.toolbox.menu
RMEnsure Menu       0.23  ERROR You need Menu 0.23 or later to run GraphDraw
RMEnsure Iconbar    0.00  RMLoad System:modules.toolbox.iconbar
RMEnsure Iconbar    1.11  ERROR You need Iconbar 1.11 or later to run GraphDraw
RMEnsure ProgInfo   0.00  RMLoad System:modules.toolbox.proginfo
RMEnsure ProgInfo   0.05  ERROR You need ProgInfo 0.05 or later to run GraphDraw
RMEnsure SaveAs     0.00  RMLoad System:modules.toolbox.saveas
RMEnsure SaveAs     0.11  ERROR You need SaveAs 0.11 or later to run GraphDraw
RMEnsure DCS	    0.00 RMLoad System:modules.toolbox.DCS_Quit
RMEnsure DCS        1.08 ERROR You need DCS_Quit 1.09 or later to run GraphDraw


set temp$flag 1
RMEnsure ABCLibrary 0 set temp$flag 0
RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad rm:ABCLib
RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
|
set temp$flag 1
RMEnsure CJWimpUtil 0 set temp$flag 0
RMEnsure CJWimpUtil 0.23 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad rm:cjWimpUtil
RMEnsure CJWimpUtil 0.23 Error You need the CJWimpUtil module installed
|
set temp$flag 1
RMEnsure CJdrawUtil 0 set temp$flag 0
RMEnsure CJdrawUtil 0.24 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad rm:cjdrawUtil
RMEnsure CJdrawUtil 0.24 Error You need the CJdrawUtil module installed
|
unset temp$flag
unset rm$Path
||
| Set up variables which affect slot size
set GraphDraw$DataSetSize 200
| Check memory allocation
WimpSlot -min 356K -max 356K
|
| Set up variables which affect slot size
|set GraphDraw$DataSetSize 300
| Check memory allocation
|WimpSlot -min 408K -max 408K
|
| Set up variables which affect slot size
|set GraphDraw$DataSetSize 400
| Check memory allocation
|WimpSlot -min 480K -max 480K
|
| Set up variables which affect slot size
|set GraphDraw$DataSetSize 500
| Check memory allocation
|WimpSlot -min 560K -max 560K
|
| Now start program
Run <GraphDraw$Dir>.!RunImage %*0
