/* 
   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 IBrowse
*/

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 IBrowse executeable here::: */

IBROWSE = 'Netz:IBrowse/IBrowse'

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

if ~show(P, 'IBROWSE') then do
   /* Run help viewer */
   ADDRESS COMMAND
   'run >nil: '||IBROWSE||''

   /* Wait until the ARexx port shows up */
   do 20
      if ~show(P, 'IBROWSE') then call delay(50)
   end

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

ADDRESS 'IBROWSE'

'gotourl file:///PageStream3:Help/'||href
'screentofront'