Hyperion Entertainment Message Boards

Code: Select all

#define __USE_INLINE__

#include <proto/exec.h>
#include <proto/intuition.h>
#include <proto/gadtools.h>
#include <proto/label.h>
#include <proto/bitmap.h>
#include <intuition/imageclass.h>
#include <images/label.h>
#include <images/bitmap.h>
#include <stdio.h>
#include <reaction/reaction_macros.h>

#ifdef __amigaos4__
struct Library *IntuitionBase = NULL;
struct IntuitionIFace *IIntuition = NULL;
struct Library *GadToolsBase = NULL;
struct GadToolsIFace *IGadTools = NULL;
#else
struct IntuitionBase *IntuitionBase = NULL;
APTR IIntuition = NULL;
struct LabelBase *LabelBase = NULL;
#endif

void cleanup(struct Window *window);

struct Menu *initmenu(struct Window *window, struct Screen *scrn, struct DrawInfo *dri)
{
	struct VisualInfo *vi;
	struct Menu *menu;

	struct NewMenu newmenu[] = {
		{ NM_TITLE, "Title", 0, 0, 0, 0, },
		{ IM_ITEM, NULL, 0, 0, 0, 0, },
		{ NM_END, NULL, 0, 0, 0, 0, },
	};

	newmenu[1].nm_Label = LabelObject,
		LABEL_DrawInfo, dri,
/*
		LABEL_Image, BitMapObject,
			BITMAP_Screen, scrn,
			BITMAP_SourceFile, "TBimages:list_objects",
		BitMapEnd,
*/
		LABEL_Text, "test",
	LabelEnd;

	printf("%lx\n", newmenu[1].nm_Label);

	vi = GetVisualInfoA(scrn, NULL);

	if(menu = CreateMenusA(newmenu, NULL)) {
		if(LayoutMenus(menu, vi, GTMN_NewLookMenus, TRUE, TAG_DONE)) {
			SetMenuStrip(window, menu);
			printf("menus attached\n");
		}
	}
	return menu;
}

int main(int argv, char **argc)
{
    ULONG signalmask, winsignal, signals;
    BOOL done = FALSE;
    struct IntuiMessage *message = NULL;
    ULONG class;
    struct Window *window = NULL;
	struct Screen *scr;
	struct DrawInfo *dri;
	struct Menu *menu;

    IntuitionBase = OpenLibrary("intuition.library",0);
#ifdef __amigaos4__
	IIntuition = (struct IntuitionIFace *)GetInterface(IntuitionBase, "main", 1, NULL);
#endif

    GadToolsBase = OpenLibrary("gadtools.library",0);
#ifdef __amigaos4__
	IGadTools = (struct GadToolsIFace *)GetInterface(GadToolsBase, "main", 1, NULL);
#endif

    LabelBase = OpenLibrary("CLASSES:Images/label.image",0);
#ifdef __amigaos4__
	ILabel = (struct LabelIFace *)GetInterface(LabelBase, "main", 1, NULL);
#endif
scr = LockPubScreen(NULL); 
 dri = GetScreenDrawInfo(scr); 

    window = OpenWindowTags(NULL,
							WA_CloseGadget,  TRUE,
							WA_DragBar,      TRUE,
							WA_DepthGadget,  TRUE,
							WA_SizeGadget, TRUE,
							WA_MinWidth,        50,
							WA_MinHeight,       50,
							WA_MaxWidth,        1000,
							WA_MaxHeight,       700,
							WA_Width,        600,
							WA_Height,       200,
							WA_IDCMP,        IDCMP_CLOSEWINDOW,
							WA_Title,        "test",
							WA_NewLookMenus, TRUE,
							TAG_DONE);

    if (window == NULL) {
        cleanup(window);
		return;
	}

	menu = initmenu(window, scr, dri);

	UnlockPubScreen(NULL, scr);

    winsignal = 1L << window->UserPort->mp_SigBit;
    signalmask = winsignal;

    while(!done)
    {
        signals = Wait(signalmask);

        if(signals & winsignal)
		{
		    while(message = (struct IntuiMessage *)GetMsg(window->UserPort))
    		{
        		class = message->Class;

		        switch(class)
        		{
            		case IDCMP_SIZEVERIFY:
                	break;

            		case IDCMP_CLOSEWINDOW:
                		done=TRUE;
                	break;

            		default:
                	break;
				}
		        ReplyMsg((struct Message *)message);
	        }
    	}
    }
    cleanup(window);
	return 0;
}

void cleanup(struct Window *window)
{
    if(window) {
		ClearMenuStrip(window);
		CloseWindow(window);
	}

#ifdef __amigaos4__
	if(IIntuition)
		DropInterface((struct Interface *)IIntuition);
#endif

    if(IntuitionBase)
		CloseLibrary(IntuitionBase);

    return;
}