home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC4.DMS / in.adf / Archive / Prog.lha / Source / ARexx / EdHelp.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-02-01  |  982 b   |  32 lines
  1. /*
  2.  
  3.    Dieses  ARexx-Skript  dient  dazu,  Hilfe  zum aktuellen Wort unter dem
  4.    Cursor des Standard-Editors 'ED' von Commodore abzurufen.
  5.  
  6.    Kopieren  Sie  die  Datei  dazu  in das Verzeichnis 'REXX:', wo sie vom
  7.    ARexx-Interpreter   gefunden   werden   kann.   Anschließend   kann  im
  8.    Editor-Fenster über Eingabe von '<ESC>EdHelp.REXX' Hilfe zum Wort unter
  9.    dem Cursor abgerufen werden.
  10.  
  11.    Um  die  Funktion  sinnvoll einsetzen zu können, sollte die Eingabe auf
  12.    eine Taste gelegt werden. Ergänzen Sie z.B. die Datei 'S:Ed-Startup' um
  13.    die  Zeile  'sf  1 "EdHelp.REXX"', können Sie die Hilfsfunktion künftig
  14.    direkt durch einen Druck auf F1 abrufen.
  15.  
  16. */
  17.  
  18. 'rv/SYS'
  19. line  = SYS.CURRENT
  20. pos   = SYS.X
  21. i     = 0
  22. wl    = 0
  23. wi    = 0
  24. key   = ''
  25.  
  26. DO i = 1 TO WORDS(line)
  27.    wi = WORDINDEX(line, i)
  28.    wl = WORDLENGTH(line, i)
  29.    IF pos >= wi & pos <= wi + wl - 1 THEN key = SUBWORD(line, i, 1)
  30. END
  31. IF LENGTH(key) > 0 THEN ADDRESS 'HOTHELP_REXX' 'HH_HotKeyWindow' '*' key
  32.