home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / utilities / text / bed / rexx / sasc / findautodocag.bed < prev    next >
Encoding:
Text File  |  1996-01-29  |  1.1 KB  |  51 lines
  1. /*
  2. ** $VER: FindAutoDocAG.bed 1.0 (14.01.96)
  3. **
  4. ** Display the AmigaGuide AutoDoc of the System Function under the cursor
  5. **
  6. ** It needs:
  7. ** - The AmigaGuide AutoDocs in ADGUIDE:
  8. ** - The Cross-Reference file ADGUIDE:AutoDocs.xref
  9. */
  10.  
  11. xreffile = "ADGUIDE:autodocs.xref"
  12.  
  13. OPTIONS RESULTS
  14. GetWord
  15. word = RESULT
  16. OPTIONS
  17.  
  18. IF ~SHOW('L','amigaguide.library') THEN
  19.     CALL ADDLIB('amigaguide.library',0,-30)
  20.  
  21. line = GetXRef("OpenWindow()")
  22.  
  23. IF line = 10 THEN DO
  24.     SetStatusBar TEMPORARY 'Loading cross-reference file...'
  25.     a = LoadXRef(xreffile)
  26. END
  27.  
  28. function = word
  29.  
  30. data = GetXRef(function)
  31.  
  32. IF data = 10 THEN DO
  33.     function = word || "()"
  34.     data = GetXRef(function)
  35.     IF data = 10 THEN DO
  36.         SetStatusBar    "Cross-reference not found for" word
  37.         EXIT 5
  38.     END
  39. END
  40.  
  41. PARSE VAR data '"' document '"' '"' database '"' . line
  42.  
  43. SetStatusBar 'Loading '||function||'...'
  44.  
  45. IF ~SHOW('P','AUTODOCS') THEN
  46.     ADDRESS COMMAND "Run AmigaGuide DATABASE" database "DOCUMENT" document "LINE" line "PortName AUTODOCS PubScreen Blacks_Editor"
  47. ELSE DO
  48.     ADDRESS AUTODOCS "ALink" document
  49.     ADDRESS AUTODOCS "windowtofront"
  50. END
  51.