void handleWindowEvents(FrameworkWindow *window, long signalSet) {
struct IntuiMessage *msg;
struct Window *iwindow = window->intuitionWindow;
if(1L << iwindow->UserPort->mp_SigBit & signalSet) {
while(msg = GT_GetIMsg(iwindow->UserPort)) {
dispatchMessage(window, msg);
GT_ReplyIMsg(msg);
}
}
handleWindowChildEvents(window, signalSet);
}
int HandleBlankerIDCMP( void )
{
struct IntuiMessage *m;
int (*func)();
BOOL running = TRUE;
while( m = GT_GetIMsg( BlankerWnd->UserPort )) {
CopyMem(( char * )m, ( char * )&BlankerMsg, (long)sizeof( struct IntuiMessage ));
GT_ReplyIMsg( m );
switch ( BlankerMsg.Class ) {
case IDCMP_REFRESHWINDOW:
GT_BeginRefresh( BlankerWnd );
GT_EndRefresh( BlankerWnd, TRUE );
break;
case IDCMP_CLOSEWINDOW:
running = BlankerCloseWindow();
break;
case IDCMP_VANILLAKEY:
running = BlankerVanillaKey();
break;
case IDCMP_GADGETUP:
case IDCMP_GADGETDOWN:
func = ( void * )(( struct Gadget * )BlankerMsg.IAddress )->UserData;
running = func();
break;
case IDCMP_MENUPICK:
break;
}
}
return( running );
}
static BOOL HandleReq( struct AHIAudioModeRequesterExt *req )
// Returns FALSE if requester was cancelled
{
BOOL done=FALSE,rc=TRUE;
ULONG class,sec,oldsec=0,micro,oldmicro=0,oldid=AHI_INVALID_ID;
UWORD code;
UWORD qual;
struct Gadget *pgsel;
struct IntuiMessage *imsg;
struct IDnode *idnode;
LONG sliderlevels,sliderlevel,i,selected;
struct MenuItem *item;
while(!done)
{
Wait(1L << req->Window->UserPort->mp_SigBit);
while ((imsg=GT_GetIMsg(req->Window->UserPort)) != NULL )
{
if(imsg->IDCMPWindow == req->InfoWindow)
{
class = imsg->Class;
GT_ReplyIMsg(imsg);
switch(class)
{
case IDCMP_CLOSEWINDOW:
CloseInfoWindow(req);
break;
case IDCMP_REFRESHWINDOW :
GT_BeginRefresh(req->InfoWindow);
GT_EndRefresh(req->InfoWindow,TRUE);
break;
}
continue; // Get next IntuiMessage
}
else if(imsg->IDCMPWindow != req->Window) // Not my window!
{
if(req->IntuiMsgFunc)
CallHookPkt(req->IntuiMsgFunc,req,imsg);
// else what to do??? Reply and forget? FIXIT!
continue;
}
sec=imsg->Seconds;
micro=imsg->Micros;
qual=imsg->Qualifier;
class=imsg->Class;
code=imsg->Code;
pgsel=(struct Gadget *)imsg->IAddress; // pgsel illegal if not gadget
GT_ReplyIMsg(imsg);
switch ( class )
{
case IDCMP_RAWKEY:
switch (code)
{
case 0x4c: // Cursor Up
selected=GetSelected(req);
if(selected == ~0)
selected=0;
if(selected > 0)
selected--;
idnode=(struct IDnode *)req->list->mlh_Head;
for(i=0;i<selected;i++)
idnode=(struct IDnode *)idnode->node.ln_Succ;
req->tempAudioID=idnode->ID;
SetSelected(req,TRUE);
break;
case 0x4d: // Cursor Down
selected=GetSelected(req);
selected++; // ~0 => 0
idnode=(struct IDnode *)req->list->mlh_Head;
for(i=0;i<selected;i++)
if(idnode->node.ln_Succ->ln_Succ)
idnode=(struct IDnode *)idnode->node.ln_Succ;
req->tempAudioID=idnode->ID;
SetSelected(req,TRUE);
break;
case 0x4e: // Cursor Right
GetSliderAttrs(req,&sliderlevels,&sliderlevel);
sliderlevel += (qual & (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT) ? 10 :1);
if(sliderlevel >= sliderlevels)
sliderlevel=sliderlevels-1;
AHI_GetAudioAttrs(req->tempAudioID, NULL,
AHIDB_FrequencyArg,sliderlevel,
AHIDB_Frequency, (ULONG) &req->tempFrequency,
TAG_DONE);
SetSelected(req,FALSE);
break;
case 0x4f: // Cursor Left
GetSliderAttrs(req,&sliderlevels,&sliderlevel);
sliderlevel -= (qual & (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT) ? 10 :1);
if(sliderlevel < 0)
sliderlevel=0;
AHI_GetAudioAttrs(req->tempAudioID, NULL,
AHIDB_FrequencyArg,sliderlevel,
AHIDB_Frequency, (ULONG) &req->tempFrequency,
TAG_DONE);
SetSelected(req,FALSE);
break;
}
break;
case IDCMP_GADGETUP :
switch ( pgsel->GadgetID )
{
case OKBUTTON:
done=TRUE;
break;
case CANCELBUTTON:
done=TRUE;
rc=FALSE;
break;
case FREQSLIDER:
AHI_GetAudioAttrs(req->tempAudioID, NULL,
AHIDB_FrequencyArg,code,
AHIDB_Frequency, (ULONG) &req->tempFrequency,
TAG_DONE);
break;
case LISTVIEW:
idnode=(struct IDnode *)req->list->mlh_Head;
for(i=0;i<code;i++)
idnode=(struct IDnode *)idnode->node.ln_Succ;
req->tempAudioID=idnode->ID;
SetSelected(req,FALSE);
// Test doubleclick and save timestamp
if( (oldid == req->tempAudioID) && DoubleClick(oldsec,oldmicro,sec,micro))
done=TRUE;
oldsec=sec;
oldmicro=micro;
oldid=req->tempAudioID;
break;
}
break;
case IDCMP_NEWSIZE:
if(!(LayOutReq(req,req->TextAttr)))
if(!(LayOutReq(req,&Topaz80)))
{
// ERROR! Quit.
done=TRUE;
break;
}
break;
case IDCMP_CLOSEWINDOW:
done=TRUE;
rc=FALSE;
break;
case IDCMP_REFRESHWINDOW :
GT_BeginRefresh(req->Window);
GT_EndRefresh(req->Window,TRUE);
break;
case IDCMP_SIZEVERIFY:
break;
case IDCMP_MENUPICK:
while((code != MENUNULL) && !done)
{
item=ItemAddress(req->Menu, code);
switch((ULONG)GTMENUITEM_USERDATA(item))
{
case LASTMODEITEM:
selected=GetSelected(req);
if(selected == ~0)
selected=0;
if(selected > 0)
selected--;
idnode=(struct IDnode *)req->list->mlh_Head;
for(i=0;i<selected;i++)
idnode=(struct IDnode *)idnode->node.ln_Succ;
req->tempAudioID=idnode->ID;
SetSelected(req,TRUE);
break;
case NEXTMODEITEM:
selected=GetSelected(req);
selected++; // ~0 => 0
idnode=(struct IDnode *)req->list->mlh_Head;
for(i=0;i<selected;i++)
if(idnode->node.ln_Succ->ln_Succ)
idnode=(struct IDnode *)idnode->node.ln_Succ;
req->tempAudioID=idnode->ID;
SetSelected(req,TRUE);
break;
case PROPERTYITEM:
OpenInfoWindow(req);
break;
case RESTOREITEM:
req->tempAudioID=req->Req.ahiam_AudioID;
req->tempFrequency=req->Req.ahiam_MixFreq;
SetSelected(req,TRUE);
break;
case OKITEM:
done=TRUE;
break;
case CANCELITEM:
done=TRUE;
rc=FALSE;
break;
}
code = item->NextSelect;
}
break;
}
}
}
void main()
{
ULONG class,code;
struct Gadget *gadget;
struct IntuiMessage *message;
struct DrawInfo *dri;
BOOL running=TRUE;
unless(Scr=LockPubScreen("Workbench")) LEAVE;
unless(dri=GetScreenDrawInfo(Scr)) LEAVE;
unless(SmartBitMapBase=OpenLibrary("images/smartbitmap.image",36L)) LEAVE;
unless(ImClass=GetSmartBitMapClass()) LEAVE;
GetRGB32(Scr->ViewPort.ColorMap,0,1,&pal[0].R);
unless(Im=NewObject(ImClass,NULL,
IA_Left,25,
IA_Top,25,
IA_Width,20,
SMBM_Border,FALSE,
SMBM_SelBorder,TRUE,
SMBM_Screen,Scr,
SMBM_BitMap,&TBCOLORWHEELBitMap,
// SMBM_BitMap,&Size45UDBitMap,
SMBM_Palette,pal,
TAG_DONE)) LEAVE;
unless(MainWnd=OpenWindowTags(NULL,
WA_Left,0,
WA_Top,0,
WA_Width,600,
WA_Height,200,
WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_GADGETUP,
WA_Flags,WFLG_CLOSEGADGET|WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_ACTIVATE|WFLG_SIZEGADGET,
WA_CustomScreen,Scr,
TAG_DONE)) LEAVE;
DrawImageState(MainWnd->RPort,(struct Image *)Im,0,0,IDS_NORMAL,dri);
while(running)
{
Wait(1L<<MainWnd->UserPort->mp_SigBit);
while(message=GT_GetIMsg(MainWnd->UserPort))
{
class=message->Class;
code=message->Code;
gadget=(struct Gadget *)message->IAddress;
GT_ReplyIMsg(message);
switch(class)
{
case IDCMP_CLOSEWINDOW:
running=FALSE;
break;
}
}
}
end:
if(MainWnd)
{
CloseWindow(MainWnd);
}
if(Im) DisposeObject(Im);
if(SmartBitMapBase) CloseLibrary(SmartBitMapBase);
if(dri) FreeScreenDrawInfo(Scr,dri);
if(Scr) UnlockPubScreen(NULL,Scr);
}
/*****************************************
* Main program *
*****************************************/
int main()
{
int quit = 0, i;
struct IntuiMessage *msg;
struct Gadget *button;
struct StringInfo *strinfo;
char buf[257];
UWORD koodi, msgID;
ULONG classi, number;
APTR address;
ULONG CycleTags[3];
CycleTags[0] = GTCY_Active;
CycleTags[1] = (ULONG) & number;
CycleTags[2] = TAG_DONE;
/* Read UAE configuration */
i = GetUaeConfig(&config);
i = setup_window();
if (i == 0) {
quit_program(1, "Cannot setup a window!");
return 1;
}
while (quit == 0) {
WaitPort(window->UserPort);
while (msg = (struct IntuiMessage *) GT_GetIMsg(window->UserPort)) {
classi = msg->Class;
koodi = msg->Code;
address = msg->IAddress;
if (classi == IDCMP_GADGETUP) {
msgID = ((struct Gadget *) msg->IAddress)->GadgetID;
button = (struct Gadget *) msg->IAddress;
if (button->SpecialInfo) {
strinfo = (struct StringInfo *) button->SpecialInfo;
}
} else
msgID = msg->Code;
GT_ReplyIMsg((struct IntuiMessage *) msg);
switch (classi) {
case IDCMP_CLOSEWINDOW:
quit = 1;
break;
case IDCMP_GADGETUP:
switch (msgID) {
case GAD_EXITEMU:
ExitEmu();
break;
case GAD_EJECT_DF0:
EjectDisk(0);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
break;
case GAD_EJECT_DF1:
EjectDisk(1);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
break;
case GAD_EJECT_DF2:
EjectDisk(2);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
break;
case GAD_EJECT_DF3:
EjectDisk(3);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
break;
case GAD_SOUND:
if (config.do_output_sound)
DisableSound();
else
EnableSound();
Delay(30);
GetUaeConfig(&config);
break;
case GAD_JOYSTICK:
if (config.do_fake_joystick)
DisableJoystick();
else
EnableJoystick();
Delay(30);
GetUaeConfig(&config);
break;
case GAD_FRAMERATE:
SetFrameRate(strinfo->LongInt);
Delay(30);
GetUaeConfig(&config);
break;
case GAD_INSERT_DF0:
strcpy(buf, config.df0_name);
if (get_string(buf, 255)) {
InsertDisk((UBYTE *) buf, 0);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
}
break;
case GAD_INSERT_DF1:
strcpy(buf, config.df1_name);
if (get_string(buf, 255)) {
InsertDisk((UBYTE *) buf, 1);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
}
break;
case GAD_INSERT_DF2:
strcpy(buf, config.df2_name);
if (get_string(buf, 255)) {
InsertDisk((UBYTE *) buf, 2);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
}
break;
case GAD_INSERT_DF3:
strcpy(buf, config.df3_name);
if (get_string(buf, 255)) {
InsertDisk((UBYTE *) buf, 3);
Delay(30);
GetUaeConfig(&config);
print_drive_status();
}
break;
case GAD_LANGUAGE:
number = config.keyboard;
number++;
if (number == 5)
number = 0;
ChangeLanguage(number);
Delay(30);
GetUaeConfig(&config);
break;
case GAD_RESET:
ColdReboot();
break;
case GAD_DEBUG:
DebugFunc();
break;
default:
break;
}
break;
default:
break;
}
}
}
quit_program(0, "");
return (0);
}
BOOL
get_string(UBYTE * buff, LONG max_len)
{
struct Gadget *g, *sg;
struct NewGadget ng;
struct Gadget *gl;
struct Window *win;
struct IntuiMessage *msg;
struct StringInfo *strinfo;
UWORD koodi, msgID;
ULONG classi;
APTR address;
UWORD offy;
BOOL quit, ok;
g = CreateContext(&gl);
if (!g)
return FALSE;
offy = scr->WBorTop + scr->RastPort.TxHeight + 1;
ng.ng_TextAttr = &topaz8;
ng.ng_VisualInfo = VisInfo;
ng.ng_Flags = PLACETEXT_IN;
ng.ng_LeftEdge = 14;
ng.ng_TopEdge = offy + 34;
ng.ng_Width = 90;
ng.ng_Height = 15;
ng.ng_GadgetText = (UBYTE *) "OK";
ng.ng_GadgetID = GAD_OK;
g = CreateGadget(BUTTON_KIND, g, &ng, TAG_DONE);
ng.ng_LeftEdge = 246;
ng.ng_TopEdge = offy + 34;
ng.ng_GadgetText = (UBYTE *) "Cancel";
ng.ng_GadgetID = GAD_CANCEL;
g = CreateGadget(BUTTON_KIND, g, &ng, TAG_DONE);
ng.ng_LeftEdge = 14;
ng.ng_TopEdge = offy + 10;
ng.ng_Width = 322;
ng.ng_Height = 15;
ng.ng_GadgetText = NULL;
ng.ng_GadgetID = GAD_STRING;
sg = CreateGadget(STRING_KIND, g, &ng,
GTST_String, buff,
GTST_MaxChars, max_len,
TAG_DONE);
strinfo = (struct StringInfo *) sg->SpecialInfo;
ok = FALSE;
newwindow.Title = "Amiga Disk File";
newwindow.Width = 350;
newwindow.Height = 65;
newwindow.FirstGadget = gl;
newwindow.Screen = scr;
newwindow.LeftEdge = scr->MouseX - (newwindow.Width / 2);
if (newwindow.LeftEdge + newwindow.Width > scr->Width)
newwindow.LeftEdge = scr->Width - newwindow.Width;
newwindow.TopEdge = scr->MouseY - (newwindow.Height / 2);
if (newwindow.TopEdge + newwindow.Height > scr->Height)
newwindow.TopEdge = scr->Height - newwindow.Height;
win = OpenWindow(&newwindow);
if (win) {
ActivateGadget(sg, win, NULL);
quit = FALSE;
while (!quit) {
WaitPort(win->UserPort);
while (msg = (struct IntuiMessage *) GT_GetIMsg(win->UserPort)) {
classi = msg->Class;
koodi = msg->Code;
address = msg->IAddress;
if (classi == IDCMP_GADGETUP)
msgID = ((struct Gadget *) msg->IAddress)->GadgetID;
else
msgID = msg->Code;
GT_ReplyIMsg((struct IntuiMessage *) msg);
switch (classi) {
case IDCMP_CLOSEWINDOW:
quit = TRUE;
break;
case IDCMP_GADGETUP:
switch (msgID) {
case GAD_CANCEL:
quit = TRUE;
break;
case GAD_OK:
case GAD_STRING:
strcpy(buff, strinfo->Buffer);
quit = ok = TRUE;
break;
}
break;
default:
break;
}
}
}
CloseWindow(win);
}
FreeGadgets(gl);
return ok;
}
