home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / STATUS.PRO < prev    next >
Encoding:
Prolog Source  |  1987-03-23  |  1.1 KB  |  43 lines
  1.  
  2.  /***********************************************************************
  3.                                                                       
  4.      Turbo Prolog Toolbox
  5.      (C) Copyright 1987 Borland International.                        
  6.                                                                       
  7.                  Status Line                        
  8.             Uses window number 83 for a status line.            
  9.  ***********************************************************************/
  10.  
  11. PREDICATES
  12.   makestatus(ATTR,STRING)
  13.   nondeterm tempstatus(ATTR,STRING)
  14.   removestatus
  15.   refreshstatus
  16.   changestatus(STRING)
  17.  
  18. CLAUSES
  19.   makestatus(ATTR,TXT):-
  20.     shiftwindow(OLD),
  21.     makewindow(83,ATTR,0,"",24,0,1,80),
  22.     field_str(0,0,80,TXT),
  23.     shiftwindow(OLD).
  24.  
  25.   tempstatus(ATTR,TXT):-makestatus(ATTR,TXT).
  26.   tempstatus(_,_):-removestatus,fail.
  27.  
  28.   removestatus:-
  29.     shiftwindow(OLD),
  30.     shiftwindow(83), removewindow,
  31.     shiftwindow(OLD).
  32.  
  33.   refreshstatus:-
  34.     shiftwindow(OLD),
  35.     shiftwindow(83),
  36.     shiftwindow(OLD).
  37.  
  38.   changestatus(TXT):-
  39.     shiftwindow(OLD),
  40.     shiftwindow(83),
  41.     field_str(0,0,80,TXT),
  42.     shiftwindow(OLD).
  43.