home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c / charges / !Charges / !Run < prev    next >
Encoding:
Text File  |  1994-03-12  |  2.1 KB  |  45 lines

  1. | !Run file for Charges
  2. | by R.G.Hallas
  3. |
  4. IF "<Charges$Running>"="Yes" THEN ERROR 0 You may only use one copy of Charges at once.
  5. Set Charges$Dir <Obey$Dir>
  6. Set Charges$Colours 17
  7. | Two hexadecimal digits corresponding to the wimp colours to be used for
  8. | the background and foreground colours (respectively) of the text line
  9. | beneath the Charges icon on the icon bar.
  10. |
  11. IconSprites <Charges$Dir>.!Sprites
  12. IconSprites <Charges$Dir>.IconBar
  13. IF "<System$Path>"="" THEN ERROR 0 System resources cannot be found
  14. RMEnsure InterfaceManager 0 RMLoad System:Modules.Interface
  15. RMEnsure InterfaceManager 2.00 ERROR 0 The copy of the Interface Manager module in your !System is out of date. Please replace it with the copy to be found in the !Charges.Resources directory.
  16. |
  17. 3DColours 4 0 1 14 12
  18. | The above command will force the new Interface Manager II to use
  19. | the standard colours associated with version I for all applications,
  20. | i.e. grey and white rather than the excessively stark black and white.
  21. | Comment the line out (with a | character) if you don't want this to
  22. | happen. You may feel, though, as I do, that you want all your
  23. | existing applications which use Interface to retain their old colours.
  24. | If so, you should specifically load Interface when you start the machine
  25. | (preferably in a boot-up sequence), and after loading it issue the above
  26. | 3DColours command. This will force the normal colours to be used by all
  27. | Interface applications.
  28. |
  29. | N.B. The documentation for Interface says that the default colours are
  30. | the ones given in the above command. In fact, version 2.00 of the module
  31. | uses default colours 7 0 1 14 12, which may be a small bug. Either that
  32. | or the documentation's wrong. Either way, it gives black and white
  33. | borders as opposed to the expected grey and white ones.
  34. |
  35. RMEnsure MessageTrans 0 RMLoad System:Modules.MsgTrans
  36. |
  37. Obey <Charges$Dir>.!Country
  38. | Set up the program's Country system variable (which it can alter itself).
  39. |
  40. WimpSlot -min 96K -max 96K
  41. | 96K may not be enough: the program will claim as much more as it needs
  42. | for the messages etc.
  43. |
  44. Run <Charges$Dir>.!RunImage
  45.