home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XHELP.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  859 b   |  35 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.           Demo of context sensitive help facilities
  7.    (In order to run this program you must define some help texts
  8.     using HELPDEF.PRO and save them in the help file XHELP.DEF ) 
  9. ****************************************************************/
  10.  
  11. include "tdoms.pro"
  12.  
  13. DOMAINS
  14.   HELPUNIT    = h(STRING)
  15.   HELPCONTEXT    = SYMBOL
  16.   FILEPOS    = REAL
  17.   FILE    = helpfile
  18.  
  19. DATABASE
  20.   helptext(HELPCONTEXT,ATTR,ATTR,STRING,ROW,COL,ROW,COL,FILEPOS)
  21.   helpcontext(HELPCONTEXT)
  22.   helpfile(STRING)
  23.  
  24. include "help.pro"
  25.  
  26. GOAL    makewindow(1,32,0,"",0,0,24,80),
  27.     assert(helpfile("xhelp.hlp")),
  28.     consult("xhelp.def"),
  29.     push_helpcontext(help1),
  30.     help,
  31.     push_helpcontext(help2),
  32.     help,
  33.     pop_helpcontext,
  34.     help.
  35.