home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / helplink.seq < prev    next >
Encoding:
Text File  |  1989-07-21  |  1.3 KB  |  45 lines
  1. \ HELPLINK.SEQ          link in Help to Editor          by Tom Zimmer
  2.  
  3. editor definitions
  4.  
  5. : helpF1        ( --- )                 \ F1 in editor
  6.                 on> browseset
  7.                 " edmain" ">$ here over c@ 1+ cmove
  8.                 bl here count + c!
  9.                 check-ndx
  10.                 if      line-ed/br
  11.                 else    drop
  12.                         true " \4 HELP is not available " ?softerror
  13.                         scrshow
  14.                 then    ;
  15.  
  16. \ 187 fnset helpF1        \ function value for F1
  17.  
  18. : F1help        ( | word --- )          \ F1 at Forth level
  19.                 on> newbrowse
  20.                 on> ?browse
  21.                 off> seding
  22.                 off> newfl
  23.                 on> leavenow
  24.                 sequp
  25.                 savecursor
  26.                 savescr
  27.                 " edmain" ">$ here over c@ 1+ cmove
  28.                 bl here count + c!
  29.                 check-ndx
  30.                 if      hndlsave file-line_view
  31.                 else    drop
  32.                         true " \4 HELP is not available " ?softerror
  33.                 then    emptykbd
  34.                 off> leavenow
  35.                 restscr
  36.                 restcursor
  37.                 seqdown ;
  38.  
  39. ' F1help is dofhelp             \ link into F1 key handler
  40.  
  41. forth definitions
  42.  
  43. ' F1help alias F1
  44.  
  45.