home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / LIB / XTOOLS.LF < prev   
Text File  |  1996-06-04  |  5KB  |  215 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %    $Id: xtools.lf,v 1.2 1994/12/09 00:28:30 duchier Exp vorbeck $    
  3. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  4. %
  5. % XTOOLS: MAIN FILE - OBJECT TYPES
  6. %
  7. %
  8. % Author: Bruno Dumant                                                      
  9. % (c) Copyright 1993 -  Digital Equipment Corporation 
  10. % All Rights Reserved 
  11. %                                                        
  12. % xtools is a simple toolkit to build X applications in Life. It provides the
  13. % user with some basic functionalities of bigger toolkits, in short the ability
  14. % to build interactive window-based applications with buttons, editable text
  15. % fields, menus, and sliders.
  16. %
  17. % See the Wild_LIFE User Manual for a description of the X toolkit.
  18. % 
  19. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  20. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  21.  
  22. %%% interface
  23.  
  24. module("xtools") ?
  25.  
  26.  
  27. public(on_off_button,push_button,menu_button,text_field_button,
  28.     panel,menu_panel,menu_item,
  29.     slide_bar,v_slide_bar,h_slide_bar,
  30.     h_slider,v_slider,
  31.  
  32.     change_on_off,change_push,change_menu_item,
  33.     change_menu_button,change_text_field
  34.        )?
  35.  
  36. load("xtools_init","xtools_b","xtools_c","xtools_l","xtools_constants") ?
  37.  
  38.  
  39. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  40. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  41. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  42.  
  43.  
  44. %%%  Standard object types
  45.  
  46. %%% panel
  47.  
  48. panel <| panel_c.
  49. panel <| frame.
  50.  
  51. %%% Added the following; otherwise only panels with border 5 were
  52. %%% allowed.
  53. %%% Old code:
  54. %%% :: panel(border => 5).
  55. %%% MJV 01-02-96
  56.  
  57. :: panel(border => Border) | Border = {5;real}, !.
  58.  
  59.  
  60. %%% on_off_button
  61.  
  62. on_off_button <| frame.
  63. on_off_button <| text_box.
  64. on_off_button <| led.
  65. on_off_button <| on_off_c.
  66. :: B:on_off_button( offset => Offset,
  67.                 h_space => d_led_offset + d_h_space/2,
  68.             depth => 2,
  69.             active => A,on => On,
  70.             change_state => change_on_off(A,On,B))
  71.     | Offset = {d_led_offset; real}, !.
  72.  
  73. change_on_off(Active,On,B) :-
  74.     cond( On,
  75.         State = not(Active and enabled),
  76.         State = Active and enabled
  77.     ),
  78.     B.led_state <<- root_sort(State),
  79.     B.frame_state <<- root_sort(State),
  80.     B.text_state <<- root_sort(State).
  81.  
  82.  
  83. %%% push_button
  84.  
  85. push_button <| push_c.
  86. push_button <| text_box.
  87. push_button <| frame.
  88. :: B:push_button(active => A,
  89.              depth => 2,
  90.              change_state => change_push(A,B)).
  91.  
  92. change_push(Active,B) :-
  93.     State = Active and enabled,
  94.     B.frame_state <<- root_sort(State),
  95.     B.text_state <<- root_sort(State).
  96.  
  97.  
  98. %%% menu_button
  99.  
  100. menu_button <| menu_button_c.
  101. menu_button <| frame.
  102. menu_button <| text_box.
  103. :: B:menu_button(on => On,
  104.              depth => 2,
  105.          change_state => change_menu_button(On,B)).
  106.  
  107. change_menu_button(On,B) :-
  108.     cond( On,
  109.         (
  110.         B.frame_state <<- true,
  111.         B.text_state <<- true
  112.         ),
  113.         (
  114.         B.frame_state <<- false,
  115.         B.text_state <<- false
  116.         )
  117.     ). 
  118.  
  119.  
  120. %%% text_field_button
  121.  
  122. text_field_button <| frame.
  123. text_field_button <| text_box.
  124. text_field_button <| field.
  125. text_field_button <| text_field_c.
  126. :: B:text_field_button(on => On,
  127.                    change_state => change_text_field(On,B),
  128.                offset => Offset,
  129.                frame_state => State) |
  130.     Offset = {d_text_field_offset;@},!,
  131.     State <<- true.
  132.  
  133. change_text_field(On,B) :-
  134.     cond( On,
  135.         (
  136.         B.text_state <<- true,
  137.             B.field_state <<- true
  138.         ),
  139.         (
  140.         B.field_state <<- false,
  141.         B.text_state <<- false
  142.         )
  143.     ). 
  144.  
  145.  
  146. %%% menu_panel
  147.  
  148. menu_panel <| menu_panel_c.
  149. menu_panel <| frame.
  150. :: menu_panel(border => 1).
  151.  
  152.  
  153. %%% menu_item
  154.  
  155. menu_item <| frame.
  156. menu_item <| text_box.
  157. menu_item <| item_c.
  158. :: B:menu_item(on => On,
  159.            change_state => change_menu_item(On,B),
  160.            offset => Offset,v_space => Space,
  161.            flat => true) |
  162.        Offset = {d_item_offset;@},
  163.        Space = {d_item_v_space;@},
  164.        !.
  165.  
  166. change_menu_item(On,B) :-
  167.     cond( On,
  168.         (
  169.         B.frame_state <<- true,
  170.         B.text_state <<- true
  171.         ),
  172.         (
  173.         B.frame_state <<- false,
  174.         B.text_state <<- false
  175.         )
  176.     ). 
  177.  
  178.  
  179. %%% sliders
  180.  
  181. v_slider <| frame.
  182. v_slider <| v_slider_c.
  183. :: v_slider(width => W,
  184.         height => H,
  185.         depth => 2) |
  186.     W = {d_v_slider_width;@},
  187.     H = {d_v_slider_height;@},!.
  188.  
  189. h_slider <| frame.
  190. h_slider <| h_slider_c.
  191. :: h_slider(width => W,
  192.         height => H,
  193.         depth => 2) |
  194.     W = {num(d_h_slider_width);@},
  195.     H = {num(d_h_slider_height);@},!.
  196.  
  197.  
  198. %%% slide bars
  199.  
  200. slide_bar1 <| sub_panel_c.
  201. :: slide_bar1(border => Border) |
  202.         Border = {num(d_slide_bar_border);@},!.
  203.  
  204. slide_bar <| slide_bar1.
  205. slide_bar <| frame.
  206. :: slide_bar(frame_state => true).
  207.  
  208. v_slide_bar <| slide_bar1.
  209. v_slide_bar <| v_slide_bar_l.
  210.  
  211. h_slide_bar <| slide_bar1.
  212. h_slide_bar <| h_slide_bar_l.
  213.  
  214.       
  215.