MODULE Init;
(**

   project   = "BlackBox"
   organization   = "www.oberon.ch"
   contributors   = "Oberon microsystems"
   version   = "System/Rsrc/About"
   copyright   = "System/Rsrc/About"
   license   = "Docu/BB-License"
   changes   = ""
   issues   = ""

**)

   IMPORT Kernel, Dialog, Converters, HostMenus;

   PROCEDURE Init;

      VAR res: INTEGER; m: Kernel.Module;
   BEGIN
      HostMenus.OpenApp;
      m := Kernel.ThisMod("DevDebug");
      IF m = NIL THEN Kernel.LoadMod("StdDebug") END;
      Converters.Register("Documents.ImportDocument", "Documents.ExportDocument", "", "odc", {});
      Dialog.Call("StdMenuTool.UpdateAllMenus", "", res);
      Kernel.LoadMod("OleServer");
      Dialog.Call("Config.Setup", "", res);
      HostMenus.Run
   END Init;
BEGIN

   Init
END Init.