/*********************************************/
/*                                           */
/*       Designer (C) Ian OConnor 1994       */
/*                                           */
/*      Designer Produced C include file     */
/*                                           */
/*********************************************/

#include "SysopListView.h"

#include <HBBS/types.h>
#include <HBBS/Defines.h>
#include <HBBS/structures.h>

extern struct BBSGlobalData *BBSGlobal;
     
struct Window *SLV = NULL;
APTR SLVVisualInfo;
struct DrawInfo *SLVDrawInfo;
struct Gadget *SLVGList;
struct Gadget *SLVGadgets[2];
UBYTE SLVFirstRun = 0;

struct Node LV1ListItems[] =
        {
        &LV1ListItems[1], (struct Node *)&LV1List.mlh_Head, 0, 0, (STRPTR)"Nodes",
        &LV1ListItems[2], &LV1ListItems[0], 0, 0, (STRPTR)"Conferences",
        &LV1ListItems[3], &LV1ListItems[1], 0, 0, (STRPTR)"Access Levels",
        &LV1ListItems[4], &LV1ListItems[2], 0, 0, (STRPTR)"Access Names",
        &LV1ListItems[5], &LV1ListItems[3], 0, 0, (STRPTR)"Language Name",
        &LV1ListItems[6], &LV1ListItems[4], 0, 0, (STRPTR)"Language Extn",
        &LV1ListItems[7], &LV1ListItems[5], 0, 0, (STRPTR)"Drives",
        ( struct Node *)&LV1List.mlh_Tail, &LV1ListItems[6], 0, 0, (STRPTR)"Protocols"
        };

struct MinList LV1List =
        {
        ( struct MinNode * )&LV1ListItems[0], ( struct MinNode * )NULL , ( struct MinNode * )&LV1ListItems[7]
        };

ULONG SLVGadgetTags[] =
        {
        (GTLV_ShowSelected), 0,
        (GTLV_Selected), 0,
        (GTLV_Labels), (ULONG)&LV1List,
        (TAG_END),
        (GTLV_Selected), 0,
        (TAG_END),
        };

UWORD SLVGadgetTypes[] =
        {
        LISTVIEW_KIND,
        LISTVIEW_KIND,
        };

struct NewGadget SLVNewGadgets[] =
        {
        2, 5, 134, 132, NULL, &topaz800, LV1, 1, NULL,  (APTR)&SLVGadgetTags[0],
        139, 5, 491, 132, NULL, &topaz800, LV2, 1, NULL,  (APTR)&SLVGadgetTags[7],
        };
UWORD SLVZoomInfo[4] = { 0, 0, 200, 11 };

struct TextAttr topaz800 = { (STRPTR)"topaz.font", 8, 0, 0 };

int OpenWindowSLV( struct Screen *Scr)
{
UWORD offx, offy;
UWORD loop;
struct NewGadget newgad;
struct Gadget *Gad;
struct Gadget *Gad2;
APTR Cla;
if (SLVFirstRun == 0)
        {
        SLVFirstRun = 1;
        }
if (SLV == NULL)
        {
        offx = Scr->WBorLeft;
        offy = Scr->WBorTop + Scr->Font->ta_YSize+1;
        if (NULL != ( SLVVisualInfo = GetVisualInfoA( Scr, NULL)))
                {
                if (NULL != ( SLVDrawInfo = GetScreenDrawInfo( Scr)))
                        {
                        SLVGList = NULL;
                        Gad = CreateContext( &SLVGList);
                        for ( loop=0 ; loop<2 ; loop++ )
                                if (SLVGadgetTypes[loop] != 198)
                                        {
                                        CopyMem((char * )&SLVNewGadgets[loop], ( char * )&newgad, (long)sizeof( struct NewGadget ));
                                        newgad.ng_VisualInfo = SLVVisualInfo;
                                        newgad.ng_LeftEdge += offx;
                                        newgad.ng_TopEdge += offy;
                                        SLVGadgets[ loop ] = NULL;
                                        SLVGadgets[ newgad.ng_GadgetID - SLVFirstID ] = Gad = CreateGadgetA( SLVGadgetTypes[loop], Gad, &newgad, newgad.ng_UserData );
                                        }
                        for ( loop=0 ; loop<2 ; loop++ )
                                if (SLVGadgetTypes[loop] == 198)
                                        {
                                        SLVGadgets[ loop ] = NULL;
                                        Cla = NULL;
                                        if (Gad)
                                                SLVGadgets[ loop ] = Gad2 = (struct Gadget *) NewObjectA( (struct IClass *)Cla, SLVNewGadgets[ loop ].ng_GadgetText, SLVNewGadgets[ loop ].ng_UserData );
                                        }
                        if (Gad != NULL)
                                {
                                if (NULL != (SLV = OpenWindowTags( NULL, (WA_Left), 0,
                                                                (WA_Top), 11,
                                                                (WA_Width), 636+offx,
                                                                (WA_Height), 144+offy,
                                                                (WA_Title), "Sysop List Viewer",
                                                                (WA_MinWidth), 200,
                                                                (WA_MinHeight), 11,
                                                                (WA_MaxWidth), 1200,
                                                                (WA_MaxHeight), 1200,
                                                                (WA_DragBar), TRUE,
                                                                (WA_DepthGadget), TRUE,
                                                                (WA_CloseGadget), TRUE,
                                                                (WA_Activate), TRUE,
                                                                (WA_Dummy+0x30), TRUE,
                                                                (WA_SmartRefresh), TRUE,
                                                                (WA_AutoAdjust), TRUE,
                                                                (WA_Gadgets), SLVGList,
                                                                (WA_Zoom), SLVZoomInfo,
                                                                (WA_PubScreen) , (LONG)Scr,
                                                                (WA_IDCMP),4194940,
BBSGlobal->ScreenInfo->UsingBackfill  ? (WA_BackFill) : (TAG_IGNORE), &BBSGlobal->backfillhook, // *!* Added
//                SLVDrawInfo->dri_Depth >=4 ? (WA_BackFill) : (TAG_IGNORE), &BBSGlobal->backfillhook, // *!* Added
                                                                (TAG_END))))
                                        {
                                        GT_RefreshWindow( SLV, NULL);
                                        RefreshGList( SLVGList, SLV, NULL, ~0);
                                        return( 0L );
                                        }
                                }
                        FreeGadgets( SLVGList);
                        FreeScreenDrawInfo( Scr, SLVDrawInfo );
                        }
                FreeVisualInfo( SLVVisualInfo );
                }
        }
else
        {
        WindowToFront(SLV);
        ActivateWindow(SLV);
        return( 0L );
        }
return( 1L );
}

void CloseWindowSLV( void )
{
if (SLV != NULL)
        {
        FreeScreenDrawInfo( SLV->WScreen, SLVDrawInfo );
        SLVDrawInfo = NULL;
        CloseWindow( SLV);
        SLV = NULL;
        FreeVisualInfo( SLVVisualInfo);
        FreeGadgets( SLVGList);
        }
}