home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 608b.lha / AmigaInterfaceBuilder / source.LZH / source / construct.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-11  |  27.5 KB  |  1,101 lines
  1. /*construct.c */
  2. #include "aib.h"
  3. #include "main.h"
  4.  
  5. /* function prototypes */
  6. void main(void);
  7. void abort_me(char *);
  8. void setup(void);
  9. void closedown(void);
  10. void main_menu(void);
  11. void window_menu(void);
  12. void handle_input(void);
  13. void handle_gadgetup(struct Gadget *, UWORD);
  14. void handle_gadgetdown(struct Gadget *, UWORD);
  15. void replace_gads(short);
  16. void wflags_menu(void);
  17. void gadget_menu(void);
  18.  
  19.  
  20. /*************************** main ********************************/
  21. void main(void)
  22. {
  23.  
  24.    setup();
  25.    main_menu();
  26.    handle_input();
  27. }
  28.  
  29. /*************************** abort **********************************/
  30. void abort_me(txt)
  31. char *txt;
  32. {
  33.    request("AIB: FATAL",txt,"Abort");
  34.    closedown();
  35.    exit(0);
  36. }
  37.  
  38.  
  39. /*********************** SETUP *********************************************/
  40. void setup(void)
  41. {
  42.  
  43.    GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", MIN_VERSION);
  44.    if (!GfxBase)
  45.       abort_me("Can't open graphics.library. WB Version 36 or above required.");
  46.    IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",
  47.                                                        MIN_VERSION);
  48.    if (!IntuitionBase)
  49.       abort_me("Can't open intuition.library. WB Version 36 or above required.");
  50.    GadToolsBase = (struct Library *)OpenLibrary("gadtools.library",
  51.                                                 MIN_VERSION);
  52.    if (!GadToolsBase)
  53.       abort_me("Can't open gadtools.library. WB Version 36 or above required.");
  54.  
  55.    if ( ( AslBase = OpenLibrary(AslName,36))==0)
  56.          abort_me("Can't open asl.library.  WB Version 36 or above required.");
  57.  
  58.    if (!(DiskfontBase = OpenLibrary("diskfont.library",36L)))
  59.      abort_me("Can't open diskfont.library v36 or up.");
  60.          
  61.    /* get access to the WorkBench screen */
  62.    screen = LockPubScreen(NULL);
  63.    if (!screen)
  64.       abort_me("Couldn't lock the default public screen."); 
  65.  
  66.    menuta = screen->Font;
  67.     
  68.    /* get the screen's visual information data */
  69.    vi = GetVisualInfo(screen, TAG_DONE);
  70.    if (!vi)
  71.       abort_me("Couldn't get default public screen's VisualInfo.");
  72.  
  73.  
  74.    /* now open up AIB, sketchpad on the WorkBench */
  75.  
  76.    Modify_Theirs();
  77.  
  78.    window = OpenWindowTags(NULL,WA_Activate, TRUE,
  79.                            WA_IDCMP,CLOSEWINDOW | VANILLAKEY | REFRESHWINDOW |
  80.                                     SLIDERIDCMP | STRINGIDCMP | BUTTONIDCMP |
  81.                                     CHECKBOXIDCMP | MXIDCMP | MENUPICK |LISTVIEWIDCMP,
  82.                            WA_Width, 550,
  83.                WA_Gadgets, glist,
  84.                WA_Left,40,
  85.                WA_Top,0,
  86.                            WA_InnerHeight,180,
  87.                            WA_DragBar,TRUE,
  88.                            WA_DepthGadget, TRUE,
  89.                            WA_SimpleRefresh,TRUE,
  90.                            WA_Title,titles[0],
  91.                            TAG_DONE);
  92.  
  93.    if (!window || !theirs.sketchpad)
  94.       abort_me("Couldn't open the  windows.");
  95.  
  96.    GT_RefreshWindow(window,NULL);
  97.    NewList(&tit_list);
  98. }
  99.  
  100.  
  101. /************************* CLOSEDOWN *************************************/
  102. void closedown(void)
  103. { 
  104.    if (menu) FreeMenus(menu);
  105.    if (window) CloseWindow(window);
  106.    if (theirs.sketchpad) CloseWindow(theirs.sketchpad);
  107.    if (topt) free_allmenu(topt);
  108.    if (newtop) free_allmenu(newtop);
  109.    if (CustomMenuFont) CloseFont(CustomMenuFont);
  110.    /* these two functions can take a NULL, but let's stay consistent */
  111.    if (glist) FreeGadgets(glist);
  112.    if (vi) FreeVisualInfo(vi);
  113.  
  114.    if (screen) UnlockPubScreen(NULL, screen);
  115.    if (rmem) FreeRemember(&rmem, TRUE);
  116.  
  117.    if (GadToolsBase) CloseLibrary(GadToolsBase);
  118.    if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  119.    if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  120.    if (DiskfontBase) CloseLibrary(DiskfontBase);
  121.    if (AslBase)    CloseLibrary(AslBase);
  122. }
  123.  
  124.  
  125. /************************ CREATE'EM ****************************************/
  126.  
  127.  
  128. /** main menu **/
  129.  
  130. void  main_menu(void)
  131. {
  132.    UWORD top;              /* offset into Window under titlebar */
  133.    struct NewGadget ng;    /* for Gadget positioning */
  134.    struct Gadget *gad;     /* our running Gadget pointer */
  135.  
  136.      
  137.    top = window->BorderTop + 1;
  138.    gad = CreateContext(&glist);
  139.  
  140.    /* now we can fill out the NewGadget structure to describe where we want
  141.       the Gadget to be placed */
  142.    
  143.    ng.ng_VisualInfo = vi;
  144.    ng.ng_TextAttr = &topaz80;
  145.    ng.ng_Flags = 0;
  146.  
  147. /*   ng.ng_Flags = PLACETEXT_LEFT;*/
  148.  
  149.    ng.ng_LeftEdge = 195;
  150.    ng.ng_TopEdge = top + 10;
  151.    ng.ng_Width = 170;
  152.    ng.ng_Height = 15;
  153.    ng.ng_GadgetID = M_nam;
  154.    ng.ng_GadgetText = "Project Name:";
  155.     gad = CreateGadget(TEXT_KIND,gad,&ng,
  156.       GTTX_Border,TRUE,
  157.       GTTX_Text,"none",
  158.           GT_Underscore,'_',
  159.           TAG_DONE);
  160.       
  161.    ng.ng_Flags = 0; /*PLACETEXT_IN;*/
  162.    ng.ng_LeftEdge = 65;
  163.    ng.ng_TopEdge = top + 55;
  164.    ng.ng_Width = 170;
  165.    ng.ng_Height = 20;
  166.    ng.ng_GadgetID = M_pro;
  167.    ng.ng_GadgetText = "_Project...";
  168.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  169.           GT_Underscore,'_',
  170.           TAG_DONE);
  171.  
  172.    ng.ng_LeftEdge = 65;
  173.    ng.ng_TopEdge = top + 95;
  174.    ng.ng_Width = 170;
  175.    ng.ng_Height = 20;
  176.    ng.ng_GadgetID= M_abo;
  177.    ng.ng_GadgetText=  "_About...  ";
  178.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  179.           GT_Underscore,'_',
  180.           TAG_DONE);
  181.    
  182.    ng.ng_LeftEdge = 65;
  183.    ng.ng_TopEdge = top + 135;
  184.    ng.ng_Width = 170;
  185.    ng.ng_Height = 20;
  186.    ng.ng_GadgetID= M_qui;
  187.    ng.ng_GadgetText=  "_Quit...   ";
  188.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  189.           GT_Underscore,'_',
  190.           TAG_DONE);       
  191.           
  192.    ng.ng_LeftEdge = window->Width-240;
  193.    ng.ng_TopEdge = top + 55;
  194.    ng.ng_Width = 170;
  195.    ng.ng_Height = 20;
  196.    ng.ng_GadgetID= M_men;
  197.    ng.ng_GadgetText=  "_Menu...   ";
  198.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  199.           GT_Underscore,'_',
  200.           TAG_DONE);
  201.    
  202.    ng.ng_LeftEdge = window->Width-240;
  203.    ng.ng_TopEdge = top + 95;
  204.    ng.ng_Width = 170;
  205.    ng.ng_Height = 20;
  206.    ng.ng_GadgetID= M_gad;
  207.    ng.ng_GadgetText=  "_Gadgets...";
  208.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  209.           GT_Underscore,'_',
  210.           TAG_DONE);
  211.    
  212.    ng.ng_LeftEdge = window->Width-240;
  213.    ng.ng_TopEdge = top + 135;
  214.    ng.ng_Width = 170;
  215.    ng.ng_Height = 20;
  216.    ng.ng_GadgetID= M_win;
  217.    ng.ng_GadgetText=  "_Window... ";
  218.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  219.           GT_Underscore,'_',
  220.           TAG_DONE);
  221.    
  222.    if (!gad)
  223.       abort_me("Couldn't allocate the Gadget list.");
  224.  
  225.    AddGList(window, glist, (UWORD)-1, (UWORD)-1, NULL);
  226.    RefreshGList(glist, window, NULL, (UWORD)-1);
  227.    GT_RefreshWindow(window, NULL);
  228. }
  229.  
  230.  
  231. /** gadget menu **/
  232.  
  233. void gadget_menu(void)
  234. {
  235.    UWORD top;              /* offset into Window under titlebar */
  236.    struct NewGadget ng;    /* for Gadget positioning */
  237.    struct Gadget *gad;     /* our running Gadget pointer */
  238.    struct Node *node;
  239.    struct maingad *tempgad = topgad;
  240.    
  241.    top = window->BorderTop + 1;
  242.    gad =  CreateContext(&glist);
  243.  
  244.  
  245.    /* now we can fill out the NewGadget structure to describe where we want
  246.       the Gadget to be placed */
  247.  
  248.  
  249.    ng.ng_TextAttr = &topaz80;
  250.    ng.ng_VisualInfo = vi;
  251.    ng.ng_Flags = 0;
  252.  
  253.       /* prepare gad list */
  254.      NewList(&list);
  255.      while(tempgad)
  256.      {
  257.       node=(struct Node *)AllocRemember(&rmem,sizeof(struct Node), MEMF_CLEAR);
  258.       if (!node)
  259.           abort_me("couldn't allocate LISTVIEW list.");
  260.       node->ln_Name = tempgad->name;
  261.       AddTail(&list,node);
  262.       tempgad=tempgad->next;
  263.      }    
  264.   
  265.   gad = conditional_gadgets(gad);
  266.  
  267.    ng.ng_LeftEdge = 30;
  268.    ng.ng_TopEdge = top + 16;
  269.    ng.ng_Width = 260;
  270.    ng.ng_Height = 55;
  271.    ng.ng_GadgetID = G_list;
  272.    ng.ng_GadgetText="Current *Gadget";
  273.     gad = CreateGadget(LISTVIEW_KIND,gad,&ng,
  274.           GTLV_Top,(currgad)?currgad->id:0,
  275.           GTLV_Labels,&list,
  276.           GTLV_ReadOnly,FALSE,
  277.           GTLV_ScrollWidth,16,
  278.           GTLV_ShowSelected,NULL,
  279.           GTLV_Selected,(currgad)?currgad->id:~0,
  280.           GT_Underscore, '*',
  281.           LAYOUTA_SPACING,2,
  282.           TAG_DONE);
  283.  
  284.     
  285.    ng.ng_LeftEdge = 345;
  286.    ng.ng_TopEdge = top + 18;
  287.    ng.ng_Width = 140;
  288.    ng.ng_Height = 12;
  289.    ng.ng_GadgetID = G_new;
  290.    ng.ng_GadgetText="CREATE *NEW...";
  291.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  292.           GT_Underscore, '*',
  293.           TAG_DONE);
  294.      
  295.    ng.ng_LeftEdge = 345;
  296.    ng.ng_TopEdge = top + 33;
  297.    ng.ng_Width = 140;
  298.    ng.ng_Height = 12;
  299.    ng.ng_GadgetID = G_edi;
  300.    ng.ng_GadgetText="*EDIT Current";
  301.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  302.       GA_Disabled, (currgad)?FALSE:TRUE,
  303.           GT_Underscore, '*',
  304.           TAG_DONE);
  305.    
  306.    ng.ng_LeftEdge = 345;
  307.    ng.ng_TopEdge = top + 48;
  308.    ng.ng_Width = 140;
  309.    ng.ng_Height = 12;
  310.    ng.ng_GadgetID = G_del;
  311.    ng.ng_GadgetText="*DELETE Current";
  312.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  313.       GA_Disabled, (currgad)?FALSE:TRUE,
  314.           GT_Underscore, '*',
  315.           TAG_DONE);
  316.  
  317.  
  318.    ng.ng_LeftEdge = 200;
  319.    ng.ng_TopEdge = top + 68;
  320.    ng.ng_Width = 180;
  321.    ng.ng_Height = 12;
  322.    ng.ng_GadgetID = G_type;
  323.    ng.ng_GadgetText="Gadget type: ";
  324.    printf("%d\n",currgad->type);
  325.     gad = CreateGadget(TEXT_KIND,gad,&ng,
  326.           GTTX_Text,(currgad)?testlabels[currgad->type]:NULL,  /* temporary */
  327.           GTTX_Border,TRUE,
  328.           GT_Underscore, '*',
  329.           TAG_DONE);
  330.  
  331.    ng.ng_LeftEdge = 360;
  332.    ng.ng_TopEdge = top + 160;
  333.    ng.ng_Width = 150;
  334.    ng.ng_Height = 15;
  335.    ng.ng_GadgetID = G_can;
  336.    ng.ng_GadgetText="*Cancel";
  337.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  338.           GT_Underscore, '*',
  339.           TAG_DONE);
  340.           
  341.    ng.ng_LeftEdge = 30;
  342.    ng.ng_TopEdge = top + 160;
  343.    ng.ng_Width = 150;
  344.    ng.ng_Height = 15;
  345.    ng.ng_GadgetID = G_ok;
  346.    ng.ng_GadgetText="*OK";
  347.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  348.           GT_Underscore, '*',
  349.           TAG_DONE);
  350.  
  351.  
  352.     if (!gad)
  353.       abort_me("Couldn't allocate the Gadget list.");
  354.  
  355.    AddGList(window, glist, (UWORD)-1, (UWORD)-1, NULL);
  356.    RefreshGList(glist, window, NULL, (UWORD)-1);
  357.    GT_RefreshWindow(window, NULL);
  358. }
  359.   
  360.   
  361. /** wflags menu **/
  362.  
  363. void wflags_menu(void)
  364. {
  365.    UWORD top;              /* offset into Window under titlebar */
  366.    struct NewGadget ng;    /* for Gadget positioning */
  367.    struct Gadget *gad;     /* our running Gadget pointer */
  368.  
  369.    
  370.    top = window->BorderTop + 1;
  371.    gad =  CreateContext(&glist);
  372.  
  373.    /* now we can fill out the NewGadget structure to describe where we want
  374.       the Gadget to be placed */
  375.  
  376.    ng.ng_TextAttr = &topaz80;
  377.    ng.ng_VisualInfo = vi;
  378.    ng.ng_Flags = 0;
  379.    
  380.    ng.ng_LeftEdge = 170;
  381.    ng.ng_TopEdge = top + 10;
  382.    ng.ng_Width = 50;
  383.    ng.ng_Height = 15;
  384.    ng.ng_GadgetID = W1_size;
  385.    ng.ng_GadgetText="WA_*SizeGadget";
  386.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  387.       GTCB_Checked, theirs.size,
  388.           GT_Underscore, '*',
  389.           TAG_DONE);
  390.    
  391.    ng.ng_LeftEdge = 170;
  392.    ng.ng_TopEdge = top + 25;
  393.    ng.ng_Width = 420;
  394.    ng.ng_Height = 15;
  395.    ng.ng_GadgetID = W1_drag;
  396.    ng.ng_GadgetText="WA_*DragBar";
  397.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  398.       GTCB_Checked , theirs.drag,    
  399.           GT_Underscore, '*',
  400.           TAG_DONE);
  401.    
  402.    ng.ng_LeftEdge = 170;
  403.    ng.ng_TopEdge = top + 40;
  404.    ng.ng_Width = 420;
  405.    ng.ng_Height = 15;
  406.    ng.ng_GadgetID = W1_dept;
  407.    ng.ng_GadgetText="WA_*DepthGadget";
  408.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  409.       GTCB_Checked , theirs.depth, 
  410.           GT_Underscore, '*',
  411.           TAG_DONE);
  412.    
  413.    ng.ng_LeftEdge = 170;
  414.    ng.ng_TopEdge = top + 55;
  415.    ng.ng_Width = 420;
  416.    ng.ng_Height = 15;
  417.    ng.ng_GadgetID = W1_clos;
  418.    ng.ng_GadgetText="WA_*CloseGadget";
  419.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  420.       GTCB_Checked , theirs.close,
  421.           GT_Underscore, '*',
  422.           TAG_DONE);
  423.    
  424.    ng.ng_LeftEdge = 170;
  425.    ng.ng_TopEdge = top + 70;
  426.    ng.ng_Width = 420;
  427.    ng.ng_Height = 15;
  428.    ng.ng_GadgetID = W1_back;
  429.    ng.ng_GadgetText="WA_*Backdrop";
  430.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  431.       GTCB_Checked , theirs.back, 
  432.           GT_Underscore, '*',
  433.           TAG_DONE);
  434.    
  435.    ng.ng_LeftEdge = 170;
  436.    ng.ng_TopEdge = top + 85;
  437.    ng.ng_Width = 420;
  438.    ng.ng_Height = 15;
  439.    ng.ng_GadgetID = W1_repo;
  440.    ng.ng_GadgetText="WA_*ReportMouse";
  441.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  442.       GTCB_Checked , theirs.report, 
  443.           GT_Underscore, '*',
  444.           TAG_DONE);
  445.    
  446.    ng.ng_LeftEdge = 170;
  447.    ng.ng_TopEdge = top + 100;
  448.    ng.ng_Width = 420;
  449.    ng.ng_Height = 15;
  450.    ng.ng_GadgetID = W1_noca;
  451.    ng.ng_GadgetText="WA_*NoCareRefresh";
  452.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  453.       GTCB_Checked , theirs.nocare, 
  454.           GT_Underscore, '*',
  455.           TAG_DONE);
  456.    
  457.    ng.ng_LeftEdge = 170;
  458.    ng.ng_TopEdge = top + 115;
  459.    ng.ng_Width = 420;
  460.    ng.ng_Height = 15;
  461.    ng.ng_GadgetID = W1_bord;
  462.    ng.ng_GadgetText="WA_*Borderless";
  463.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  464.       GTCB_Checked , theirs.bord, 
  465.           GT_Underscore, '*',
  466.           TAG_DONE);
  467.    
  468.    ng.ng_LeftEdge = 455;
  469.    ng.ng_TopEdge = top + 10;
  470.    ng.ng_Width = 50;
  471.    ng.ng_Height = 15;
  472.    ng.ng_GadgetID = W1_acti;
  473.    ng.ng_GadgetText="WA_*Activate";
  474.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  475.       GTCB_Checked , theirs.act, 
  476.           GT_Underscore, '*',
  477.           TAG_DONE);
  478.  
  479.    ng.ng_LeftEdge = 455;
  480.    ng.ng_TopEdge = top + 25;
  481.    ng.ng_Width = 50;
  482.    ng.ng_Height = 15;
  483.    ng.ng_GadgetID = W1_rmbt;
  484.    ng.ng_GadgetText="WA_*RMBTrap";
  485.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  486.       GTCB_Checked , theirs.rmb, 
  487.           GT_Underscore, '*',
  488.           TAG_DONE);
  489.    
  490.    ng.ng_LeftEdge = 455;
  491.    ng.ng_TopEdge = top + 40;
  492.    ng.ng_Width = 50;
  493.    ng.ng_Height = 15;
  494.    ng.ng_GadgetID = W1_simp;
  495.    ng.ng_GadgetText="WA_*SimpleRefresh";
  496.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  497.       GTCB_Checked , theirs.simple, 
  498.           GT_Underscore, '*',
  499.           TAG_DONE);
  500.    
  501.    ng.ng_LeftEdge = 455;
  502.    ng.ng_TopEdge = top + 55;
  503.    ng.ng_Width = 50;
  504.    ng.ng_Height = 15;
  505.    ng.ng_GadgetID = W1_smar;
  506.    ng.ng_GadgetText="WA_*SmartRefresh";
  507.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  508.       GTCB_Checked , theirs.smart, 
  509.           GT_Underscore, '*',
  510.           TAG_DONE);
  511.    
  512.    ng.ng_LeftEdge = 455;
  513.    ng.ng_TopEdge = top + 70;
  514.    ng.ng_Width = 50;
  515.    ng.ng_Height = 15;
  516.    ng.ng_GadgetID = W1_sizer;
  517.    ng.ng_GadgetText="WA_*SizeBRight";
  518.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  519.       GTCB_Checked , theirs.sizer, 
  520.           GT_Underscore, '*',
  521.           TAG_DONE);
  522.    
  523.    ng.ng_LeftEdge = 455;
  524.    ng.ng_TopEdge = top + 85;
  525.    ng.ng_Width = 50;
  526.    ng.ng_Height = 15;
  527.    ng.ng_GadgetID = W1_sizeb;
  528.    ng.ng_GadgetText="WA_*SizeBBottom";
  529.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  530.       GTCB_Checked , theirs.sizeb, 
  531.           GT_Underscore, '*',
  532.           TAG_DONE);
  533.    
  534.    ng.ng_LeftEdge = 455;
  535.    ng.ng_TopEdge = top + 100;
  536.    ng.ng_Width = 50;
  537.    ng.ng_Height = 15;
  538.    ng.ng_GadgetID = W1_auto;
  539.    ng.ng_GadgetText="WA_*AutoAdjust";
  540.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  541.       GTCB_Checked , theirs.aut, 
  542.           GT_Underscore, '*',
  543.           TAG_DONE);
  544.    
  545.    ng.ng_LeftEdge = 455;
  546.    ng.ng_TopEdge = top + 115;
  547.    ng.ng_Width = 50;
  548.    ng.ng_Height = 15;
  549.    ng.ng_GadgetID = W1_gimm;
  550.    ng.ng_GadgetText="WA_*GimmeZeroZero";
  551.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  552.       GTCB_Checked , theirs.gimme, 
  553.           GT_Underscore, '*',
  554.           TAG_DONE);
  555.    
  556.    ng.ng_LeftEdge = 360;
  557.    ng.ng_TopEdge = top + 160;
  558.    ng.ng_Width = 150;
  559.    ng.ng_Height = 15;
  560.    ng.ng_GadgetID = W1_can;
  561.    ng.ng_GadgetText="*Cancel";
  562.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  563.           GT_Underscore, '*',
  564.           TAG_DONE);
  565.           
  566.    
  567.    ng.ng_LeftEdge = 30;
  568.    ng.ng_TopEdge = top + 160;
  569.    ng.ng_Width = 150;
  570.    ng.ng_Height = 15;
  571.    ng.ng_GadgetID = W1_ok;
  572.    ng.ng_GadgetText="*OK";
  573.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  574.           GT_Underscore, '*',
  575.           TAG_DONE);
  576.  
  577.    if (!gad)
  578.       abort_me("Couldn't allocate the Gadget list.");
  579.  
  580.    AddGList(window, glist, (UWORD)-1, (UWORD)-1, NULL);
  581.    RefreshGList(glist, window, NULL, (UWORD)-1);
  582.    GT_RefreshWindow(window, NULL);
  583. }
  584.  
  585. /**  Windows menu **/
  586.  
  587. void window_menu(void)
  588. {
  589.    UWORD top;              /* offset into Window under titlebar */
  590.    struct NewGadget ng;    /* for Gadget positioning */
  591.    struct Gadget *gad;     /* our running Gadget pointer */
  592.  
  593.    
  594.    top = window->BorderTop + 1;
  595.    gad =  CreateContext(&glist);
  596.  
  597.    /* now we can fill out the NewGadget structure to describe where we want
  598.       the Gadget to be placed */
  599.  
  600.    ng.ng_TextAttr = &topaz80;
  601.    ng.ng_VisualInfo = vi;
  602.    ng.ng_Flags = 0;
  603.  
  604.    ng.ng_LeftEdge = 90;
  605.    ng.ng_TopEdge = top + 10;
  606.    ng.ng_Width = 420;
  607.    ng.ng_Height = 15;
  608.    ng.ng_GadgetID = W_tit;
  609.    ng.ng_GadgetText="WA_*Title";
  610.     gad = CreateGadget(STRING_KIND,gad,&ng,
  611.           GTST_String, theirs.title,
  612.           GTST_MaxChars,240,
  613.           GT_Underscore, '*',
  614.           TAG_DONE);
  615.  
  616.    ng.ng_LeftEdge =130;
  617.    ng.ng_TopEdge = top + 30;
  618.    ng.ng_Width = 55;
  619.    ng.ng_Height = 15;
  620.    ng.ng_GadgetID = W_lef;
  621.    ng.ng_GadgetText="WA_*Left";
  622.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  623.           GTIN_Number, theirs.left,
  624.           GTIN_MaxChars,5,
  625.           GT_Underscore, '*',
  626.           TAG_DONE);
  627.  
  628.    ng.ng_LeftEdge =130;
  629.    ng.ng_TopEdge = top + 50;
  630.    ng.ng_Width = 55;
  631.    ng.ng_Height = 15;
  632.    ng.ng_GadgetID = W_top;
  633.    ng.ng_GadgetText="WA_*Top";
  634.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  635.           GTIN_Number, theirs.top,
  636.           GTIN_MaxChars,5,
  637.           GT_Underscore, '*',
  638.           TAG_DONE);
  639.   
  640.    ng.ng_LeftEdge =130;
  641.    ng.ng_TopEdge = top + 70;
  642.    ng.ng_Width = 55;
  643.    ng.ng_Height = 15;
  644.    ng.ng_GadgetID = W_wid;
  645.    ng.ng_GadgetText="WA_*Width";
  646.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  647.           GTIN_Number, theirs.width,
  648.           GTIN_MaxChars,5,
  649.           GT_Underscore, '*',
  650.           TAG_DONE);
  651.  
  652.    ng.ng_LeftEdge =130;
  653.    ng.ng_TopEdge = top + 90;
  654.    ng.ng_Width = 55;
  655.    ng.ng_Height = 15;
  656.    ng.ng_GadgetID = W_hei;
  657.    ng.ng_GadgetText="WA_*Height";
  658.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  659.           GTIN_Number, theirs.height,
  660.           GTIN_MaxChars,5,
  661.           GT_Underscore, '*',
  662.           TAG_DONE);
  663.  
  664.    ng.ng_LeftEdge =130;
  665.    ng.ng_TopEdge = top + 110;
  666.    ng.ng_Width = 55;
  667.    ng.ng_Height = 15;
  668.    ng.ng_GadgetID = W_inw;
  669.    ng.ng_GadgetText="WA_*InnerWidth";
  670.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  671.           GTIN_Number, theirs.innerw,
  672.           GTIN_MaxChars,5,
  673.           GT_Underscore, '*',
  674.           TAG_DONE);
  675.  
  676.    ng.ng_LeftEdge =130;
  677.    ng.ng_TopEdge = top + 130;
  678.    ng.ng_Width = 55;
  679.    ng.ng_Height = 15;
  680.    ng.ng_GadgetID = W_inh;
  681.    ng.ng_GadgetText="WA_*InnerHeight";
  682.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  683.           GTIN_Number, theirs.innerh,
  684.           GTIN_MaxChars,5,
  685.           GT_Underscore, '*',
  686.           TAG_DONE);
  687.  
  688.    ng.ng_LeftEdge = 300;
  689.    ng.ng_TopEdge = top + 32;
  690.    ng.ng_Width = 50;
  691.    ng.ng_Height = 15;
  692.    ng.ng_GadgetID = W_zoo;
  693.    ng.ng_GadgetText="*WA_Zoom";
  694.     gad = CreateGadget(CHECKBOX_KIND,gad,&ng,
  695.           GTCB_Checked, theirs.zoom,
  696.           GT_Underscore, '*',
  697.           TAG_DONE);
  698.    
  699.    ng.ng_LeftEdge = 290;
  700.    ng.ng_TopEdge = top + 50;
  701.    ng.ng_Width = 55;
  702.    ng.ng_Height = 15;
  703.    ng.ng_GadgetID = W_zoo1;
  704.    ng.ng_GadgetText="Zoom *Left";
  705.     zl=gad = CreateGadget(INTEGER_KIND,gad,&ng,
  706.       GA_DISABLED, (theirs.zoom)? FALSE : TRUE,    
  707.           GTIN_Number, theirs.zl,
  708.           GTIN_MaxChars,5,
  709.           GT_Underscore, '*',
  710.           TAG_DONE);
  711.  
  712.    ng.ng_LeftEdge = 290;
  713.    ng.ng_TopEdge = top + 70;
  714.    ng.ng_Width = 55;
  715.    ng.ng_Height = 15;
  716.    ng.ng_GadgetID = W_zoo2;
  717.    ng.ng_GadgetText="Zoom *Top";
  718.     zt=gad = CreateGadget(INTEGER_KIND,gad,&ng,
  719.       GA_DISABLED, (theirs.zoom)? FALSE : TRUE,    
  720.           GTIN_Number, theirs.zt,
  721.           GTIN_MaxChars,5,
  722.           GT_Underscore, '*',
  723.           TAG_DONE);
  724.   
  725.    ng.ng_LeftEdge = 290;
  726.    ng.ng_TopEdge = top + 90;
  727.    ng.ng_Width = 55;
  728.    ng.ng_Height = 15;
  729.    ng.ng_GadgetID = W_zoo3;
  730.    ng.ng_GadgetText="*Zoom Width";
  731.     zw=gad = CreateGadget(INTEGER_KIND,gad,&ng,
  732.       GA_DISABLED, (theirs.zoom)? FALSE : TRUE,    
  733.           GTIN_Number, theirs.zw,
  734.           GTIN_MaxChars,5,
  735.           GT_Underscore, '*',
  736.           TAG_DONE);
  737.  
  738.    ng.ng_LeftEdge = 290;
  739.    ng.ng_TopEdge = top + 110;
  740.    ng.ng_Width = 55;
  741.    ng.ng_Height = 15;
  742.    ng.ng_GadgetID = W_zoo4;
  743.    ng.ng_GadgetText="Zoom *Height";
  744.     zh=gad = CreateGadget(INTEGER_KIND,gad,&ng,
  745.       GA_DISABLED, (theirs.zoom)? FALSE : TRUE,    
  746.           GTIN_Number, theirs.zh,
  747.           GTIN_MaxChars,5,
  748.           GT_Underscore, '*',
  749.           TAG_DONE);
  750.  
  751.    ng.ng_LeftEdge = 460;
  752.    ng.ng_TopEdge = top + 30;
  753.    ng.ng_Width = 55;
  754.    ng.ng_Height = 15;
  755.    ng.ng_GadgetID = W_rpt;
  756.    ng.ng_GadgetText="WA_*RptQueue";
  757.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  758.           GTIN_Number, theirs.rpt,
  759.           GTIN_MaxChars,5,
  760.           GT_Underscore, '*',
  761.           TAG_DONE);
  762.  
  763.    ng.ng_LeftEdge = 460;
  764.    ng.ng_TopEdge = top + 50;
  765.    ng.ng_Width = 55;
  766.    ng.ng_Height = 15;
  767.    ng.ng_GadgetID = W_minw;
  768.    ng.ng_GadgetText="WA_*MinWidth";
  769.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  770.           GTIN_Number, theirs.minw,
  771.           GTIN_MaxChars,5,
  772.           GT_Underscore, '*',
  773.           TAG_DONE);
  774.  
  775.    ng.ng_LeftEdge = 460;
  776.    ng.ng_TopEdge = top + 70;
  777.    ng.ng_Width = 55;
  778.    ng.ng_Height = 15;
  779.    ng.ng_GadgetID = W_minh;
  780.    ng.ng_GadgetText="WA_*MinHeight";
  781.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  782.           GTIN_Number, theirs.minh,
  783.           GTIN_MaxChars,5,
  784.           GT_Underscore, '*',
  785.           TAG_DONE);
  786.  
  787.    ng.ng_LeftEdge = 460;
  788.    ng.ng_TopEdge = top + 90;
  789.    ng.ng_Width = 55;
  790.    ng.ng_Height = 15;
  791.    ng.ng_GadgetID = W_maxw;
  792.    ng.ng_GadgetText="WA_*MaxWidth";
  793.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  794.           GTIN_Number, theirs.maxw,
  795.           GTIN_MaxChars,5,
  796.           GT_Underscore, '*',
  797.           TAG_DONE);
  798.  
  799.    ng.ng_LeftEdge = 460;
  800.    ng.ng_TopEdge = top + 110;
  801.    ng.ng_Width = 55;
  802.    ng.ng_Height = 15;
  803.    ng.ng_GadgetID = W_maxh;
  804.    ng.ng_GadgetText="WA_*MaxHeight";
  805.     gad = CreateGadget(INTEGER_KIND,gad,&ng,
  806.           GTIN_Number, theirs.maxh,
  807.           GTIN_MaxChars,5,
  808.           GT_Underscore, '*',
  809.           TAG_DONE);
  810.  
  811.    ng.ng_LeftEdge = 290;
  812.    ng.ng_TopEdge = top + 130;
  813.    ng.ng_Width = 220;
  814.    ng.ng_Height = 15;
  815.    ng.ng_GadgetID = W_fla;
  816.    ng.ng_GadgetText="WA_*Flags...";
  817.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  818.           GT_Underscore, '*',
  819.           TAG_DONE);
  820.  
  821.    ng.ng_LeftEdge = 30;
  822.    ng.ng_TopEdge = top + 160;
  823.    ng.ng_Width = 150;
  824.    ng.ng_Height = 15;
  825.    ng.ng_GadgetID = W_ok;
  826.    ng.ng_GadgetText="OK";
  827.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  828.           GT_Underscore, '*',
  829.           TAG_DONE);
  830.  
  831.    ng.ng_LeftEdge = 360;
  832.    ng.ng_TopEdge = top + 160;
  833.    ng.ng_Width = 150;
  834.    ng.ng_Height = 15;
  835.    ng.ng_GadgetID = W_can;
  836.    ng.ng_GadgetText="Cancel";
  837.     gad = CreateGadget(BUTTON_KIND,gad,&ng,
  838.           GT_Underscore, '*',
  839.           TAG_DONE);
  840.  
  841.    if (!gad)
  842.       abort_me("Couldn't allocate the Gadget list.");
  843.  
  844.    AddGList(window, glist, (UWORD)-1, (UWORD)-1, NULL);
  845.    RefreshGList(glist, window, NULL, (UWORD)-1);
  846.    GT_RefreshWindow(window, NULL);
  847.  
  848. }
  849.  
  850.  
  851. /********************** handle input **************************************/
  852. void handle_input(void)
  853. {
  854.    struct IntuiMessage *message;
  855.    struct Gadget *gadget;
  856.    ULONG class;
  857.    UWORD code;
  858.  
  859.    while (1)
  860.    {
  861.       WaitPort(window->UserPort);
  862.  
  863.       /* use the new GadTools GT_GetIMsg() function to get input events */
  864.       while (message = GT_GetIMsg(window->UserPort))
  865.       {
  866.          class = message->Class;
  867.          code = message->Code;
  868.  
  869.          /* we'll assume it's a Gadget, but no harm is done if it isn't */
  870.          gadget = (struct Gadget *)message->IAddress;
  871.  
  872.          /* use the GT_ReplyIMsg() function to reply to the message */
  873.          GT_ReplyIMsg(message);
  874.  
  875.          switch (class)
  876.          {
  877.             case CLOSEWINDOW:
  878.                abort_me("Done.");
  879.             case GADGETUP:
  880.                handle_gadgetup(gadget, code);
  881.                break;
  882.             case GADGETDOWN:
  883.                handle_gadgetdown(gadget, code);
  884.                break;
  885.             case REFRESHWINDOW:
  886.                /* when using a window of type SIMPLE_REFRESH, use this
  887.                   input event and GadTools-compatible refreshing code. */
  888.                GT_BeginRefresh(window);
  889.                GT_EndRefresh(window, TRUE);
  890.                break;
  891.          }
  892.       }
  893.    }
  894. }
  895.  
  896.  
  897. /************************* handle up ************************************/
  898.  
  899. void handle_gadgetup(gadget, code)
  900. struct Gadget *gadget;
  901. UWORD code;
  902. {
  903. /*struct NewGadget ng;
  904.   struct Gadget *gad;*/
  905.  
  906.    switch (gadget->GadgetID)
  907.    {
  908.       /* main menu *****************/
  909.  
  910.       case M_qui:
  911.     if (request("AIB","Quit...\nAre you sure?","OK|Cancel"))
  912.             {closedown();
  913.             exit(0);}
  914.          break;
  915.     
  916.       case M_men:
  917.      replace_gads(3);
  918.      menu_menu();
  919.      old_menu();
  920.      break;
  921.          
  922.       case M_win:
  923.      capture_params();
  924.          replace_gads(1);
  925.          window_menu();
  926.          break;
  927.  
  928.       case M_gad:
  929.          replace_gads(2);
  930.          gadget_menu();
  931.          break;
  932.  
  933.       case M_pro:
  934.      replace_gads(4);
  935.          project_menu();
  936.      break;
  937.  
  938.       case M_abo:
  939.     request("AIB",
  940. "AIB v1.0 Copyright\nDoug Dyer ... 08/25/91\nddyer@hubcap.clemson.edu"
  941.                ,"OK");
  942.      break;
  943.  
  944.            
  945.  
  946.       /* window menu *****************************/
  947.  
  948.       case W_can:
  949.          replace_gads(0);      
  950.          main_menu();
  951.          break;
  952.          
  953.       case W_ok:
  954.      replace_params();
  955.          replace_gads(0);
  956.          main_menu();
  957.          break;
  958.        
  959.       case W_fla:
  960.      capture_flags();
  961.          replace_gads(7);
  962.          wflags_menu();
  963.          break;
  964.        
  965.       /* window flags menu ******************************/
  966.       case W1_ok:
  967.      replace_flags();
  968.          replace_gads(1);
  969.          window_menu();
  970.          break;
  971.          
  972.       case W1_can:
  973.          replace_gads(1);
  974.          window_menu();
  975.          break;
  976.          
  977.          
  978.       /* gadget menu ********************************/
  979.  
  980.       case G_ok:
  981.      currgad = NULL;
  982.          replace_gads(0);
  983.          main_menu();
  984.          break;
  985.          
  986.       case G_can:
  987.      currgad = NULL;
  988.          replace_gads(0);
  989.          main_menu();
  990.          break;
  991.    
  992.       case G_new:
  993.          replace_gads(9);
  994.      prepare_newgad();
  995.          gadsub_menu();
  996.          break;
  997.             
  998.       case G_list:
  999.        locate_gadget(code);
  1000.            replace_gads(2);
  1001.            gadget_menu();
  1002.            break;
  1003.          
  1004.  
  1005.       /* subgadget menu ***************************************/
  1006.  
  1007.       case G1_ok:
  1008.          replace_gads(2);
  1009.          gadget_menu();
  1010.          break;
  1011.          
  1012.       case G1_can:
  1013.          replace_gads(2);
  1014.          gadget_menu();
  1015.          break;
  1016.    
  1017.       case G1_nfont:
  1018.      FontChoice(1);
  1019.          break;
  1020.  
  1021.  
  1022.       /* menu menu **************************************************/
  1023.  
  1024.       case MM_nfont:
  1025.     FontChoice(2);
  1026.     break;
  1027.  
  1028.       case MM_ok:
  1029.     free_allmenu(newtop);
  1030.         newtop = NULL;
  1031.     generate();
  1032.     Modify_Theirs();
  1033.     replace_gads(0);
  1034.     main_menu();
  1035.     break;
  1036.  
  1037.       case MM_can:
  1038.     free_allmenu(topt);
  1039.     topt=newtop;
  1040.         newtop = NULL;
  1041.     replace_gads(0);
  1042.     main_menu();
  1043.     break;
  1044.  
  1045.       /* project menu *****************************************************/
  1046.      
  1047.        case P_load:
  1048.     load_project();
  1049.     replace_gads(0);
  1050.     main_menu();
  1051.     break;
  1052.  
  1053.        case P_can:
  1054.      replace_gads(0);
  1055.      main_menu();
  1056.      break;    
  1057.  
  1058.        default:
  1059.      other_gads(gadget, code);
  1060.      break;
  1061.        }
  1062. }
  1063.  
  1064.  
  1065.  
  1066. /*********************************** handle down ************************/
  1067. void handle_gadgetdown(gadget, code)
  1068. struct Gadget *gadget;
  1069. UWORD code;
  1070. {
  1071. }
  1072.  
  1073.  
  1074. /************************ handle vanilla ********************************/
  1075.  
  1076.  
  1077.  
  1078. /************************ Clear current menu... *************************/
  1079. void replace_gads(short curr)
  1080. {
  1081.    struct Gadget *gad;
  1082.    
  1083.    
  1084.    SetWindowTitles(window,titles[curr],NULL);
  1085.    if (glist) {
  1086.       short x = 0;
  1087.       for (gad=glist;gad;++x,gad=gad->NextGadget) {
  1088.             if (gad->GadgetType & GTYP_SYSGADGET)
  1089.             break;}
  1090.             
  1091.       RemoveGList(window, glist, x);
  1092.       SetRast(window->RPort, 0);
  1093.       RefreshWindowFrame(window);
  1094.    
  1095.    FreeGadgets(glist);
  1096.    glist=NULL;
  1097.    GT_RefreshWindow(window,NULL);
  1098.   }
  1099.  
  1100. }
  1101.