home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XPULLDW.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  2.0 KB  |  65 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of    the pulldown menu
  7. ****************************************************************/
  8.  
  9. include "tdoms.pro"
  10.  
  11. DATABASE
  12.   pdwstate(ROW,COL,SYMBOL,ROW,COL)
  13.  
  14. include "tpreds.pro"
  15. include "status.pro"
  16. include "pulldown.pro"
  17.  
  18. Predicates
  19.   msg(ROW,COL,STRING)
  20.  
  21. CLAUSES
  22.   /* Pulldown tries first to call pdwaction with the windows open.    */
  23.   /* If no pdwaction is found CHOICE and SUBCHOICE are returned and    */
  24.   /* the windows are removed.                        */
  25.  
  26.   pdwaction(1,1):-msg(3,10,"Input 1 selected").
  27.   pdwaction(1,2):-msg(4,10,"Input 2 selected").
  28.   pdwaction(1,3):-msg(5,10,"Input 3 selected").
  29.   pdwaction(2,0):-msg(5,25,"List all").
  30.   pdwaction(3,1):-msg(3,42,"Load something").
  31.   pdwaction(3,2):-msg(4,42,"Save something").
  32.   pdwaction(3,3):-msg(5,42,"Delete some garbage").
  33.   pdwaction(3,4):-msg(6,42,"Change directory").
  34.   pdwaction(4,1):-msg(3,45,"Actions with directories").
  35.   pdwaction(4,2):-msg(4,45,"Change colors").
  36.   pdwaction(5,0):-msg(15,10,"Please press the space bar."),exit.
  37.  
  38.   msg(R,C,S):-
  39.         makestatus(112,"Press any key"),
  40.     makewindow(1,32,4,"",R,C,5,30),
  41.     window_str(S),
  42.     readkey(_),
  43.     removewindow,
  44.     removestatus.
  45.  
  46. GOAL
  47. /*
  48.           1         2         3         4         5         6         7
  49. 01234567890123456789012345678901234567890123456789012345678901234567890123456789
  50.      Input          List            Files         Setup          Quit
  51. */
  52.   makewindow(1,23,0,"",0,0,24,80),
  53.   makestatus(112," Select with arrows or use first upper case letter"),
  54.   pulldown(66,
  55.       [ curtain(5,"Input",["First","Second","Third"]),
  56.         curtain(20,"List",[]),
  57.             curtain(36,"Files"    ,["Load","Save","Delete","dIrectory"]),
  58.             curtain(50,"Setup"     ,["Directories","Colors"]),
  59.             curtain(65,"Quit"      ,[])
  60.           ]
  61.                         ,CH,SUBCH ),
  62.            write("\n    CH = ",CH),
  63.            write("\n SUBCH = ",SUBCH),nl.
  64.  
  65.