home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XRESIZE.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  877 b   |  36 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of    resize
  7. ****************************************************************/
  8.  
  9. include "tdoms.pro"
  10.  
  11. DATABASE
  12.   windowsize(ROW,COL)
  13.  
  14. include "tpreds.pro"
  15. include "status.pro"
  16. include "resize.pro"
  17.  
  18. CLAUSES
  19.   writescr:-keypressed,!.
  20.   writescr:-
  21.     cursor(0,0),
  22.     attribute(66),
  23.     write("The resizing tool predicate allows a window to be re-sized\n"),
  24.     write("in the same way as with the PROLOG system.\n\n"),
  25.     fail.
  26.   writescr:-keypressed,!.
  27.   writescr:-
  28.     attribute(33),
  29.     write("The main advantage of the tool version is that you can modify\n"),
  30.     write("the re-size predicate to suit your own needs.\n\n").
  31.  
  32. GOAL
  33.     makewindow(1,23,0,"",0,0,24,80),
  34.     makewindow(2,23,66,"test",5,5,14,70),
  35.     resizewindow.
  36.