home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / guidexv / gcc_ui.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-07-14  |  7.0 KB  |  340 lines
  1. /*
  2.  * gcc_ui.c - User interface object initialization functions.
  3.  * This file was generated by `gxv' from `/home/oliver/data2/users/tierney/src/lib/guide_file_manager/gcc.G'.
  4.  * DO NOT EDIT BY HAND.
  5.  */
  6.  
  7. #include <stdio.h>
  8. #include <sys/param.h>
  9. #include <sys/types.h>
  10. #include <xview/xview.h>
  11. #include <xview/canvas.h>
  12. #include <xview/panel.h>
  13. #include <xview/scrollbar.h>
  14. #include <xview/svrimage.h>
  15. #include <xview/termsw.h>
  16. #include <xview/text.h>
  17. #include <xview/tty.h>
  18. #include <xview/xv_xrect.h>
  19. #include <group.h>
  20. #include "gcc_ui.h"
  21.  
  22. /*
  23.  * Initialize an instance of object `gccwin'.
  24.  */
  25. gcc_gccwin_objects *
  26. gcc_gccwin_objects_initialize(ip, owner)
  27.     gcc_gccwin_objects    *ip;
  28.     Xv_opaque    owner;
  29. {
  30.     if (!ip && !(ip = (gcc_gccwin_objects *) calloc(1, sizeof (gcc_gccwin_objects))))
  31.         return (gcc_gccwin_objects *) NULL;
  32.     if (!ip->gccwin)
  33.         ip->gccwin = gcc_gccwin_gccwin_create(ip, owner);
  34.     if (!ip->controls)
  35.         ip->controls = gcc_gccwin_controls_create(ip, ip->gccwin);
  36.     if (!ip->color_list)
  37.         ip->color_list = gcc_gccwin_color_list_create(ip, ip->controls);
  38.     if (!ip->color_blot)
  39.         ip->color_blot = gcc_gccwin_color_blot_create(ip, ip->controls);
  40.     if (!ip->color_name)
  41.         ip->color_name = gcc_gccwin_color_name_create(ip, ip->controls);
  42.     if (!ip->group1)
  43.         ip->group1 = gcc_gccwin_group1_create(ip, ip->controls);
  44.     if (!ip->group3)
  45.         ip->group3 = gcc_gccwin_group3_create(ip, ip->controls);
  46.     if (!ip->apply)
  47.         ip->apply = gcc_gccwin_apply_create(ip, ip->controls);
  48.     if (!ip->reset)
  49.         ip->reset = gcc_gccwin_reset_create(ip, ip->controls);
  50.     if (!ip->group2)
  51.         ip->group2 = gcc_gccwin_group2_create(ip, ip->controls);
  52.     if (!ip->group4)
  53.         ip->group4 = gcc_gccwin_group4_create(ip, ip->controls);
  54.     window_fit(ip->controls);
  55.     
  56.     window_fit(ip->gccwin);
  57.     
  58.     xv_set(ip->controls,
  59.         XV_WIDTH, WIN_EXTEND_TO_EDGE,
  60.         XV_HEIGHT, WIN_EXTEND_TO_EDGE,
  61.         NULL);
  62.     return ip;
  63. }
  64.  
  65. /*
  66.  * Create object `gccwin' in the specified instance.
  67.  */
  68. Xv_opaque
  69. gcc_gccwin_gccwin_create(ip, owner)
  70.     gcc_gccwin_objects    *ip;
  71.     Xv_opaque    owner;
  72. {
  73.     Xv_opaque    obj;
  74.     
  75.     obj = xv_create(owner, FRAME_CMD,
  76.         XV_KEY_DATA, INSTANCE, ip,
  77.         XV_WIDTH, 270,
  78.         XV_HEIGHT, 338,
  79.         FRAME_SHOW_FOOTER, TRUE,
  80.         FRAME_SHOW_RESIZE_CORNER, FALSE,
  81.         FRAME_CMD_PUSHPIN_IN, TRUE,
  82.         NULL);
  83.     xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
  84.     return obj;
  85. }
  86.  
  87. /*
  88.  * Create object `controls' in the specified instance.
  89.  */
  90. Xv_opaque
  91. gcc_gccwin_controls_create(ip, owner)
  92.     gcc_gccwin_objects    *ip;
  93.     Xv_opaque    owner;
  94. {
  95.     Xv_opaque    obj;
  96.     
  97.     obj = xv_create(owner, PANEL,
  98.         XV_KEY_DATA, INSTANCE, ip,
  99.         XV_HELP_DATA, "gcc:controls",
  100.         XV_X, 0,
  101.         XV_Y, 0,
  102.         XV_WIDTH, WIN_EXTEND_TO_EDGE,
  103.         XV_HEIGHT, WIN_EXTEND_TO_EDGE,
  104.         WIN_BORDER, FALSE,
  105.         NULL);
  106.     return obj;
  107. }
  108.  
  109. /*
  110.  * Create object `color_list' in the specified instance.
  111.  */
  112. Xv_opaque
  113. gcc_gccwin_color_list_create(ip, owner)
  114.     gcc_gccwin_objects    *ip;
  115.     Xv_opaque    owner;
  116. {
  117.     extern int        gcc_list_proc();
  118.     Xv_opaque    obj;
  119.     
  120.     obj = xv_create(owner, PANEL_LIST,
  121.         XV_KEY_DATA, INSTANCE, ip,
  122.         XV_HELP_DATA, "gcc:color_list",
  123.         XV_X, 25,
  124.         XV_Y, 10,
  125.         PANEL_LIST_WIDTH, 200,
  126.         PANEL_LIST_DISPLAY_ROWS, 12,
  127.         PANEL_LAYOUT, PANEL_HORIZONTAL,
  128.         PANEL_READ_ONLY, TRUE,
  129.         PANEL_CHOOSE_ONE, TRUE,
  130.         PANEL_CHOOSE_NONE, FALSE,
  131.         PANEL_NOTIFY_PROC, gcc_list_proc,
  132.         NULL);
  133.     return obj;
  134. }
  135.  
  136. /*
  137.  * Create object `color_blot' in the specified instance.
  138.  */
  139. Xv_opaque
  140. gcc_gccwin_color_blot_create(ip, owner)
  141.     gcc_gccwin_objects    *ip;
  142.     Xv_opaque    owner;
  143. {
  144.     Xv_opaque    obj;
  145.     Xv_opaque        color_blot_image;
  146.     static unsigned short    color_blot_bits[] = {
  147. #include "black32.pr"
  148.     };
  149.     
  150.     color_blot_image = xv_create(XV_NULL, SERVER_IMAGE,
  151.         SERVER_IMAGE_DEPTH, 1,
  152.         SERVER_IMAGE_BITS, color_blot_bits,
  153.         XV_WIDTH, 32,
  154.         XV_HEIGHT, 32,
  155.         NULL);
  156.     obj = xv_create(owner, PANEL_MESSAGE,
  157.         XV_KEY_DATA, INSTANCE, ip,
  158.         XV_HELP_DATA, "gcc:color_blot",
  159.         XV_X, 227,
  160.         XV_Y, 256,
  161.         PANEL_LABEL_IMAGE, color_blot_image,
  162.         PANEL_LABEL_BOLD, TRUE,
  163.         NULL);
  164.     return obj;
  165. }
  166.  
  167. /*
  168.  * Create object `color_name' in the specified instance.
  169.  */
  170. Xv_opaque
  171. gcc_gccwin_color_name_create(ip, owner)
  172.     gcc_gccwin_objects    *ip;
  173.     Xv_opaque    owner;
  174. {
  175.     Xv_opaque    obj;
  176.     
  177.     obj = xv_create(owner, PANEL_TEXT,
  178.         XV_KEY_DATA, INSTANCE, ip,
  179.         XV_HELP_DATA, "gcc:color_name",
  180.         XV_X, 10,
  181.         XV_Y, 273,
  182.         PANEL_VALUE_DISPLAY_LENGTH, 20,
  183.         PANEL_VALUE_STORED_LENGTH, 80,
  184.         PANEL_LABEL_STRING, "Color:",
  185.         PANEL_LAYOUT, PANEL_HORIZONTAL,
  186.         PANEL_READ_ONLY, FALSE,
  187.         NULL);
  188.     return obj;
  189. }
  190.  
  191. /*
  192.  * Create object `group1' in the specified instance.
  193.  */
  194. Xv_opaque
  195. gcc_gccwin_group1_create(ip, owner)
  196.     gcc_gccwin_objects    *ip;
  197.     Xv_opaque    owner;
  198. {
  199.     Xv_opaque    obj;
  200.     
  201.     obj = xv_create(owner, GROUP,
  202.         XV_KEY_DATA, INSTANCE, ip,
  203.         XV_X, 10,
  204.         XV_Y, 256,
  205.         GROUP_TYPE, GROUP_ROW,
  206.         GROUP_MEMBERS,
  207.             ip->color_name,
  208.             ip->color_blot,
  209.             NULL,
  210.         GROUP_ROW_ALIGNMENT, GROUP_BOTTOM_EDGES,
  211.         GROUP_HORIZONTAL_SPACING, 10,
  212.         NULL);
  213.     return obj;
  214. }
  215.  
  216. /*
  217.  * Create object `group3' in the specified instance.
  218.  */
  219. Xv_opaque
  220. gcc_gccwin_group3_create(ip, owner)
  221.     gcc_gccwin_objects    *ip;
  222.     Xv_opaque    owner;
  223. {
  224.     Xv_opaque    obj;
  225.     
  226.     obj = xv_create(owner, GROUP,
  227.         XV_KEY_DATA, INSTANCE, ip,
  228.         XV_X, 10,
  229.         XV_Y, 10,
  230.         GROUP_TYPE, GROUP_COLUMN,
  231.         GROUP_MEMBERS,
  232.             ip->color_list,
  233.             ip->group1,
  234.             NULL,
  235.         GROUP_COLUMN_ALIGNMENT, GROUP_VERTICAL_CENTERS,
  236.         GROUP_VERTICAL_SPACING, 10,
  237.         NULL);
  238.     return obj;
  239. }
  240.  
  241. /*
  242.  * Create object `apply' in the specified instance.
  243.  */
  244. Xv_opaque
  245. gcc_gccwin_apply_create(ip, owner)
  246.     gcc_gccwin_objects    *ip;
  247.     Xv_opaque    owner;
  248. {
  249.     extern void        gcc_apply();
  250.     Xv_opaque    obj;
  251.     
  252.     obj = xv_create(owner, PANEL_BUTTON,
  253.         XV_KEY_DATA, INSTANCE, ip,
  254.         XV_HELP_DATA, "gcc:apply",
  255.         XV_X, 77,
  256.         XV_Y, 308,
  257.         PANEL_LABEL_STRING, "Apply",
  258.         PANEL_NOTIFY_PROC, gcc_apply,
  259.         NULL);
  260.     return obj;
  261. }
  262.  
  263. /*
  264.  * Create object `reset' in the specified instance.
  265.  */
  266. Xv_opaque
  267. gcc_gccwin_reset_create(ip, owner)
  268.     gcc_gccwin_objects    *ip;
  269.     Xv_opaque    owner;
  270. {
  271.     extern void        gcc_reset();
  272.     Xv_opaque    obj;
  273.     
  274.     obj = xv_create(owner, PANEL_BUTTON,
  275.         XV_KEY_DATA, INSTANCE, ip,
  276.         XV_HELP_DATA, "gcc:reset",
  277.         XV_X, 140,
  278.         XV_Y, 308,
  279.         PANEL_LABEL_STRING, "Reset",
  280.         PANEL_NOTIFY_PROC, gcc_reset,
  281.         NULL);
  282.     return obj;
  283. }
  284.  
  285. /*
  286.  * Create object `group2' in the specified instance.
  287.  */
  288. Xv_opaque
  289. gcc_gccwin_group2_create(ip, owner)
  290.     gcc_gccwin_objects    *ip;
  291.     Xv_opaque    owner;
  292. {
  293.     Xv_opaque    obj;
  294.     
  295.     obj = xv_create(owner, GROUP,
  296.         XV_KEY_DATA, INSTANCE, ip,
  297.         XV_X, 77,
  298.         XV_Y, 308,
  299.         GROUP_TYPE, GROUP_ROW,
  300.         GROUP_MEMBERS,
  301.             ip->apply,
  302.             ip->reset,
  303.             NULL,
  304.         GROUP_ROW_ALIGNMENT, GROUP_TOP_EDGES,
  305.         GROUP_HORIZONTAL_SPACING, 10,
  306.         NULL);
  307.     return obj;
  308. }
  309.  
  310. /*
  311.  * Create object `group4' in the specified instance.
  312.  */
  313. Xv_opaque
  314. gcc_gccwin_group4_create(ip, owner)
  315.     gcc_gccwin_objects    *ip;
  316.     Xv_opaque    owner;
  317. {
  318.     Xv_opaque    obj;
  319.     
  320.     obj = xv_create(owner, GROUP,
  321.         XV_KEY_DATA, INSTANCE, ip,
  322.         XV_X, 10,
  323.         XV_Y, 10,
  324.         GROUP_TYPE, GROUP_COLUMN,
  325.         GROUP_MEMBERS,
  326.             ip->group3,
  327.             ip->group2,
  328.             NULL,
  329.         GROUP_COLUMN_ALIGNMENT, GROUP_VERTICAL_CENTERS,
  330.         GROUP_VERTICAL_SPACING, 20,
  331.         GROUP_ANCHOR_OBJ, ip->controls,
  332.         GROUP_ANCHOR_POINT, GROUP_NORTHWEST,
  333.         GROUP_REFERENCE_POINT, GROUP_NORTHWEST,
  334.         GROUP_HORIZONTAL_OFFSET, 10,
  335.         GROUP_VERTICAL_OFFSET, 10,
  336.         NULL);
  337.     return obj;
  338. }
  339.  
  340.