| PrtInfo-Runfile V 1.07
| Generated 11-07-2004 T. Milius
| Changed   11-19-2005 T. Milius
|
<Obey$Dir>.!Boot
| Toolbox Ressources check
RMEnsure Toolbox 1.43 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox 1.43 Error You need Toolbox 1.43 or higher to run !PrtInfo
RMEnsure Window  0.00  RMLoad System:modules.toolbox.window
RMEnsure Window  1.17  Error You need Window 1.17 or higher to run !PrtInfo
RMEnsure Menu  0.00  RMLoad System:modules.toolbox.menu
RMEnsure Menu  0.13  Error You need Menu 0.13 or higher to run !PrtInfo
RMEnsure ProgInfo  0.00  RMLoad System:modules.toolbox.proginfo
RMEnsure Proginfo  0.00  Error You need Proginfo or higher to run !PrtInfo
RMEnsure IconBar  0.00  RMLoad System:modules.toolbox.IconBar
RMEnsure IconBar  0.00  Error You need IconBar or higher to run !PrtInfo
| Check for !Printers
If "<Printers$Dir>" = "" Then Error Can't locate !Printers
| Check whether already running
If "<PrtInfo$Running>" <> "" Then Error PrtInfo is already running
Set PrtInfo$Running Yes
| Generate directories etc.
IfThere <Wimp$ScrapDir>.PrtInfo Then Else CDir <Wimp$ScrapDir>.PrtInfo
IfThere <Choices$Dir>.PrtInfo Then Else CDir <Choices$Write>.PrtInfo
IfThere <Choices$Dir>.PrtInfo.PrtAlias Then Else Copy <PrtInfo$Dir>.Resources.ChoicePAli <Choices$Write>.PrtInfo.PrtAlias ~C~V
IfThere <Choices$Dir>.PrtInfo.Settings Then Else Copy <PrtInfo$Dir>.Resources.Settings <Choices$Write>.PrtInfo.Settings ~C~V
| Program start
WimpSlot -min 160k
Run <PrtInfo$Dir>.!RunImage
UnSet PrtInfo$Running
