home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / bbs / hydrabbsa8 / source / src.lha / control / ControlGUI.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-08  |  21.9 KB  |  713 lines
  1. /*********************************************/
  2. /*                                           */
  3. /*       Designer (C) Ian OConnor 1994       */
  4. /*                                           */
  5. /*      Designer Produced C include file     */
  6. /*                                           */
  7. /*********************************************/
  8.  
  9. #include <exec/types.h>
  10. #include <exec/memory.h>
  11. #include <dos/dosextens.h>
  12. #include <intuition/screens.h>
  13. #include <intuition/intuition.h>
  14. #include <intuition/gadgetclass.h>
  15. #include <libraries/gadtools.h>
  16. #include <diskfont/diskfont.h>
  17. #include <utility/utility.h>
  18. #include <graphics/gfxbase.h>
  19. #include <workbench/workbench.h>
  20. #include <graphics/scale.h>
  21. #include <clib/exec_protos.h>
  22. #include <clib/wb_protos.h>
  23. #include <clib/intuition_protos.h>
  24. #include <clib/gadtools_protos.h>
  25. #include <clib/graphics_protos.h>
  26. #include <clib/utility_protos.h>
  27. #include <string.h>
  28. #include <clib/diskfont_protos.h>
  29.  
  30. #include "ControlGUI.h"
  31.  
  32.  
  33. UWORD HbbsLogo_brushColours[] =  /* Use LoadRGB4 to use this. */
  34.   {
  35.   2730,0,4095,1675,2457,3003,2985,4026
  36.   };
  37.  
  38. UWORD HbbsLogo_brushData[375] =
  39.   {
  40.   0,0,0,0,0,0,0,0,0,0,256,4096,0,0,0,256,4127,49409,64528,8129,256,4112,257,16,
  41.   4097,256,4112,257,16,4127,256,4112,257,16,4096,0,4096,768,48,0,0,4096,512,32,0,
  42.   508,4127,49153,64515,65281,256,4112,257,16,1,256,4112,257,16,1,256,4112,257,16,
  43.   16385,256,4096,256,16,1,256,4096,768,48,3,32513,63487,65151,65507,65534,0,0,0,
  44.   0,0,0,0,0,0,0,0,8704,32768,47488,32768,0,8704,32770,8744,32768,0,658,45218,
  45.   8200,32768,0,14868,42276,8584,32768,0,8804,41252,8232,32768,0,8768,41000,8232,
  46.   32768,0,8835,41192,8648,32768,0,0,0,0,0,65027,61439,64767,65479,65532,65027,
  47.   61439,65279,65519,65534,65027,61408,16126,1007,57406,65027,61408,16126,1007,
  48.   57406,65027,61408,16126,1007,57344,65027,61408,16126,1007,57344,65535,61439,
  49.   64767,65487,65532,65535,61439,64767,65479,65534,65027,61408,16126,992,254,
  50.   65027,61408,16126,992,254,65027,61408,16126,1007,33022,65027,61408,16126,1007,
  51.   33022,65027,61439,65279,65519,65534,65027,61439,64767,65479,65532,0,0,0,0,0,0,
  52.   0,0,0,0,0,17409,1,62353,0,0,17409,4,17497,0,0,17703,29124,17429,0,0,32041,
  53.   19016,17299,0,0,17609,16968,16465,0,0,17545,16976,17489,0,0,17671,16848,17297,
  54.   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  55.   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  56.   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  57.   0,0,0,0,0,0,0,0,0,0,0,0,0,0
  58.   };
  59.  
  60. struct Menu *CtrlMenu = NULL;
  61.  
  62. struct NewMenu CtrlMenuNewMenu[] =
  63.   {
  64.   NM_TITLE, (STRPTR)"HBBS"        ,  NULL , 0, NULL, (APTR)~0,
  65.   NM_ITEM , (STRPTR)"About"       , (STRPTR)"?", 0, 0L, (APTR)~0,
  66.   NM_ITEM , (STRPTR)"Screen Mode" , (STRPTR)"M", 0, 0L, (APTR)~0,
  67.   NM_ITEM , NM_BARLABEL           ,  0 , 0, 0L, (APTR)~0,
  68.   NM_ITEM , (STRPTR)"Quit!"       , (STRPTR)"Q", 0, 0L, (APTR)~0,
  69.   NM_END  , NULL                  ,  NULL , 0, 0L, (APTR)~0
  70.   };
  71.  
  72. ULONG CtrlMenuTags[] =
  73.   {
  74.   (GT_TagBase+67), TRUE,
  75.   (GTMN_TextAttr), (ULONG)&HBBS8066,
  76.   (TAG_DONE)
  77.   };
  78.  
  79. ULONG BevelTags[] =
  80.   {
  81.   (GTBB_Recessed), TRUE,
  82.   (GT_VisualInfo), 0,
  83.   (TAG_DONE)
  84.   };
  85.  
  86. struct Window *Ctrl = NULL;
  87. APTR CtrlVisualInfo;
  88. APTR CtrlDrawInfo;
  89. struct Gadget *CtrlGList;
  90. struct Gadget *CtrlGadgets[25];
  91. UBYTE CtrlFirstRun = 0;
  92.  
  93. STRPTR Ctrl_LV1_CycleLabels[] =
  94. {
  95.   (STRPTR)"Last Callers",
  96.   (STRPTR)"Last Downloads",
  97.   (STRPTR)"Last Uploads",
  98.   (STRPTR)"Last Pagers",
  99.   (STRPTR)"Last PWFails",
  100.   (STRPTR)"Last Carrier",
  101.   NULL
  102. };
  103.  
  104. ULONG CtrlGadgetTags[] =
  105.   {
  106.   (GTLV_Selected), 0,
  107.   (TAG_END),
  108.   (GTCY_Labels), (ULONG)&Ctrl_LV1_CycleLabels[0],
  109.   (TAG_END),
  110.   (GTLV_Selected), 0,
  111.   (TAG_END),
  112.   (GTLV_Selected), 0,
  113.   (TAG_END),
  114.   (GTLV_Selected), 0,
  115.   (TAG_END),
  116.   (GA_Disabled), TRUE,
  117.   (TAG_END),
  118.   (GA_Disabled), TRUE,
  119.   (TAG_END),
  120.   (GA_Disabled), TRUE,
  121.   (TAG_END),
  122.   (GA_Disabled), TRUE,
  123.   (TAG_END),
  124.   (GA_Disabled), TRUE,
  125.   (TAG_END),
  126.   (GA_Disabled), TRUE,
  127.   (TAG_END),
  128.   (GA_Disabled), TRUE,
  129.   (TAG_END),
  130.   (GA_Disabled), TRUE,
  131.   (TAG_END),
  132.   (GA_Disabled), TRUE,
  133.   (TAG_END),
  134.   (GA_Disabled), TRUE,
  135.   (TAG_END),
  136.   (GTTX_Text), (ULONG)"        HydraBBS Alpha Version 07 - (C) 1995-6 Dominic Clifton",
  137.   (TAG_END),
  138.   };
  139.  
  140. UWORD CtrlGadgetTypes[] =
  141.   {
  142.   LISTVIEW_KIND,
  143.   CYCLE_KIND,
  144.   BUTTON_KIND,
  145.   LISTVIEW_KIND,
  146.   BUTTON_KIND,
  147.   BUTTON_KIND,
  148.   BUTTON_KIND,
  149.   BUTTON_KIND,
  150.   BUTTON_KIND,
  151.   BUTTON_KIND,
  152.   LISTVIEW_KIND,
  153.   BUTTON_KIND,
  154.   BUTTON_KIND,
  155.   LISTVIEW_KIND,
  156.   BUTTON_KIND,
  157.   BUTTON_KIND,
  158.   BUTTON_KIND,
  159.   BUTTON_KIND,
  160.   BUTTON_KIND,
  161.   BUTTON_KIND,
  162.   BUTTON_KIND,
  163.   BUTTON_KIND,
  164.   BUTTON_KIND,
  165.   BUTTON_KIND,
  166.   TEXT_KIND,
  167.   };
  168.  
  169. struct NewGadget CtrlNewGad[] =
  170.   {
  171.   93, 30, 144, 60, NULL, &HBBS8066, Ctrl_LV1, 1, NULL,  (APTR)&CtrlGadgetTags[0],
  172.   93, 14, 144, 15, NULL, &HBBS8066, Ctrl_LV1_Cycle, 1, NULL,  (APTR)&CtrlGadgetTags[3],
  173.   93, 1, 144, 12, (UBYTE *)"Information", &HBBS8066, Ctrl_LV1_Info, 16, NULL,  NULL,
  174.   1, 14, 90, 77, NULL, &HBBS8066, Ctrl_LV2_Nodes, 4, NULL,  (APTR)&CtrlGadgetTags[6],
  175.   205, 91, 67, 13, (UBYTE *)"Window", &HBBS8066, Ctrl_Window, 16, NULL,  NULL,
  176.   137, 91, 67, 13, (UBYTE *)"Watch", &HBBS8066, Ctrl_Screen, 16, NULL,  NULL,
  177.   69, 91, 67, 13, (UBYTE *)"Stop", &HBBS8066, Ctrl_Stop, 16, NULL,  NULL,
  178.   1, 91, 67, 13, (UBYTE *)"Start", &HBBS8066, Ctrl_Start, 16, NULL,  NULL,
  179.   346, 1, 105, 12, (UBYTE *)"Configure", &HBBS8066, Ctrl_Configure, 16, NULL,  NULL,
  180.   239, 1, 105, 12, (UBYTE *)"Shutdown All", &HBBS8066, Ctrl_Shutdown, 16, NULL,  NULL,
  181.   452, 1, 179, 132, NULL, &HBBS8066, Ctrl_LV3_Commands, 1, NULL,  (APTR)&CtrlGadgetTags[9],
  182.   273, 91, 67, 13, (UBYTE *)"Config", &HBBS8066, Ctrl_Config, 16, NULL,  NULL,
  183.   1, 1, 91, 12, (UBYTE *)"Status", &HBBS8066, Ctrl_Status, 16, NULL,  NULL,
  184.   239, 14, 212, 76, NULL, &HBBS8066, Ctrl_Who, 1, NULL,  (APTR)&CtrlGadgetTags[12],
  185.   273, 105, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_5, 16, NULL,  (APTR)&CtrlGadgetTags[15],
  186.   205, 105, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_4, 16, NULL,  (APTR)&CtrlGadgetTags[18],
  187.   137, 105, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_3, 16, NULL,  (APTR)&CtrlGadgetTags[21],
  188.   69, 105, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_2, 16, NULL,  (APTR)&CtrlGadgetTags[24],
  189.   1, 105, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_1, 16, NULL,  (APTR)&CtrlGadgetTags[27],
  190.   1, 119, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_Gad19, 16, NULL,  (APTR)&CtrlGadgetTags[30],
  191.   69, 119, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_7, 16, NULL,  (APTR)&CtrlGadgetTags[33],
  192.   137, 119, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_8, 16, NULL,  (APTR)&CtrlGadgetTags[36],
  193.   205, 119, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_9, 16, NULL,  (APTR)&CtrlGadgetTags[39],
  194.   273, 119, 67, 13, (UBYTE *)"<None>", &HBBS8066, Ctrl_10, 16, NULL,  (APTR)&CtrlGadgetTags[42],
  195.   69, 134, 560, 12, (UBYTE *)"Status:", &HBBS8066, Ctrl_StatusText, 1, NULL,  (APTR)&CtrlGadgetTags[45],
  196.   };
  197. UWORD CtrlZoomInfo[4] = { 0, 10, 196, 11 };
  198.  
  199. struct IntuiText CtrlCfgTexts[] =
  200.   {
  201.   2, 0, JAM2, 16, 3, &HBBS8066, (UBYTE *)"Screen Settings", &CtrlCfgTexts[1],
  202.   2, 0, JAM2, 16, 39, &HBBS8066, (UBYTE *)"Misc Settings", NULL
  203.   };
  204.  
  205. struct Window *CtrlCfg = NULL;
  206. APTR CtrlCfgVisualInfo;
  207. APTR CtrlCfgDrawInfo;
  208. struct Gadget *CtrlCfgGList;
  209. struct Gadget *CtrlCfgGadgets[3];
  210. UBYTE CtrlCfgFirstRun = 0;
  211.  
  212. UWORD CtrlCfgGadgetTypes[] =
  213.   {
  214.   BUTTON_KIND,
  215.   BUTTON_KIND,
  216.   BUTTON_KIND,
  217.   };
  218.  
  219. struct NewGadget CtrlCfgNewGad[] =
  220.   {
  221.   11, 13, 110, 13, (UBYTE *)"Pick Mode", &HBBS8066, CtrlCfg_ScreenMode, 16, NULL,  NULL,
  222.   124, 13, 110, 13, (UBYTE *)"Save", &HBBS8066, CtrlCfg_Save, 16, NULL,  NULL,
  223.   11, 50, 110, 13, (UBYTE *)"BBS Config", &HBBS8066, CtrlCfg_EditBBSConfig, 16, NULL,  NULL,
  224.   };
  225.  
  226. struct IntuiText LoadingTexts[] =
  227.   {
  228.   2, 0, JAM2, 12, 4, &HBBS8066, (UBYTE *)"HydraBBS V0.8", &LoadingTexts[1],
  229.   2, 3, JAM1, 118, 15, &HBBS8066, (UBYTE *)"(C) 1995 Dominic Clifton", &LoadingTexts[2],
  230.   2, 1, JAM1, 137, 25, &HBBS8066, (UBYTE *)"Deluxe Software Ltd", &LoadingTexts[3],
  231.   2, 3, JAM2, 139, 38, &HBBS8066, (UBYTE *)" ALPHA VERSION 07 ", &LoadingTexts[4],
  232.   2, 3, JAM1, 17, 58, &HBBS8066, (UBYTE *)"This program is SHAREWARE, if you", &LoadingTexts[5],
  233.   2, 3, JAM1, 17, 67, &HBBS8066, (UBYTE *)"use it alot then please register it!", &LoadingTexts[6],
  234.   2, 3, JAM1, 17, 77, &HBBS8066, (UBYTE *)"For details see 'HBBS.Guide'", &LoadingTexts[7],
  235.   2, 3, JAM1, 17, 86, &HBBS8066, (UBYTE *)"More hard work has gone into this", &LoadingTexts[8],
  236.   2, 3, JAM1, 17, 95, &HBBS8066, (UBYTE *)"program than you can imagine, and", &LoadingTexts[9],
  237.   2, 3, JAM1, 17, 105, &HBBS8066, (UBYTE *)"it's only fair that I should get", &LoadingTexts[10],
  238.   2, 3, JAM1, 17, 114, &HBBS8066, (UBYTE *)"something back for it!", &LoadingTexts[11],
  239.   2, 3, JAM1, 45, 133, &HBBS8066, (UBYTE *)"SHAREWARE SHAREWARE SHAREWARE", NULL
  240.   };
  241.  
  242. struct Window *Loading = NULL;
  243. APTR LoadingVisualInfo;
  244. APTR LoadingDrawInfo;
  245. UBYTE LoadingFirstRun = 0;
  246.  
  247. UWORD    CtrlScrndefpens = {65535};
  248.  
  249. UWORD   CtrlScrnColors[] =
  250.     {
  251.     0,10,10,10,
  252.     1,0,0,0,
  253.     65535,0,0,0
  254.     };
  255.  
  256. ULONG  CtrlScrnError=0;
  257.  
  258. ULONG   CtrlScrnTags[] =
  259.     {
  260.     (SA_Title),(ULONG)"HBBS Main Control Screen (C) 1995 Hydra of Tension!",
  261.     (SA_PubName),(ULONG)"CtrlScrn",
  262.     (SA_Depth)   ,2,
  263.     (SA_Left)    ,0,
  264.     (SA_Top)     ,0,
  265.     (SA_Width)   ,640,
  266.     (SA_Height)  ,256,
  267.     (SA_DisplayID),167936,
  268.     (SA_Overscan),1,
  269.     (SA_Font),(ULONG)&HBBS8066,
  270.     (SA_Behind),1,
  271.     (SA_Quiet),0,
  272.     (SA_ShowTitle),1,
  273.     (SA_AutoScroll),1,
  274.     (SA_FullPalette),1,
  275.     (SA_ErrorCode),(ULONG)(&CtrlScrnError),
  276.     (SA_Pens),(ULONG)&CtrlScrndefpens,
  277.     (SA_Colors),(ULONG)CtrlScrnColors,
  278.     (TAG_DONE)
  279.     };
  280.  
  281. struct Library *DiskfontBase = NULL;
  282. struct Library *GadToolsBase = NULL;
  283. struct GfxBase *GfxBase = NULL;
  284. struct IntuitionBase *IntuitionBase = NULL;
  285.  
  286. struct Image HbbsLogo_brush = { 0, 0, 80, 25, 3, NULL, 7, 0, NULL};
  287.  
  288. APTR WaitPointer = NULL;
  289. UWORD WaitPointerData[] =
  290.     {
  291.     0x0000,0x0000,0x0400,0x07c0,
  292.     0x0000,0x07c0,0x0100,0x0380,
  293.     0x0000,0x07e0,0x07c0,0x1ff8,
  294.     0x1ff0,0x3fec,0x3ff8,0x7fde,
  295.     0x3ff8,0x7fbe,0x7ffc,0xff7f,
  296.     0x7ffc,0xffff,0x7ffc,0xffff,
  297.     0x3ff8,0x7ffe,0x3ff8,0x7ffe,
  298.     0x1ff0,0x3ffc,0x07c0,0x1ff8,
  299.     0x0000,0x07e0,0x0000,0x0000
  300.     };
  301.  
  302. struct TextAttr HBBS8066 = { (STRPTR)"HBBS.font", 8, 0, 66 };
  303.  
  304. int MakeMenuCtrlMenu( APTR MenuVisualInfo )
  305. {
  306.   if (NULL == (CtrlMenu = CreateMenusA( CtrlMenuNewMenu, NULL)))
  307.     return( 1L );
  308.   LayoutMenusA( CtrlMenu, MenuVisualInfo, (struct TagItem *)(&CtrlMenuTags[0]));
  309.   return( 0L );
  310. }
  311.  
  312. void RendWindowCtrl( struct Window *Win, void *vi )
  313. {
  314. UWORD offx = Win->BorderLeft;
  315. UWORD offy = Win->BorderTop;
  316. if (Win != NULL)
  317.   {
  318.   DrawImage( Win->RPort, &HbbsLogo_brush, 357+offx, 99+offy);
  319.   BevelTags[3] = (ULONG)vi;
  320.   DrawBevelBoxA( Win->RPort, 1+offx,134+offy,630,12, (struct TagItem *)(&BevelTags[2]));
  321.   DrawBevelBoxA( Win->RPort, 341+offx,91+offy,110,41, (struct TagItem *)(&BevelTags[2]));
  322.   DrawBevelBoxA( Win->RPort,341+4+offx,91+2+offy,110-8,41-4, (struct TagItem *)(&BevelTags[0]));
  323.   }
  324. }
  325.  
  326. int OpenCtrlWindow( struct Screen *Scr)
  327. {
  328. UWORD offx, offy;
  329. UWORD loop;
  330. struct NewGadget newgad;
  331. struct Gadget *Gad;
  332. struct Gadget *Gad2;
  333. APTR Cla;
  334. if (CtrlFirstRun == 0)
  335.   {
  336.   CtrlFirstRun = 1;
  337.   }
  338. if (Ctrl == NULL)
  339.   {
  340.   offx = Scr->WBorLeft;
  341.   offy = Scr->WBorTop + Scr->Font->ta_YSize+1;
  342.   if (NULL != ( CtrlVisualInfo = GetVisualInfoA( Scr, NULL)))
  343.     {
  344.     if (NULL != ( CtrlDrawInfo = GetScreenDrawInfo( Scr)))
  345.       {
  346.       CtrlGList = NULL;
  347.       Gad = CreateContext( &CtrlGList);
  348.       for ( loop=0 ; loop<25 ; loop++ )
  349.         if (CtrlGadgetTypes[loop] != 198)
  350.           {
  351.           CopyMem((char * )&CtrlNewGad[loop], ( char * )&newgad, (long)sizeof( struct NewGadget ));
  352.           newgad.ng_VisualInfo = CtrlVisualInfo;
  353.           newgad.ng_LeftEdge += offx;
  354.           newgad.ng_TopEdge += offy;
  355.           CtrlGadgets[ loop ] = NULL;
  356.           CtrlGadgets[ newgad.ng_GadgetID - CtrlFirstID ] = Gad = CreateGadgetA( CtrlGadgetTypes[loop], Gad, &newgad, newgad.ng_UserData );
  357.           }
  358.       for ( loop=0 ; loop<25 ; loop++ )
  359.         if (CtrlGadgetTypes[loop] == 198)
  360.           {
  361.           CtrlGadgets[ loop ] = NULL;
  362.           Cla = NULL;
  363.           if (Gad)
  364.             CtrlGadgets[ loop ] = Gad2 = (struct Gadget *) NewObjectA( (struct IClass *)Cla, CtrlNewGad[ loop ].ng_GadgetText, CtrlNewGad[ loop ].ng_UserData );
  365.           }
  366.       if (Gad != NULL)
  367.         {
  368.         if (NULL != (Ctrl = OpenWindowTags( NULL, (WA_Left), 0,
  369.                 (WA_Top), 11,
  370.                 (WA_Width), 636+offx,
  371.                 (WA_Height), 149+offy,
  372.                 (WA_Title), "HBBS Control",
  373.                 (WA_ScreenTitle), "(C) Deluxe Software Ltd. Written By Dominic Clifton (Hydra/LSD)",
  374.                 (WA_MinWidth), 196,
  375.                 (WA_MinHeight), 11,
  376.                 (WA_MaxWidth), 640,
  377.                 (WA_MaxHeight), 160,
  378.                 (WA_DragBar), TRUE,
  379.                 (WA_DepthGadget), TRUE,
  380.                 (WA_CloseGadget), TRUE,
  381.                 (WA_Activate), TRUE,
  382.                 (WA_Dummy+0x30), TRUE,
  383.                 (WA_SmartRefresh), TRUE,
  384.                 (WA_AutoAdjust), TRUE,
  385.                 (WA_Gadgets), CtrlGList,
  386.                 (WA_Zoom), CtrlZoomInfo,
  387.                 (WA_PubScreen) , (LONG)Scr,
  388.                 (WA_IDCMP),6292348,
  389.                 (TAG_END))))
  390.           {
  391.           RendWindowCtrl(Ctrl, CtrlVisualInfo );
  392.           GT_RefreshWindow( Ctrl, NULL);
  393.           RefreshGList( CtrlGList, Ctrl, NULL, ~0);
  394.           if (CtrlMenu == NULL)
  395.             MakeMenuCtrlMenu( CtrlVisualInfo);
  396.           if (CtrlMenu != NULL)
  397.             {
  398.             SetMenuStrip( Ctrl, CtrlMenu);
  399.             return( 0L );
  400.             }
  401.           CloseWindow( Ctrl );
  402.           }
  403.         }
  404.       FreeGadgets( CtrlGList);
  405.       FreeScreenDrawInfo( Scr, CtrlDrawInfo );
  406.       }
  407.     FreeVisualInfo( CtrlVisualInfo );
  408.     }
  409.   }
  410. else
  411.   {
  412.   WindowToFront(Ctrl);
  413.   ActivateWindow(Ctrl);
  414.   return( 0L );
  415.   }
  416. return( 1L );
  417. }
  418.  
  419. void CloseCtrlWindow( void )
  420. {
  421. if (Ctrl != NULL)
  422.   {
  423.   ClearMenuStrip( Ctrl);
  424.   FreeMenus( CtrlMenu);
  425.   CtrlMenu = NULL;
  426.   FreeScreenDrawInfo( Ctrl->WScreen, CtrlDrawInfo );
  427.   CtrlDrawInfo = NULL;
  428.   CloseWindow( Ctrl);
  429.   Ctrl = NULL;
  430.   FreeVisualInfo( CtrlVisualInfo);
  431.   FreeGadgets( CtrlGList);
  432.   }
  433. }
  434.  
  435. void RendWindowCtrlCfg( struct Window *Win, void *vi )
  436. {
  437. int loop;
  438. UWORD offx = Win->BorderLeft;
  439. UWORD offy = Win->BorderTop;
  440. if (Win != NULL)
  441.   {
  442.   BevelTags[3] = (ULONG)vi;
  443.   DrawBevelBoxA( Win->RPort, 2+offx,5+offy,242,29, (struct TagItem *)(&BevelTags[0]));
  444.   DrawBevelBoxA( Win->RPort,2+4+offx,5+2+offy,242-8,29-4, (struct TagItem *)(&BevelTags[2]));
  445.   DrawBevelBoxA( Win->RPort, 2+offx,41+offy,241,29, (struct TagItem *)(&BevelTags[0]));
  446.   DrawBevelBoxA( Win->RPort,2+4+offx,41+2+offy,241-8,29-4, (struct TagItem *)(&BevelTags[2]));
  447.   for( loop=0; loop<2; loop++)
  448.     if (CtrlCfgTexts[loop].ITextFont==NULL)
  449.       CtrlCfgTexts[loop].ITextFont=Win->WScreen->Font;
  450.   PrintIText( Win->RPort, CtrlCfgTexts, offx, offy);
  451.   }
  452. }
  453.  
  454. int OpenCtrlCfgWindow( void )
  455. {
  456. struct Screen *Scr;
  457. UWORD offx, offy;
  458. UWORD loop;
  459. struct NewGadget newgad;
  460. struct Gadget *Gad;
  461. struct Gadget *Gad2;
  462. APTR Cla;
  463. if (CtrlCfgFirstRun == 0)
  464.   {
  465.   CtrlCfgFirstRun = 1;
  466.   }
  467. if (CtrlCfg == NULL)
  468.   {
  469.   Scr = LockPubScreen((UBYTE *)"CtrlScrn");
  470.   if (NULL != Scr)
  471.     {
  472.     offx = Scr->WBorLeft;
  473.     offy = Scr->WBorTop + Scr->Font->ta_YSize+1;
  474.     if (NULL != ( CtrlCfgVisualInfo = GetVisualInfoA( Scr, NULL)))
  475.       {
  476.       if (NULL != ( CtrlCfgDrawInfo = GetScreenDrawInfo( Scr)))
  477.         {
  478.         CtrlCfgGList = NULL;
  479.         Gad = CreateContext( &CtrlCfgGList);
  480.         for ( loop=0 ; loop<3 ; loop++ )
  481.           if (CtrlCfgGadgetTypes[loop] != 198)
  482.             {
  483.             CopyMem((char * )&CtrlCfgNewGad[loop], ( char * )&newgad, (long)sizeof( struct NewGadget ));
  484.             newgad.ng_VisualInfo = CtrlCfgVisualInfo;
  485.             newgad.ng_LeftEdge += offx;
  486.             newgad.ng_TopEdge += offy;
  487.             CtrlCfgGadgets[ loop ] = NULL;
  488.             CtrlCfgGadgets[ newgad.ng_GadgetID - CtrlCfgFirstID ] = Gad = CreateGadgetA( CtrlCfgGadgetTypes[loop], Gad, &newgad, newgad.ng_UserData );
  489.             }
  490.         for ( loop=0 ; loop<3 ; loop++ )
  491.           if (CtrlCfgGadgetTypes[loop] == 198)
  492.             {
  493.             CtrlCfgGadgets[ loop ] = NULL;
  494.             Cla = NULL;
  495.             if (Gad)
  496.               CtrlCfgGadgets[ loop ] = Gad2 = (struct Gadget *) NewObjectA( (struct IClass *)Cla, CtrlCfgNewGad[ loop ].ng_GadgetText, CtrlCfgNewGad[ loop ].ng_UserData );
  497.             }
  498.         if (Gad != NULL)
  499.           {
  500.           if (NULL != (CtrlCfg = OpenWindowTags( NULL, (WA_Left), 353,
  501.                   (WA_Top), 26,
  502.                   (WA_Width), 249+offx,
  503.                   (WA_Height), 74+offy,
  504.                   (WA_Title), "Configure",
  505.                   (WA_MinWidth), 150,
  506.                   (WA_MinHeight), 25,
  507.                   (WA_MaxWidth), 1200,
  508.                   (WA_MaxHeight), 1200,
  509.                   (WA_DragBar), TRUE,
  510.                   (WA_DepthGadget), TRUE,
  511.                   (WA_CloseGadget), TRUE,
  512.                   (WA_Activate), TRUE,
  513.                   (WA_SmartRefresh), TRUE,
  514.                   (WA_AutoAdjust), TRUE,
  515.                   (WA_Gadgets), CtrlCfgGList,
  516.                   (WA_PubScreen) , (LONG)Scr,
  517.                   (WA_IDCMP),580,
  518.                   (TAG_END))))
  519.             {
  520.             RendWindowCtrlCfg(CtrlCfg, CtrlCfgVisualInfo );
  521.             GT_RefreshWindow( CtrlCfg, NULL);
  522.             RefreshGList( CtrlCfgGList, CtrlCfg, NULL, ~0);
  523.             UnlockPubScreen( NULL, Scr);
  524.             return( 0L );
  525.             }
  526.           }
  527.         FreeGadgets( CtrlCfgGList);
  528.         FreeScreenDrawInfo( Scr, CtrlCfgDrawInfo );
  529.         }
  530.       FreeVisualInfo( CtrlCfgVisualInfo );
  531.       }
  532.     UnlockPubScreen( NULL, Scr);
  533.     }
  534.   }
  535. else
  536.   {
  537.   WindowToFront(CtrlCfg);
  538.   ActivateWindow(CtrlCfg);
  539.   return( 0L );
  540.   }
  541. return( 1L );
  542. }
  543.  
  544. void CloseCtrlCfgWindow( void )
  545. {
  546. if (CtrlCfg != NULL)
  547.   {
  548.   FreeScreenDrawInfo( CtrlCfg->WScreen, CtrlCfgDrawInfo );
  549.   CtrlCfgDrawInfo = NULL;
  550.   CloseWindow( CtrlCfg);
  551.   CtrlCfg = NULL;
  552.   FreeVisualInfo( CtrlCfgVisualInfo);
  553.   FreeGadgets( CtrlCfgGList);
  554.   }
  555. }
  556.  
  557. void RendWindowLoading( struct Window *Win, void *vi )
  558. {
  559. int loop;
  560. UWORD offx = Win->BorderLeft;
  561. UWORD offy = Win->BorderTop;
  562. if (Win != NULL)
  563.   {
  564.   DrawImage( Win->RPort, &HbbsLogo_brush, 22+offx, 15+offy);
  565.   BevelTags[3] = (ULONG)vi;
  566.   DrawBevelBoxA( Win->RPort, 12+offx,54+offy,299,73, (struct TagItem *)(&BevelTags[0]));
  567.   DrawBevelBoxA( Win->RPort, 2+offx,6+offy,319,143, (struct TagItem *)(&BevelTags[0]));
  568.   DrawBevelBoxA( Win->RPort,2+4+offx,6+2+offy,319-8,143-4, (struct TagItem *)(&BevelTags[2]));
  569.   DrawBevelBoxA( Win->RPort, 137+offx,37+offy,147,10, (struct TagItem *)(&BevelTags[0]));
  570.   DrawBevelBoxA( Win->RPort,137+4+offx,37+2+offy,147-8,10-4, (struct TagItem *)(&BevelTags[2]));
  571.   DrawBevelBoxA( Win->RPort, 12+offx,129+offy,299,15, (struct TagItem *)(&BevelTags[0]));
  572.   for( loop=0; loop<12; loop++)
  573.     if (LoadingTexts[loop].ITextFont==NULL)
  574.       LoadingTexts[loop].ITextFont=Win->WScreen->Font;
  575.   PrintIText( Win->RPort, LoadingTexts, offx, offy);
  576.   }
  577. }
  578.  
  579. int OpenLoadingWindow( void )
  580. {
  581. struct Screen *Scr;
  582. UWORD offx, offy;
  583. if (LoadingFirstRun == 0)
  584.   {
  585.   LoadingFirstRun = 1;
  586.   }
  587. if (Loading == NULL)
  588.   {
  589.   Scr = LockPubScreen(NULL);
  590.   if (NULL != Scr)
  591.     {
  592.     offx = Scr->WBorLeft;
  593.     offy = Scr->WBorTop + Scr->Font->ta_YSize+1;
  594.     if (NULL != ( LoadingVisualInfo = GetVisualInfoA( Scr, NULL)))
  595.       {
  596.       if (NULL != ( LoadingDrawInfo = GetScreenDrawInfo( Scr)))
  597.         {
  598.         if (NULL != (Loading = OpenWindowTags( NULL, (WA_Left), 185,
  599.                 (WA_Top), 56,
  600.                 (WA_Width), 327+offx,
  601.                 (WA_Height), 154+offy,
  602.                 (WA_Title), "HBBS - Loading",
  603.                 (WA_MinWidth), 150,
  604.                 (WA_MinHeight), 25,
  605.                 (WA_MaxWidth), 1200,
  606.                 (WA_MaxHeight), 1200,
  607.                 (WA_DragBar), TRUE,
  608.                 (WA_DepthGadget), TRUE,
  609.                 (WA_Activate), TRUE,
  610.                 (WA_SmartRefresh), TRUE,
  611.                 (WA_IDCMP),580,
  612.                 (TAG_END))))
  613.           {
  614.           RendWindowLoading(Loading, LoadingVisualInfo );
  615.           UnlockPubScreen( NULL, Scr);
  616.           return( 0L );
  617.           }
  618.         FreeScreenDrawInfo( Scr, LoadingDrawInfo );
  619.         }
  620.       FreeVisualInfo( LoadingVisualInfo );
  621.       }
  622.     UnlockPubScreen( NULL, Scr);
  623.     }
  624.   }
  625. else
  626.   {
  627.   WindowToFront(Loading);
  628.   ActivateWindow(Loading);
  629.   return( 0L );
  630.   }
  631. return( 1L );
  632. }
  633.  
  634. void CloseLoadingWindow( void )
  635. {
  636. if (Loading != NULL)
  637.   {
  638.   FreeScreenDrawInfo( Loading->WScreen, LoadingDrawInfo );
  639.   LoadingDrawInfo = NULL;
  640.   CloseWindow( Loading);
  641.   Loading = NULL;
  642.   FreeVisualInfo( LoadingVisualInfo);
  643.   }
  644. }
  645.  
  646. struct Screen *OpenCtrlScrnScreen(void)
  647. {
  648. CtrlScrnError = 0;
  649. return OpenScreenTagList(NULL,(struct TagItem *)CtrlScrnTags);
  650. }
  651.  
  652. int OpenLibs( void )
  653. {
  654. if ( NULL != (DiskfontBase = OpenLibrary((UBYTE *)"diskfont.library" , 36)))
  655.   if ( NULL != (GadToolsBase = OpenLibrary((UBYTE *)"gadtools.library" , 37)))
  656.     if ( NULL != (GfxBase = (struct GfxBase * )OpenLibrary((UBYTE *)"graphics.library" , 37)))
  657.       if ( NULL != (IntuitionBase = (struct IntuitionBase * )OpenLibrary((UBYTE *)"intuition.library" , 37)))
  658.         return( 0L );
  659. CloseLibs();
  660. return( 1L );
  661. }
  662.  
  663. void CloseLibs( void )
  664. {
  665. if (NULL != DiskfontBase )
  666.   CloseLibrary( DiskfontBase );
  667. if (NULL != GadToolsBase )
  668.   CloseLibrary( GadToolsBase );
  669. if (NULL != GfxBase )
  670.   CloseLibrary( ( struct Library * )GfxBase );
  671. if (NULL != IntuitionBase )
  672.   CloseLibrary( ( struct Library * )IntuitionBase );
  673. }
  674.  
  675. int OpenDiskFonts( void )
  676. {
  677.   int OKSoFar = 0;
  678. if (NULL == OpenDiskFont( &HBBS8066 ) )
  679.   OKSoFar = 1;
  680. return ( OKSoFar );
  681. }
  682.  
  683. int MakeImages( void )
  684. {
  685. UWORD failed = 0;
  686. if (NULL != (WaitPointer=AllocMem( 72, MEMF_CHIP)))
  687.   CopyMem( WaitPointerData, WaitPointer, 72);
  688. else
  689.   failed = 1;
  690. if (NULL != (HbbsLogo_brush.ImageData=AllocMem( 750, MEMF_CHIP)))
  691.   CopyMem( HbbsLogo_brushData, HbbsLogo_brush.ImageData, 750);
  692. else
  693.   failed = 1;
  694. if (failed==0)
  695.   return( 0L );
  696. else
  697.   {
  698.   FreeImages();
  699.   return( 1L );
  700.   }
  701. }
  702.  
  703. void FreeImages( void )
  704. {
  705. if (WaitPointer != NULL)
  706.   FreeMem( WaitPointer, 72);
  707. WaitPointer = NULL;
  708. if (HbbsLogo_brush.ImageData != NULL)
  709.   FreeMem(HbbsLogo_brush.ImageData, 750);
  710. HbbsLogo_brush.ImageData = NULL;
  711. }
  712.  
  713.