Init.txt 629 B

12345678910111213141516171819202122232425262728
  1. MODULE Init;
  2. IMPORT
  3. HostConsole, (* Console.SetHook *)
  4. HostFonts (* Fonts.SetHook; required for Texts *),
  5. HostWindows (* Windows.SetHook *),
  6. HostDates (* Dates.SetHook *),
  7. HostDialog (* Dialog.SetShowHook *),
  8. StdInterpreter, (* Dialog.SetCallHook *)
  9. StdDialog (* Views.SetViewHook *),
  10. StdLog, ConsLog, (* Log.Hook *)
  11. Converters (* .odc *),
  12. Dialog;
  13. PROCEDURE Init;
  14. VAR res: INTEGER;
  15. BEGIN
  16. Converters.Register("Documents.ImportDocument", "Documents.ExportDocument", "", "odc", {});
  17. Dialog.Call("Config.Setup", " ", res);
  18. Dialog.Call("ConsInterp.Run", " ", res)
  19. END Init;
  20. BEGIN
  21. Init
  22. END Init.