#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/intuition.h>
#include <proto/window.h>
#include <proto/layout.h>
#include <proto/button.h>
#include <proto/getfile.h>
#include <classes/window.h>
#include <gadgets/getfile.h>
#include <reaction/reaction_macros.h>
enum
{
GID_MAIN=0,
GID_LOAD,
GID_FILEREQUESTER,
GID_LAST
};
enum
{
WID_MAIN=0,
WID_REQUESTER,
WID_LAST
};
enum
{
OID_MAIN=0,
OID_REQUESTER,
OID_LAST
};
int main(void)
{
struct Window *windows[WID_LAST];
struct Screen *screen;
struct MsgPort *AppPort;
Object *gadgets[GID_LAST];
Object *objects[OID_LAST];
screen=IIntuition->LockPubScreen(NULL);
if ( screen )
{
/* make sure our classes opened... */
if (!ButtonBase || !WindowBase || !LayoutBase )
return(30);
AppPort = (struct MsgPort *)IExec->CreateMsgPort();
if (AppPort)
{
/* Create the window object. */
objects[OID_MAIN] = WindowObject,
WA_Title, "GetFile Test",
WA_Width, 200,
WA_Height, 50,
WA_Activate, TRUE,
WA_DepthGadget, TRUE,
WA_DragBar, TRUE,
WA_CloseGadget, TRUE,
WA_SizeGadget, TRUE,
WA_Opaqueness, 255, /* Initial opaqueness on opening (0..255) */
WA_OverrideOpaqueness, FALSE, /* Override global settings? (TRUE|FALSE) */
WA_FadeTime, 250000, /* Duration of transition in microseconds */
WA_NewLookMenus, TRUE,
WA_IDCMP, IDCMP_MOUSEBUTTONS,
WINDOW_AppPort, AppPort,
WINDOW_Position, WPOS_CENTERMOUSE,
WINDOW_ParentGroup, gadgets[GID_MAIN] = VGroupObject,
LAYOUT_SpaceOuter, TRUE,
LAYOUT_DeferLayout, TRUE,
LAYOUT_BevelStyle, BVS_GROUP,
LAYOUT_AddChild, gadgets[GID_LOAD] = ButtonObject,
GA_ID, GID_LOAD,
GA_RelVerify, TRUE,
GA_Text, "Load",
ButtonEnd,
CHILD_WeightedHeight, 0,
CHILD_WeightedWidth, 0,
LayoutEnd,
WindowEnd;
/* Object creation sucessful? */
if (objects[OID_MAIN])
{
/* Open the window. */
windows[WID_MAIN] = (struct Window *) RA_OpenWindow(objects[OID_MAIN]);
if ( windows[WID_MAIN] )
{
ULONG wait, signal = (1L << AppPort->mp_SigBit);
ULONG done = FALSE;
ULONG result;
UWORD code;
/* Obtain the window wait signal mask. */
IIntuition->GetAttr(WINDOW_SigMask, objects[OID_MAIN], &signal);
/* Input Event Loop */
while (!done)
{
wait = IExec->Wait( signal | SIGBREAKF_CTRL_C );
if ( wait & SIGBREAKF_CTRL_C )
{
done = TRUE;
}
else
{
while ( (result = RA_HandleInput(objects[OID_MAIN], &code) ) != WMHI_LASTMSG )
{
switch (result & WMHI_CLASSMASK)
{
case WMHI_CLOSEWINDOW:
done = TRUE;
break;
case WMHI_GADGETUP:
switch (result & WMHI_GADGETMASK)
{
case GID_LOAD:
gadgets[GID_FILEREQUESTER] = GetFileObject,
GA_ID, GID_FILEREQUESTER,
GA_RelVerify, TRUE,
GETFILE_DoMultiSelect, TRUE,
GETFILE_TitleText, "Select File",
GETFILE_Drawer, "RAM:",
GETFILE_Pattern, "#?",
End;
IIntuition->IDoMethod (gadgets[GID_FILEREQUESTER], GFILE_REQUEST,NULL);
IIntuition->DisposeObject(gadgets[GID_FILEREQUESTER] );
break;
}
break;
}
}
}
}
}
IIntuition->DisposeObject(objects[OID_MAIN]);
}
IExec->DeleteMsgPort(AppPort);
}
}
IIntuition->UnlockPubScreen(NULL,screen);
return (RETURN_OK);
}
