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

OPTIONS RESULTS
TRACE OFF

/*
** Make sure rexx support is opened
*/

IF ~SHOW('L','rexxsupport.library')
THEN CALL ADDLIB('rexxsupport.library',0,-30)

PARSE ARG helppath href anchor

/*
** define the HTMLview executeable here!
** !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*/

HTMLview = 'Netz:HTMLview/HTMLview-Demo'
portName = 'HTMLVIEWDEMO.1'

IF (anchor ~= '')
THEN href = href'#'anchor

IF ~Show(P, portName)
THEN DO
   /*
   ** Run help viewer
   */

   ADDRESS COMMAND
   'Run >NIL: '||HTMLview||' "file://PageStream3:Help/' || href || '"'
   /*
   ** Wait until the ARexx port shows up
   */

   DO 20
	  IF ~show(P, portName)
	  THEN Call Delay(50)
   END

   /*
   ** If the ARexx port didn't show up, alert the user and exit
   */
   
   IF ~Show(P, portName)
   THEN DO
      EXIT
   END
END
ELSE

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

  ADDRESS 'HTMLview'
  '--- "PageStream3:Help/' || href || '"'
END