home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XTREE.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  2.3 KB  |  87 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of treemenu
  7. ****************************************************************/
  8.  
  9. /* To see how a menu tree is drawn, try the following trace 
  10.    with the editor window turned off. 
  11.  
  12.    shorttrace scr_char field_attr field_str                  */
  13.  
  14. code=2000
  15.  
  16. include "tdoms.pro"
  17.  
  18. DOMAINS
  19.   SELECTOR=INTEGER
  20.   TREE = tree(STRING,SELECTOR,TREELIST)
  21.   TREELIST = TREE*
  22.  
  23. DATABASE
  24.   treewindow(ROW,COL)
  25.   treechoice(SELECTOR)
  26.  
  27. include "tpreds.pro"
  28. include "status.pro"
  29. include "menu.pro"
  30. include "tree.pro"
  31.  
  32. CLAUSES
  33.   treeaction(_):-
  34.     cursor(R,C),
  35.     makewindow(_,_,_,_,SR,SC,_,_),
  36.     RR=R+SR, CC=C+SC,
  37.     menu(RR,CC,32,33,[continue,select],test,0,CH),
  38.     CH=2.
  39.  
  40. PREDICATES
  41.   test
  42.   show(SYMBOL)
  43.  
  44. CLAUSES
  45.   show(DIRECTION):-
  46.     treemenu(DIRECTION,tree("start",1,
  47.         [tree("start_problem",2,
  48.             [tree("gasoline_help",3,[]),
  49.              tree("electrical_system",4,
  50.                  [tree("battery_flat",5,
  51.                      [tree("another",6,[]),
  52.                       tree("recharge",7,[]),
  53.                       tree("push_start",8,[])]),
  54.                   tree("wet_weather",9,[])]),
  55.              tree("alternative",10,[])]),
  56.          tree("overheating",11,[]),
  57.          tree("smell",12,[]),
  58.          tree("vibration",13,[]),
  59.          tree("start_last",14,
  60.              [tree("bad_running",15,
  61.                  [tree("bad_idling",16,[]),
  62.                   tree("lack_of_power",17,[])]),
  63.              tree("brakes",18,[]),
  64.              tree("wiper",19,[]),
  65.              tree("lights",20,[]),
  66.              tree("horn",21,[])])]),
  67.     CHOICE),
  68.     clearwindow,
  69.     write("Choice= ",CHOICE),nl.
  70.  
  71.  test:-    makewindow(5,66,23,"",5,5,20,70),
  72.     write("You are invited to make a selection from a tree menu.\n\n"),
  73.     write("The menu will be shown with the tree drawn in a total of\n\n"),
  74.     write("four different attitudes.\n\n"),
  75.     write("Each time you press F10 or Esc, or make a selection by pressing\n\n"),
  76.     write("RETURN while the cursor is in a field, the menu will reappear\n\n"),
  77.     write("with the tree drawn in a new attitude.\n\n"),
  78.     write("You can move around the tree by using the cursor keys.\n\n"),
  79.     write(".. Press the space bar to begin ......"),readkey(_),
  80.     removewindow,fail.
  81.  test:-    show(right),fail.
  82.  test:-    show(left),fail.
  83.  test:-    show(down),fail.
  84.  test:-    show(up),fail.
  85.  
  86. GOAL test.
  87.