/* 
   Copyright 1997 SoftLogik Publishing Corporation
   May not be distributed without SoftLogik Publishing Corporation's express written permission 
   $VER: Help.rexx 1.0 (11.9.97)

   changed for using moreHTML
*/

OPTIONS RESULTS
TRACE OFF

/* Make sure rexx support is opened */
IF ~SHOW('L','rexxsupport.library') THEN
   CALL ADDLIB('rexxsupport.library',0,-30)

helppath = arg(1)
href = arg(2)
anchor = arg(3)

/* define the moreHTML executeable here::: */

moreHTML = 'Netz:moreHTML/moreHTML'

if anchor~='' then href=href'#'anchor

if ~show(P, 'moreHTML.1') then do
   /* Run help viewer */
   ADDRESS COMMAND
   'run >nil: '||moreHTML||' "PageStream3:Help/' || href || '"'
   /* Wait until the ARexx port shows up */
   do 20
      if ~show(P, 'moreHTML.1') then call delay(50)
   end

   /* If the ARexx port didn't show up, alert the user and exit */
   if ~show(P, 'moreHTML.1') then do
      EXIT
   end
end
else

  /* the following does not work 8-( */

  ADDRESS 'moreHTML.1'
  'openURL="PageStream3:Help/' || href || '"'
end