%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%                                                                      %%
%%  Help                                                                %%
%%                                                                      %%
%%  (c) 2000 Université catholique de Louvain.  All Rights Reserved.    %%
%%  The development of this software is supported by the PIRATES        %%
%%  project at the Université catholique de Louvain.  This file is      %%
%%  subject to the general Mozart license.                              %%
%%                                                                      %%
%%  Author: Donatien Grolaux                                            %%
%%                                                                      %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

functor

import
   Help(helpClass:HelpClass)
%   QTk at 'http://www.info.ucl.ac.be/people/ned/qtk/QTk.ozf'
   QTk at 'x-oz://system/wp/QTk.ozf'
   Application

define
   
   Hlp={New HelpClass init}

   P={Application.getCmdArgs plain}
   if P\=nil then
      {Hlp parseHelpFile(P.1)}
   else
      {Hlp parseHelpFile("Help.txt")}
   end
   {Hlp openHelpWindow(home)}

   {Application.exit 0}
end