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

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

Voyager = 'Netz:Voyager/V'

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

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

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

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

ADDRESS 'VOYAGER'

'show'
'OPENURL file:///PageStream3:Help/'||href