home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.6 / ffcollection-1-6-1993-02.iso / ff_disks / 571-600 / ff_583 / tpledit / src.lzh / tplcontrol.c < prev   
C/C++ Source or Header  |  1991-12-03  |  22KB  |  899 lines
  1.  
  2. /*
  3.  * tplcontrol.c
  4.  *
  5.  * MACHINE GENERATED
  6.  * Nov 24 1991 19:39:24
  7.  */
  8.  
  9. #include "defs.h"
  10.  
  11. Prototype void    FreeGads(void);
  12. Prototype int     InitGads(void);
  13. Prototype void    drawborders(void);
  14. Prototype __geta4 long DispFunc(Gadget *, WORD);
  15.  
  16. Prototype Gadget *Gad_update_but;
  17. Prototype Gadget *Gad_items_down;
  18. Prototype Gadget *Gad_items_up;
  19. Prototype Gadget *Gad_items_add;
  20. Prototype Gadget *Gad_items_del;
  21. Prototype Gadget *Gad_checked_box;
  22. Prototype Gadget *Gad_border_box;
  23. Prototype Gadget *Gad_vertical_box;
  24. Prototype Gadget *Gad_highlabel_box;
  25. Prototype Gadget *Gad_recessed_box;
  26. Prototype Gadget *Gad_readonly_box;
  27. Prototype Gadget *Gad_immediate_box;
  28. Prototype Gadget *Gad_disabled_box;
  29. Prototype Gadget *Gad_relverify_box;
  30. Prototype Gadget *Gad_gadgets_lv;
  31. Prototype List   List_gadgets_lv;
  32. Prototype Gadget *Gad_items_lv;
  33. Prototype List   List_items_lv;
  34. Prototype Gadget *Gad_flags_mx;
  35. Prototype List   List_flags_mx;
  36. Prototype Gadget *Gad_actions_mx;
  37. Prototype List   List_actions_mx;
  38. Prototype Gadget *Gad_buf_space_sl;
  39. Prototype Gadget *Gad_maxval_sl;
  40. Prototype Gadget *Gad_defval_sl;
  41. Prototype Gadget *Gad_region_str;
  42. Prototype char   *Buf_region_str;
  43. Prototype Gadget *Gad_label_str;
  44. Prototype char   *Buf_label_str;
  45. Prototype Gadget *Gad_default_str;
  46. Prototype char   *Buf_default_str;
  47. Prototype Gadget *Gad_items_str;
  48. Prototype char   *Buf_items_str;
  49. Prototype Gadget *Gad_actions_txt;
  50. Prototype Gadget *Gad_flags_txt;
  51. Prototype Gadget *Gad_special_txt;
  52. Prototype Gadget *Gad_value_txt;
  53.  
  54. Prototype NewGadget NGAry[29];
  55. Prototype Gadget    *EGList;
  56. Prototype Gadget    *Egadlist[29];
  57. Prototype Window    *EWin;
  58. Prototype struct    VisualInfo *VisInfo;
  59. Gadget    *Egadlist[29];
  60.  
  61. NewGadget NGAry[29] = {
  62.   {
  63.     GLEF_0, GTOP_0, GWID_0, GHEI_0,
  64.     "UPDATE",        /* UBYTE    *ng_GadgetText    */
  65.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  66.     GAD_update_but,    /* UWORD    ng_GadgetID    */
  67.     PLACETEXT_IN,    /* ULONG    ng_Flags    */
  68.     NULPTR,        /* APTR      ng_VisualInfo    */
  69.     NULPTR,        /* APTR      ng_UserData    */
  70.   },
  71.   {
  72.     GLEF_1, GTOP_1, GWID_1, GHEI_1,
  73.     "down",        /* UBYTE    *ng_GadgetText    */
  74.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  75.     GAD_items_down,    /* UWORD    ng_GadgetID    */
  76.     PLACETEXT_IN,    /* ULONG    ng_Flags    */
  77.     NULPTR,        /* APTR      ng_VisualInfo    */
  78.     NULPTR,        /* APTR      ng_UserData    */
  79.   },
  80.   {
  81.     GLEF_2, GTOP_2, GWID_2, GHEI_2,
  82.     "up",        /* UBYTE    *ng_GadgetText    */
  83.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  84.     GAD_items_up,    /* UWORD    ng_GadgetID    */
  85.     PLACETEXT_IN,    /* ULONG    ng_Flags    */
  86.     NULPTR,        /* APTR      ng_VisualInfo    */
  87.     NULPTR,        /* APTR      ng_UserData    */
  88.   },
  89.   {
  90.     GLEF_3, GTOP_3, GWID_3, GHEI_3,
  91.     "add",        /* UBYTE    *ng_GadgetText    */
  92.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  93.     GAD_items_add,    /* UWORD    ng_GadgetID    */
  94.     PLACETEXT_IN,    /* ULONG    ng_Flags    */
  95.     NULPTR,        /* APTR      ng_VisualInfo    */
  96.     NULPTR,        /* APTR      ng_UserData    */
  97.   },
  98.   {
  99.     GLEF_4, GTOP_4, GWID_4, GHEI_4,
  100.     "del",        /* UBYTE    *ng_GadgetText    */
  101.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  102.     GAD_items_del,    /* UWORD    ng_GadgetID    */
  103.     PLACETEXT_IN,    /* ULONG    ng_Flags    */
  104.     NULPTR,        /* APTR      ng_VisualInfo    */
  105.     NULPTR,        /* APTR      ng_UserData    */
  106.   },
  107.   {
  108.     GLEF_5, GTOP_5, GWID_5, GHEI_5,
  109.     "CHECKED",        /* UBYTE    *ng_GadgetText    */
  110.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  111.     GAD_checked_box,    /* UWORD    ng_GadgetID    */
  112.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  113.     NULPTR,        /* APTR      ng_VisualInfo    */
  114.     NULPTR,        /* APTR      ng_UserData    */
  115.   },
  116.   {
  117.     GLEF_6, GTOP_6, GWID_6, GHEI_6,
  118.     "BORDER",        /* UBYTE    *ng_GadgetText    */
  119.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  120.     GAD_border_box,    /* UWORD    ng_GadgetID    */
  121.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  122.     NULPTR,        /* APTR      ng_VisualInfo    */
  123.     NULPTR,        /* APTR      ng_UserData    */
  124.   },
  125.   {
  126.     GLEF_7, GTOP_7, GWID_7, GHEI_7,
  127.     "VERTICAL",        /* UBYTE    *ng_GadgetText    */
  128.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  129.     GAD_vertical_box,    /* UWORD    ng_GadgetID    */
  130.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  131.     NULPTR,        /* APTR      ng_VisualInfo    */
  132.     NULPTR,        /* APTR      ng_UserData    */
  133.   },
  134.   {
  135.     GLEF_8, GTOP_8, GWID_8, GHEI_8,
  136.     "HIGHLABEL",        /* UBYTE    *ng_GadgetText    */
  137.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  138.     GAD_highlabel_box,    /* UWORD    ng_GadgetID    */
  139.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  140.     NULPTR,        /* APTR      ng_VisualInfo    */
  141.     NULPTR,        /* APTR      ng_UserData    */
  142.   },
  143.   {
  144.     GLEF_9, GTOP_9, GWID_9, GHEI_9,
  145.     "RECESSED",        /* UBYTE    *ng_GadgetText    */
  146.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  147.     GAD_recessed_box,    /* UWORD    ng_GadgetID    */
  148.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  149.     NULPTR,        /* APTR      ng_VisualInfo    */
  150.     NULPTR,        /* APTR      ng_UserData    */
  151.   },
  152.   {
  153.     GLEF_10, GTOP_10, GWID_10, GHEI_10,
  154.     "READONLY",        /* UBYTE    *ng_GadgetText    */
  155.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  156.     GAD_readonly_box,    /* UWORD    ng_GadgetID    */
  157.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  158.     NULPTR,        /* APTR      ng_VisualInfo    */
  159.     NULPTR,        /* APTR      ng_UserData    */
  160.   },
  161.   {
  162.     GLEF_11, GTOP_11, GWID_11, GHEI_11,
  163.     "IMMEDIATE",        /* UBYTE    *ng_GadgetText    */
  164.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  165.     GAD_immediate_box,    /* UWORD    ng_GadgetID    */
  166.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  167.     NULPTR,        /* APTR      ng_VisualInfo    */
  168.     NULPTR,        /* APTR      ng_UserData    */
  169.   },
  170.   {
  171.     GLEF_12, GTOP_12, GWID_12, GHEI_12,
  172.     "DISABLED",        /* UBYTE    *ng_GadgetText    */
  173.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  174.     GAD_disabled_box,    /* UWORD    ng_GadgetID    */
  175.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  176.     NULPTR,        /* APTR      ng_VisualInfo    */
  177.     NULPTR,        /* APTR      ng_UserData    */
  178.   },
  179.   {
  180.     GLEF_13, GTOP_13, GWID_13, GHEI_13,
  181.     "RELVERIFY",        /* UBYTE    *ng_GadgetText    */
  182.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  183.     GAD_relverify_box,    /* UWORD    ng_GadgetID    */
  184.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  185.     NULPTR,        /* APTR      ng_VisualInfo    */
  186.     NULPTR,        /* APTR      ng_UserData    */
  187.   },
  188.   {
  189.     GLEF_14, GTOP_14, GWID_14, GHEI_14,
  190.     "Gadgets:",        /* UBYTE    *ng_GadgetText    */
  191.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  192.     GAD_gadgets_lv,    /* UWORD    ng_GadgetID    */
  193.     PLACETEXT_ABOVE | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  194.     NULPTR,        /* APTR      ng_VisualInfo    */
  195.     NULPTR,        /* APTR      ng_UserData    */
  196.   },
  197.   {
  198.     GLEF_15, GTOP_15, GWID_15, GHEI_15,
  199.     "List of Items:",        /* UBYTE    *ng_GadgetText    */
  200.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  201.     GAD_items_lv,    /* UWORD    ng_GadgetID    */
  202.     PLACETEXT_ABOVE | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  203.     NULPTR,        /* APTR      ng_VisualInfo    */
  204.     NULPTR,        /* APTR      ng_UserData    */
  205.   },
  206.   {
  207.     GLEF_16, GTOP_16, GWID_16, GHEI_16,
  208.     NULPTR,        /* UBYTE    *ng_GadgetText    */
  209.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  210.     GAD_flags_mx,    /* UWORD    ng_GadgetID    */
  211.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  212.     NULPTR,        /* APTR      ng_VisualInfo    */
  213.     NULPTR,        /* APTR      ng_UserData    */
  214.   },
  215.   {
  216.     GLEF_17, GTOP_17, GWID_17, GHEI_17,
  217.     NULPTR,        /* UBYTE    *ng_GadgetText    */
  218.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  219.     GAD_actions_mx,    /* UWORD    ng_GadgetID    */
  220.     PLACETEXT_RIGHT,    /* ULONG    ng_Flags    */
  221.     NULPTR,        /* APTR      ng_VisualInfo    */
  222.     NULPTR,        /* APTR      ng_UserData    */
  223.   },
  224.   {
  225.     GLEF_18, GTOP_18, GWID_18, GHEI_18,
  226.     "Buf/Space%3ld",        /* UBYTE    *ng_GadgetText    */
  227.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  228.     GAD_buf_space_sl,    /* UWORD    ng_GadgetID    */
  229.     PLACETEXT_ABOVE,    /* ULONG    ng_Flags    */
  230.     NULPTR,        /* APTR      ng_VisualInfo    */
  231.     NULPTR,        /* APTR      ng_UserData    */
  232.   },
  233.   {
  234.     GLEF_19, GTOP_19, GWID_19, GHEI_19,
  235.     "MaxVal %5ld",        /* UBYTE    *ng_GadgetText    */
  236.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  237.     GAD_maxval_sl,    /* UWORD    ng_GadgetID    */
  238.     PLACETEXT_ABOVE,    /* ULONG    ng_Flags    */
  239.     NULPTR,        /* APTR      ng_VisualInfo    */
  240.     NULPTR,        /* APTR      ng_UserData    */
  241.   },
  242.   {
  243.     GLEF_20, GTOP_20, GWID_20, GHEI_20,
  244.     "DefVal %5ld",        /* UBYTE    *ng_GadgetText    */
  245.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  246.     GAD_defval_sl,    /* UWORD    ng_GadgetID    */
  247.     PLACETEXT_ABOVE,    /* ULONG    ng_Flags    */
  248.     NULPTR,        /* APTR      ng_VisualInfo    */
  249.     NULPTR,        /* APTR      ng_UserData    */
  250.   },
  251.   {
  252.     GLEF_21, GTOP_21, GWID_21, GHEI_21,
  253.     "Region Name ",        /* UBYTE    *ng_GadgetText    */
  254.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  255.     GAD_region_str,    /* UWORD    ng_GadgetID    */
  256.     PLACETEXT_LEFT | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  257.     NULPTR,        /* APTR      ng_VisualInfo    */
  258.     NULPTR,        /* APTR      ng_UserData    */
  259.   },
  260.   {
  261.     GLEF_22, GTOP_22, GWID_22, GHEI_22,
  262.     "Label/Format",        /* UBYTE    *ng_GadgetText    */
  263.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  264.     GAD_label_str,    /* UWORD    ng_GadgetID    */
  265.     PLACETEXT_LEFT | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  266.     NULPTR,        /* APTR      ng_VisualInfo    */
  267.     NULPTR,        /* APTR      ng_UserData    */
  268.   },
  269.   {
  270.     GLEF_23, GTOP_23, GWID_23, GHEI_23,
  271.     "Default Str ",        /* UBYTE    *ng_GadgetText    */
  272.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  273.     GAD_default_str,    /* UWORD    ng_GadgetID    */
  274.     PLACETEXT_LEFT | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  275.     NULPTR,        /* APTR      ng_VisualInfo    */
  276.     NULPTR,        /* APTR      ng_UserData    */
  277.   },
  278.   {
  279.     GLEF_24, GTOP_24, GWID_24, GHEI_24,
  280.     NULPTR,        /* UBYTE    *ng_GadgetText    */
  281.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  282.     GAD_items_str,    /* UWORD    ng_GadgetID    */
  283.     PLACETEXT_LEFT,    /* ULONG    ng_Flags    */
  284.     NULPTR,        /* APTR      ng_VisualInfo    */
  285.     NULPTR,        /* APTR      ng_UserData    */
  286.   },
  287.   {
  288.     GLEF_25, GTOP_25, GWID_25, GHEI_25,
  289.     "Actions:",        /* UBYTE    *ng_GadgetText    */
  290.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  291.     GAD_actions_txt,    /* UWORD    ng_GadgetID    */
  292.     PLACETEXT_IN | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  293.     NULPTR,        /* APTR      ng_VisualInfo    */
  294.     NULPTR,        /* APTR      ng_UserData    */
  295.   },
  296.   {
  297.     GLEF_26, GTOP_26, GWID_26, GHEI_26,
  298.     "TextPos",        /* UBYTE    *ng_GadgetText    */
  299.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  300.     GAD_flags_txt,    /* UWORD    ng_GadgetID    */
  301.     PLACETEXT_IN | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  302.     NULPTR,        /* APTR      ng_VisualInfo    */
  303.     NULPTR,        /* APTR      ng_UserData    */
  304.   },
  305.   {
  306.     GLEF_27, GTOP_27, GWID_27, GHEI_27,
  307.     "SpecialFlags:",        /* UBYTE    *ng_GadgetText    */
  308.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  309.     GAD_special_txt,    /* UWORD    ng_GadgetID    */
  310.     PLACETEXT_IN | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  311.     NULPTR,        /* APTR      ng_VisualInfo    */
  312.     NULPTR,        /* APTR      ng_UserData    */
  313.   },
  314.   {
  315.     GLEF_28, GTOP_28, GWID_28, GHEI_28,
  316.     "Values:",        /* UBYTE    *ng_GadgetText    */
  317.     NULPTR,        /* struct TextAttr *ng_TextAttr    */
  318.     GAD_value_txt,    /* UWORD    ng_GadgetID    */
  319.     PLACETEXT_IN | NG_HIGHLABEL,    /* ULONG    ng_Flags    */
  320.     NULPTR,        /* APTR      ng_VisualInfo    */
  321.     NULPTR,        /* APTR      ng_UserData    */
  322.   },
  323. };
  324.  
  325. Gadget *Gad_update_but;
  326.  
  327. Gadget *Gad_items_down;
  328.  
  329. Gadget *Gad_items_up;
  330.  
  331. Gadget *Gad_items_add;
  332.  
  333. Gadget *Gad_items_del;
  334.  
  335. Gadget *Gad_checked_box;
  336.  
  337. Gadget *Gad_border_box;
  338.  
  339. Gadget *Gad_vertical_box;
  340.  
  341. Gadget *Gad_highlabel_box;
  342.  
  343. Gadget *Gad_recessed_box;
  344.  
  345. Gadget *Gad_readonly_box;
  346.  
  347. Gadget *Gad_immediate_box;
  348.  
  349. Gadget *Gad_disabled_box;
  350.  
  351. Gadget *Gad_relverify_box;
  352.  
  353. Gadget *Gad_gadgets_lv;
  354. struct Node NodeAry_gadgets_lv[14] = {
  355.   {
  356.     NodeAry_gadgets_lv + 1,
  357.     (struct Node *)&List_gadgets_lv.mlh_Head,
  358.     0, 0,
  359.     "Invisible"
  360.   },
  361.   {
  362.     NodeAry_gadgets_lv + 2,
  363.     NodeAry_gadgets_lv + 0,
  364.     0, 0,
  365.     "Button"
  366.   },
  367.   {
  368.     NodeAry_gadgets_lv + 3,
  369.     NodeAry_gadgets_lv + 1,
  370.     0, 0,
  371.     "CheckBox"
  372.   },
  373.   {
  374.     NodeAry_gadgets_lv + 4,
  375.     NodeAry_gadgets_lv + 2,
  376.     0, 0,
  377.     "Integer"
  378.   },
  379.   {
  380.     NodeAry_gadgets_lv + 5,
  381.     NodeAry_gadgets_lv + 3,
  382.     0, 0,
  383.     "ListView"
  384.   },
  385.   {
  386.     NodeAry_gadgets_lv + 6,
  387.     NodeAry_gadgets_lv + 4,
  388.     0, 0,
  389.     "MutualExcl"
  390.   },
  391.   {
  392.     NodeAry_gadgets_lv + 7,
  393.     NodeAry_gadgets_lv + 5,
  394.     0, 0,
  395.     "Number"
  396.   },
  397.   {
  398.     NodeAry_gadgets_lv + 8,
  399.     NodeAry_gadgets_lv + 6,
  400.     0, 0,
  401.     "Cycle"
  402.   },
  403.   {
  404.     NodeAry_gadgets_lv + 9,
  405.     NodeAry_gadgets_lv + 7,
  406.     0, 0,
  407.     "Palette"
  408.   },
  409.   {
  410.     NodeAry_gadgets_lv + 10,
  411.     NodeAry_gadgets_lv + 8,
  412.     0, 0,
  413.     "Scroller"
  414.   },
  415.   {
  416.     NodeAry_gadgets_lv + 11,
  417.     NodeAry_gadgets_lv + 9,
  418.     0, 0,
  419.     "BevelBox"
  420.   },
  421.   {
  422.     NodeAry_gadgets_lv + 12,
  423.     NodeAry_gadgets_lv + 10,
  424.     0, 0,
  425.     "Slider"
  426.   },
  427.   {
  428.     NodeAry_gadgets_lv + 13,
  429.     NodeAry_gadgets_lv + 11,
  430.     0, 0,
  431.     "String"
  432.   },
  433.   {
  434.     (struct Node *)&List_gadgets_lv.mlh_Tail,
  435.     NodeAry_gadgets_lv + 12,
  436.     0, 0,
  437.     "Text"
  438.   }
  439. };
  440.  
  441. List List_gadgets_lv = {
  442.   &NodeAry_gadgets_lv[0],
  443.   NULPTR,
  444.   &NodeAry_gadgets_lv[13]
  445. };
  446.  
  447. Gadget *Gad_items_lv;
  448. List List_items_lv = {
  449.   (struct MinNode *)&List_items_lv.mlh_Tail,
  450.   NULPTR,
  451.   (struct MinNode *)&List_items_lv.mlh_Head
  452. };
  453.  
  454. Gadget *Gad_flags_mx;
  455. char   *StatAry_flags_mx[] = {
  456.   "Left",
  457.   "Right",
  458.   "Above",
  459.   "Below",
  460.   "In",
  461.   NULPTR
  462. };
  463. char **Ary_flags_mx    = StatAry_flags_mx;
  464.  
  465. Gadget *Gad_actions_mx;
  466. char   *StatAry_actions_mx[] = {
  467.   "NEW",
  468.   "COPY",
  469.   "MOVE",
  470.   "SIZE",
  471.   "EXCL",
  472.   "DEL",
  473.   "TEST",
  474.   NULPTR
  475. };
  476. char **Ary_actions_mx    = StatAry_actions_mx;
  477.  
  478. Gadget *Gad_buf_space_sl;
  479.  
  480. Gadget *Gad_maxval_sl;
  481.  
  482. Gadget *Gad_defval_sl;
  483.  
  484. Gadget *Gad_region_str;
  485. char   *Buf_region_str;
  486.  
  487. Gadget *Gad_label_str;
  488. char   *Buf_label_str;
  489.  
  490. Gadget *Gad_default_str;
  491. char   *Buf_default_str;
  492.  
  493. Gadget *Gad_items_str;
  494. char   *Buf_items_str;
  495.  
  496. Gadget *Gad_actions_txt;
  497.  
  498. Gadget *Gad_flags_txt;
  499.  
  500. Gadget *Gad_special_txt;
  501.  
  502. Gadget *Gad_value_txt;
  503.  
  504.  
  505. Gadget *EGList;
  506.  
  507. /* ***** InitGads ***** */
  508. int
  509. InitGads(void)
  510. {
  511.   Gadget *gad;
  512.   short i;
  513.  
  514.   EGList = NULPTR;
  515.  
  516.   NewGadget *ng;
  517.   for (i = 0, ng = NGAry;
  518.        i < sizeof(NGAry)/sizeof(NGAry[0]);
  519.        ++i, ++ng)
  520.   {
  521.     ng->ng_VisualInfo = VisInfo;
  522.     ng->ng_TextAttr   = Scr->Font;
  523.   }
  524.   if ((gad = CreateContext(&EGList)) == NULL)
  525.     return(NULL);
  526.  
  527.   Gad_update_but    = gad = Egadlist[GAD_update_but] =
  528.     CreateGadget(  BUTTON_KIND, gad, NG_update_but,
  529.     TAG_END);
  530.  
  531.   if (gad == NULL)
  532.     return(NULL);
  533.  
  534.   (long)gad->UserData =   BUTTON_KIND;
  535.  
  536.   Gad_items_down    = gad = Egadlist[GAD_items_down] =
  537.     CreateGadget(  BUTTON_KIND, gad, NG_items_down,
  538.     TAG_END);
  539.  
  540.   if (gad == NULL)
  541.     return(NULL);
  542.  
  543.   (long)gad->UserData =   BUTTON_KIND;
  544.  
  545.   Gad_items_up    = gad = Egadlist[GAD_items_up] =
  546.     CreateGadget(  BUTTON_KIND, gad, NG_items_up,
  547.     TAG_END);
  548.  
  549.   if (gad == NULL)
  550.     return(NULL);
  551.  
  552.   (long)gad->UserData =   BUTTON_KIND;
  553.  
  554.   Gad_items_add    = gad = Egadlist[GAD_items_add] =
  555.     CreateGadget(  BUTTON_KIND, gad, NG_items_add,
  556.     TAG_END);
  557.  
  558.   if (gad == NULL)
  559.     return(NULL);
  560.  
  561.   (long)gad->UserData =   BUTTON_KIND;
  562.  
  563.   Gad_items_del    = gad = Egadlist[GAD_items_del] =
  564.     CreateGadget(  BUTTON_KIND, gad, NG_items_del,
  565.     TAG_END);
  566.  
  567.   if (gad == NULL)
  568.     return(NULL);
  569.  
  570.   (long)gad->UserData =   BUTTON_KIND;
  571.  
  572.   Gad_checked_box    = gad = Egadlist[GAD_checked_box] =
  573.     CreateGadget(CHECKBOX_KIND, gad, NG_checked_box,
  574.     GTCB_Checked,      0,
  575.     TAG_END);
  576.  
  577.   if (gad == NULL)
  578.     return(NULL);
  579.  
  580.   (long)gad->UserData = CHECKBOX_KIND;
  581.  
  582.   Gad_border_box    = gad = Egadlist[GAD_border_box] =
  583.     CreateGadget(CHECKBOX_KIND, gad, NG_border_box,
  584.     GTCB_Checked,      0,
  585.     TAG_END);
  586.  
  587.   if (gad == NULL)
  588.     return(NULL);
  589.  
  590.   (long)gad->UserData = CHECKBOX_KIND;
  591.  
  592.   Gad_vertical_box    = gad = Egadlist[GAD_vertical_box] =
  593.     CreateGadget(CHECKBOX_KIND, gad, NG_vertical_box,
  594.     GTCB_Checked,      0,
  595.     TAG_END);
  596.  
  597.   if (gad == NULL)
  598.     return(NULL);
  599.  
  600.   (long)gad->UserData = CHECKBOX_KIND;
  601.  
  602.   Gad_highlabel_box    = gad = Egadlist[GAD_highlabel_box] =
  603.     CreateGadget(CHECKBOX_KIND, gad, NG_highlabel_box,
  604.     GTCB_Checked,      0,
  605.     TAG_END);
  606.  
  607.   if (gad == NULL)
  608.     return(NULL);
  609.  
  610.   (long)gad->UserData = CHECKBOX_KIND;
  611.  
  612.   Gad_recessed_box    = gad = Egadlist[GAD_recessed_box] =
  613.     CreateGadget(CHECKBOX_KIND, gad, NG_recessed_box,
  614.     GTCB_Checked,      0,
  615.     TAG_END);
  616.  
  617.   if (gad == NULL)
  618.     return(NULL);
  619.  
  620.   (long)gad->UserData = CHECKBOX_KIND;
  621.  
  622.   Gad_readonly_box    = gad = Egadlist[GAD_readonly_box] =
  623.     CreateGadget(CHECKBOX_KIND, gad, NG_readonly_box,
  624.     GTCB_Checked,      0,
  625.     TAG_END);
  626.  
  627.   if (gad == NULL)
  628.     return(NULL);
  629.  
  630.   (long)gad->UserData = CHECKBOX_KIND;
  631.  
  632.   Gad_immediate_box    = gad = Egadlist[GAD_immediate_box] =
  633.     CreateGadget(CHECKBOX_KIND, gad, NG_immediate_box,
  634.     GTCB_Checked,      0,
  635.     TAG_END);
  636.  
  637.   if (gad == NULL)
  638.     return(NULL);
  639.  
  640.   (long)gad->UserData = CHECKBOX_KIND;
  641.  
  642.   Gad_disabled_box    = gad = Egadlist[GAD_disabled_box] =
  643.     CreateGadget(CHECKBOX_KIND, gad, NG_disabled_box,
  644.     GTCB_Checked,      0,
  645.     TAG_END);
  646.  
  647.   if (gad == NULL)
  648.     return(NULL);
  649.  
  650.   (long)gad->UserData = CHECKBOX_KIND;
  651.  
  652.   Gad_relverify_box    = gad = Egadlist[GAD_relverify_box] =
  653.     CreateGadget(CHECKBOX_KIND, gad, NG_relverify_box,
  654.     GTCB_Checked,      0,
  655.     TAG_END);
  656.  
  657.   if (gad == NULL)
  658.     return(NULL);
  659.  
  660.   (long)gad->UserData = CHECKBOX_KIND;
  661.  
  662.   Gad_gadgets_lv    = gad = Egadlist[GAD_gadgets_lv] =
  663.     CreateGadget(LISTVIEW_KIND, gad, NG_gadgets_lv,
  664.     GTLV_Labels,       &List_gadgets_lv,
  665.     GTLV_Selected,     0,
  666.     GTLV_ShowSelected, NULL,
  667.     LAYOUTA_Spacing,   4,
  668.     TAG_END);
  669.  
  670.   if (gad == NULL)
  671.     return(NULL);
  672.  
  673.   (long)gad->UserData = LISTVIEW_KIND;
  674.  
  675.   Gad_flags_mx    = gad = Egadlist[GAD_flags_mx] =
  676.     CreateGadget(      MX_KIND, gad, NG_flags_mx,
  677.     GTMX_Spacing,      4,
  678.     GTMX_Labels,       Ary_flags_mx,
  679.     GTMX_Active,       4,
  680.     TAG_END);
  681.  
  682.   if (gad == NULL)
  683.     return(NULL);
  684.  
  685.   (long)gad->UserData =       MX_KIND;
  686.  
  687.   Gad_actions_mx    = gad = Egadlist[GAD_actions_mx] =
  688.     CreateGadget(      MX_KIND, gad, NG_actions_mx,
  689.     GTMX_Spacing,      6,
  690.     GTMX_Labels,       Ary_actions_mx,
  691.     GTMX_Active,       6,
  692.     TAG_END);
  693.  
  694.   if (gad == NULL)
  695.     return(NULL);
  696.  
  697.   (long)gad->UserData =       MX_KIND;
  698.  
  699.   Gad_buf_space_sl    = gad = Egadlist[GAD_buf_space_sl] =
  700.     CreateGadget(  SLIDER_KIND, gad, NG_buf_space_sl,
  701.     GTSL_Max,          128,
  702.     GTSL_Level,        0,
  703.     GTSL_MaxLevelLen,  3,
  704.     GTSL_LevelFormat,  "Buf/Space%3ld",
  705.     GTSL_LevelPlace,   PLACETEXT_ABOVE,
  706.     GTSL_DispFunc,     DispFunc,
  707.     PGA_Freedom,       LORIENT_HORIZ,
  708.     TAG_END);
  709.  
  710.   if (gad == NULL)
  711.     return(NULL);
  712.  
  713.   (long)gad->UserData =   SLIDER_KIND;
  714.  
  715.   Gad_maxval_sl    = gad = Egadlist[GAD_maxval_sl] =
  716.     CreateGadget(  SLIDER_KIND, gad, NG_maxval_sl,
  717.     GTSL_Max,          16383,
  718.     GTSL_Level,        0,
  719.     GTSL_MaxLevelLen,  5,
  720.     GTSL_LevelFormat,  "MaxVal %5ld",
  721.     GTSL_LevelPlace,   PLACETEXT_ABOVE,
  722.     GTSL_DispFunc,     DispFunc,
  723.     PGA_Freedom,       LORIENT_HORIZ,
  724.     TAG_END);
  725.  
  726.   if (gad == NULL)
  727.     return(NULL);
  728.  
  729.   (long)gad->UserData =   SLIDER_KIND;
  730.  
  731.   Gad_defval_sl    = gad = Egadlist[GAD_defval_sl] =
  732.     CreateGadget(  SLIDER_KIND, gad, NG_defval_sl,
  733.     GTSL_Max,          16383,
  734.     GTSL_Level,        0,
  735.     GTSL_MaxLevelLen,  5,
  736.     GTSL_LevelFormat,  "DefVal %5ld",
  737.     GTSL_LevelPlace,   PLACETEXT_ABOVE,
  738.     GTSL_DispFunc,     DispFunc,
  739.     PGA_Freedom,       LORIENT_HORIZ,
  740.     TAG_END);
  741.  
  742.   if (gad == NULL)
  743.     return(NULL);
  744.  
  745.   (long)gad->UserData =   SLIDER_KIND;
  746.  
  747.   Gad_region_str    = gad = Egadlist[GAD_region_str] =
  748.     CreateGadget(  STRING_KIND, gad, NG_region_str,
  749.     GTST_MaxChars,     128,
  750.     TAG_END);
  751.  
  752.   if (gad == NULL)
  753.     return(NULL);
  754.  
  755.   Buf_region_str    = ((StringInfo *)gad->SpecialInfo)->Buffer;
  756.   (long)gad->UserData =   STRING_KIND;
  757.  
  758.   Gad_label_str    = gad = Egadlist[GAD_label_str] =
  759.     CreateGadget(  STRING_KIND, gad, NG_label_str,
  760.     GTST_MaxChars,     128,
  761.     TAG_END);
  762.  
  763.   if (gad == NULL)
  764.     return(NULL);
  765.  
  766.   Buf_label_str    = ((StringInfo *)gad->SpecialInfo)->Buffer;
  767.   (long)gad->UserData =   STRING_KIND;
  768.  
  769.   Gad_default_str    = gad = Egadlist[GAD_default_str] =
  770.     CreateGadget(  STRING_KIND, gad, NG_default_str,
  771.     GTST_MaxChars,     128,
  772.     TAG_END);
  773.  
  774.   if (gad == NULL)
  775.     return(NULL);
  776.  
  777.   Buf_default_str    = ((StringInfo *)gad->SpecialInfo)->Buffer;
  778.   (long)gad->UserData =   STRING_KIND;
  779.  
  780.   Gad_items_str    = gad = Egadlist[GAD_items_str] =
  781.     CreateGadget(  STRING_KIND, gad, NG_items_str,
  782.     GTST_MaxChars,     128,
  783.     TAG_END);
  784.  
  785.   if (gad == NULL)
  786.     return(NULL);
  787.  
  788.   Buf_items_str    = ((StringInfo *)gad->SpecialInfo)->Buffer;
  789.   (long)gad->UserData =   STRING_KIND;
  790.  
  791.   Gad_actions_txt    = gad = Egadlist[GAD_actions_txt] =
  792.     CreateGadget(    TEXT_KIND, gad, NG_actions_txt,
  793.     GTTX_Border,       0,
  794.     TAG_END);
  795.  
  796.   if (gad == NULL)
  797.     return(NULL);
  798.  
  799.   (long)gad->UserData =     TEXT_KIND;
  800.  
  801.   Gad_flags_txt    = gad = Egadlist[GAD_flags_txt] =
  802.     CreateGadget(    TEXT_KIND, gad, NG_flags_txt,
  803.     GTTX_Border,       0,
  804.     TAG_END);
  805.  
  806.   if (gad == NULL)
  807.     return(NULL);
  808.  
  809.   (long)gad->UserData =     TEXT_KIND;
  810.  
  811.   Gad_special_txt    = gad = Egadlist[GAD_special_txt] =
  812.     CreateGadget(    TEXT_KIND, gad, NG_special_txt,
  813.     GTTX_Border,       0,
  814.     TAG_END);
  815.  
  816.   if (gad == NULL)
  817.     return(NULL);
  818.  
  819.   (long)gad->UserData =     TEXT_KIND;
  820.  
  821.   Gad_value_txt    = gad = Egadlist[GAD_value_txt] =
  822.     CreateGadget(    TEXT_KIND, gad, NG_value_txt,
  823.     GTTX_Border,       0,
  824.     TAG_END);
  825.  
  826.   if (gad == NULL)
  827.     return(NULL);
  828.  
  829.   (long)gad->UserData =     TEXT_KIND;
  830.  
  831.   Gad_items_lv    = gad = Egadlist[GAD_items_lv] =
  832.     CreateGadget(LISTVIEW_KIND, gad, NG_items_lv,
  833.     GTLV_Labels,       &List_items_lv,
  834.     GTLV_Selected,     0,
  835.     GTLV_ShowSelected, Gad_items_str,
  836.     LAYOUTA_Spacing,   4,
  837.     TAG_END);
  838.  
  839.   if (gad == NULL)
  840.     return(NULL);
  841.  
  842.   (long)gad->UserData = LISTVIEW_KIND;
  843.  
  844.   return(EGList);
  845. }
  846.  
  847. /* CallBack function to Sliders & Scrollers */
  848. __geta4 long
  849. DispFunc(Gadget *gad, WORD Level)
  850. {
  851.   return((long)Level);
  852. }
  853.  
  854. /* ***** Do BevelBorders ***** */
  855. void
  856. drawborders(void)
  857. {
  858. /* *** extra_bbox *** */
  859.   DrawBevelBox(EWin->RPort, BLEF_0, BTOP_0, BWID_0, BHEI_0,
  860.     GT_VisualInfo, VisInfo,
  861.     TAG_END);
  862. /* *** specflag_bbox *** */
  863.   DrawBevelBox(EWin->RPort, BLEF_1, BTOP_1, BWID_1, BHEI_1,
  864.     GT_VisualInfo, VisInfo,
  865.     TAG_END);
  866. /* *** values_bbox *** */
  867.   DrawBevelBox(EWin->RPort, BLEF_2, BTOP_2, BWID_2, BHEI_2,
  868.     GT_VisualInfo, VisInfo,
  869.     TAG_END);
  870. /* *** flags_bbox *** */
  871.   DrawBevelBox(EWin->RPort, BLEF_3, BTOP_3, BWID_3, BHEI_3,
  872.     GT_VisualInfo, VisInfo,
  873.     TAG_END);
  874. /* *** strings_bbox *** */
  875.   DrawBevelBox(EWin->RPort, BLEF_4, BTOP_4, BWID_4, BHEI_4,
  876.     GT_VisualInfo, VisInfo,
  877.     TAG_END);
  878. /* *** items_bbox *** */
  879.   DrawBevelBox(EWin->RPort, BLEF_5, BTOP_5, BWID_5, BHEI_5,
  880.     GT_VisualInfo, VisInfo,
  881.     TAG_END);
  882. /* *** gadgets_bbox *** */
  883.   DrawBevelBox(EWin->RPort, BLEF_6, BTOP_6, BWID_6, BHEI_6,
  884.     GT_VisualInfo, VisInfo,
  885.     TAG_END);
  886. /* *** actions_bbox *** */
  887.   DrawBevelBox(EWin->RPort, BLEF_7, BTOP_7, BWID_7, BHEI_7,
  888.     GT_VisualInfo, VisInfo,
  889.     TAG_END);
  890. }
  891.  
  892. /* ***** Free the Gadlist and return ***** */
  893. void
  894. FreeGads(void)
  895. {
  896.   FreeGadgets(EGList);
  897.   EGList  = NULL;
  898. }
  899.