/* ---------------------------------------------------------------------
* ShellDlgCoProcExitHook
* CoProc terminate hook event
* ---------------------------------------------------------------------
*/
static void
ShellDlgCoProcExitHook(void* w, void* c, int code)
{
wchar_t buffer[128 + 1];
CUIWINDOW* win = (CUIWINDOW*) w;
CUI_USE_ARG(code);
#ifdef BE_VERBOSE
swprintf(buffer, 128, _T("Terminated with exit code %i"), code);
TerminalWrite((CUIWINDOW*) c, _T("\033[33m\033[1m"), wcslen(_T("\033[33m\033[1m")));
TerminalWrite((CUIWINDOW*) c, buffer, wcslen(buffer));
TerminalWrite((CUIWINDOW*) c, _T("\033[0m\n"), wcslen(_T("\033[0m\n")));
#endif
((SHELLDLGDATA*)win->InstData)->ExitCode = code;
if ((((SHELLDLGDATA*)win->InstData)->DoAutoClose) && (code == 0))
{
WindowClose((CUIWINDOW*) w, IDOK);
}
else
{
wcscpy(buffer, _T("Press ENTER to continue"));
TerminalWrite((CUIWINDOW*) c, _T("\033[33m\033[1m"), wcslen(_T("\033[33m\033[1m")));
TerminalWrite((CUIWINDOW*) c, buffer, wcslen(buffer));
TerminalWrite((CUIWINDOW*) c, _T("\033[0m"), wcslen(_T("\033[0m")));
}
}
int pollForClipboardMessage(bits messageAction, wimp_block* wblock) {
/* poll for a message relating to the clipboard protocols (either datasave or
* dataload usually) and return true if one is found or false if we either get
* a null or go round more than a few times (avoid loop-of-death)
*/
wimp_event_no reason;
int pollword, i;
extern void WindowOpen(wimp_open* wblock);
extern void WindowClose(wimp_close* wblock);
extern void PointerLeaveWindow(wimp_block* wblock);
extern void PointerEnterWindow(wimp_block* wblock);
for(i=0;i<100;i++) {
xwimp_poll((wimp_MASK_POLLWORD| wimp_MASK_GAIN | wimp_MASK_LOSE
| wimp_SAVE_FP | wimp_QUEUE_REDRAW | wimp_QUEUE_MOUSE | wimp_QUEUE_KEY), wblock, &pollword, &reason);
switch(reason) {
case wimp_NULL_REASON_CODE:
return false; break;
case wimp_OPEN_WINDOW_REQUEST :
WindowOpen(&wblock->open); break;
case wimp_CLOSE_WINDOW_REQUEST :
WindowClose(&wblock->close); break;
case wimp_POINTER_LEAVING_WINDOW :
PointerLeaveWindow(wblock); break;
case wimp_POINTER_ENTERING_WINDOW:
PointerEnterWindow(wblock); break;
case wimp_USER_MESSAGE :
case wimp_USER_MESSAGE_RECORDED :
if( wblock->message.action == messageAction)
return true; break;
}
}
return false;
}
/* ---------------------------------------------------------------------
* CbDropdownKillFocusHook
* Handle EVENT_SETFOCUS events
* ---------------------------------------------------------------------
*/
static void
CbDropdownKillFocusHook(void* w)
{
CUIWINDOW* win = (CUIWINDOW*) w;
WindowCursorOff();
WindowClose(win, IDCANCEL);
}
/* ---------------------------------------------------------------------
* PasswddlgButtonHook
* Handle button events
* ---------------------------------------------------------------------
*/
static void
PasswddlgButtonHook(void* w, void* c)
{
CUIWINDOW* win = (CUIWINDOW*) w;
CUIWINDOW* ctrl = (CUIWINDOW*) c;
PASSWDDLGDATA* data = (PASSWDDLGDATA*) win->InstData;
if (ctrl->Id == IDOK)
{
ctrl = WindowGetCtrl(win, IDC_EDTEXT1);
if (ctrl)
{
EditGetText(ctrl, data->Password, MAX_PASSWD_SIZE);
}
ctrl = WindowGetCtrl(win, IDC_EDTEXT2);
if (ctrl)
{
wchar_t cmptext[MAX_PASSWD_SIZE + 1];
EditGetText(ctrl, cmptext, MAX_PASSWD_SIZE);
if (wcscmp(cmptext, data->Password) != 0)
{
MessageBox(win,
_T("Passwords to not match! Please enter them again."),
_T("Error"),
MB_ERROR);
EditResetInput(ctrl);
ctrl = WindowGetCtrl(win, IDC_EDTEXT1);
if (ctrl)
{
EditResetInput(ctrl);
WindowSetFocus(ctrl);
}
return;
}
}
WindowClose(win, IDOK);
}
else
{
WindowClose(win, IDCANCEL);
}
}
/* ---------------------------------------------------------------------
* ShellDlgKeyHook
* Handle key events
* ---------------------------------------------------------------------
*/
static int
ShellDlgKeyHook(void* w, int key)
{
if (key == KEY_RETURN)
{
WindowClose((CUIWINDOW*) w, IDOK);
return TRUE;
}
return FALSE;
}
void WindowMessageLoop(gl_window_t *win) {
BOOL isMessagePumpActive;
MSG msg;
if (PeekMessageA (&msg, win->hWnd, 0, 0, PM_REMOVE) != 0) {
//printf("WindowMessageLoop\n");
if (msg.message != WM_QUIT) {
TranslateMessage(&msg); // needed for what? NeHe didn't call this
DispatchMessageA (&msg);
} else {
WindowClose(win);
}
} else {
if ( ! win->isVisible) {
//WaitMessage();
}
}
}
WindowWin::~WindowWin()
{
WindowClose();
}
int GetConvArgs( FRAME *frame, struct TagItem *tags, struct PPTBase *xd, struct convargs *cargs )
{
Object *Win, *wtgroup, *weights[7][7], *Bias, *Frq, *Name, *Div;
ULONG sigmask, sig, rc;
int quit = FALSE, res = PERR_OK,i,j;
struct Window *win;
struct IntuitionBase *IntuitionBase = xd->lb_Intuition;
struct ExecBase *SysBase = xd->lb_Sys;
struct Library *BGUIBase = xd->lb_BGUI;
char *name = "Unknown";
#ifdef DEBUG_MODE
PDebug("\tCreating window object\n");
#endif
Win = WindowObject,
WINDOW_Screen, xd->g->maindisp->scr,
WINDOW_Title, frame->nd.ln_Name,
WINDOW_Font, xd->g->userprefs->mainfont,
WINDOW_ScreenTitle, "Convolute Tool",
WINDOW_ScaleWidth, 20,
WINDOW_MenuStrip, Menus,
TAG_SKIP, (cargs->winpos.Height == 0) ? 1 : 0,
WINDOW_Bounds, &(cargs->winpos),
WINDOW_NoBufferRP, TRUE,
WINDOW_MasterGroup,
VGroupObject, Spacing(4), HOffset(6), VOffset(4),
StartMember,
Name = InfoFixed("Name:","",NULL,1),
EndMember,
StartMember,
HGroupObject, Spacing(4), HOffset(4),
StartMember,
/* Grid */
wtgroup = VGroupObject,
StartMember,
HGroupObject,
StartMember,
weights[0][0] = Integer(NULL,0,3,GID_W00),
EndMember,
StartMember,
weights[0][1] = Integer(NULL,0,3,GID_W01),
EndMember,
StartMember,
weights[0][2] = Integer(NULL,0,3,GID_W02),
EndMember,
StartMember,
weights[0][3] = Integer(NULL,0,3,GID_W03),
EndMember,
StartMember,
weights[0][4] = Integer(NULL,0,3,GID_W04),
EndMember,
StartMember,
weights[0][5] = Integer(NULL,0,3,GID_W05),
EndMember,
StartMember,
weights[0][6] = Integer(NULL,0,3,GID_W06),
EndMember,
EndObject,
EndMember,
StartMember,
HGroupObject,
StartMember,
weights[1][0] = Integer(NULL,0,3,GID_W10),
EndMember,
StartMember,
weights[1][1] = Integer(NULL,0,3,GID_W11),
EndMember,
StartMember,
weights[1][2] = Integer(NULL,0,3,GID_W12),
EndMember,
StartMember,
weights[1][3] = Integer(NULL,0,3,GID_W13),
EndMember,
StartMember,
weights[1][4] = Integer(NULL,0,3,GID_W14),
EndMember,
StartMember,
weights[1][5] = Integer(NULL,0,3,GID_W15),
EndMember,
StartMember,
weights[1][6] = Integer(NULL,0,3,GID_W16),
EndMember,
EndObject,
EndMember,
StartMember,
HGroupObject,
StartMember,
weights[2][0] = Integer(NULL,0,3,GID_W20),
EndMember,
StartMember,
weights[2][1] = Integer(NULL,0,3,GID_W21),
EndMember,
StartMember,
weights[2][2] = Integer(NULL,0,3,GID_W22),
EndMember,
StartMember,
weights[2][3] = Integer(NULL,0,3,GID_W23),
EndMember,
StartMember,
weights[2][4] = Integer(NULL,0,3,GID_W24),
EndMember,
StartMember,
weights[2][5] = Integer(NULL,0,3,GID_W25),
EndMember,
StartMember,
weights[2][6] = Integer(NULL,0,3,GID_W26),
EndMember,
EndObject,
EndMember,
StartMember,
HGroupObject,
StartMember,
weights[3][0] = Integer(NULL,0,3,GID_W30),
EndMember,
StartMember,
weights[3][1] = Integer(NULL,0,3,GID_W31),
EndMember,
StartMember,
weights[3][2] = Integer(NULL,0,3,GID_W32),
EndMember,
StartMember,
weights[3][3] = Integer(NULL,1,3,GID_W33),
EndMember,
StartMember,
weights[3][4] = Integer(NULL,0,3,GID_W34),
EndMember,
StartMember,
weights[3][5] = Integer(NULL,0,3,GID_W35),
EndMember,
StartMember,
weights[3][6] = Integer(NULL,0,3,GID_W36),
EndMember,
EndObject,
EndMember,
StartMember,
HGroupObject,
StartMember,
weights[4][0] = Integer(NULL,0,3,GID_W40),
EndMember,
StartMember,
weights[4][1] = Integer(NULL,0,3,GID_W41),
EndMember,
StartMember,
weights[4][2] = Integer(NULL,0,3,GID_W42),
EndMember,
StartMember,
weights[4][3] = Integer(NULL,0,3,GID_W43),
EndMember,
StartMember,
weights[4][4] = Integer(NULL,0,3,GID_W44),
EndMember,
StartMember,
weights[4][5] = Integer(NULL,0,3,GID_W45),
EndMember,
StartMember,
weights[4][6] = Integer(NULL,0,3,GID_W46),
EndMember,
EndObject,
EndMember,
StartMember,
HGroupObject,
StartMember,
weights[5][0] = Integer(NULL,0,3,GID_W50),
EndMember,
StartMember,
weights[5][1] = Integer(NULL,0,3,GID_W51),
EndMember,
StartMember,
weights[5][2] = Integer(NULL,0,3,GID_W52),
EndMember,
StartMember,
weights[5][3] = Integer(NULL,0,3,GID_W53),
EndMember,
StartMember,
weights[5][4] = Integer(NULL,0,3,GID_W54),
EndMember,
StartMember,
weights[5][5] = Integer(NULL,0,3,GID_W55),
EndMember,
StartMember,
weights[5][6] = Integer(NULL,0,3,GID_W56),
EndMember,
EndObject,
EndMember,
StartMember,
HGroupObject,
StartMember,
weights[6][0] = Integer(NULL,0,3,GID_W60),
EndMember,
StartMember,
weights[6][1] = Integer(NULL,0,3,GID_W61),
EndMember,
StartMember,
weights[6][2] = Integer(NULL,0,3,GID_W62),
EndMember,
StartMember,
weights[6][3] = Integer(NULL,0,3,GID_W63),
EndMember,
StartMember,
weights[6][4] = Integer(NULL,0,3,GID_W64),
EndMember,
StartMember,
weights[6][5] = Integer(NULL,0,3,GID_W65),
EndMember,
StartMember,
weights[6][6] = Integer(NULL,0,3,GID_W66),
EndMember,
EndObject,
EndMember,
StartMember,
HGroupObject, Spacing(4),
StartMember,
Bias = Integer("Bias:",0,4,GID_BIAS),
EndMember,
StartMember,
Div = Integer("Div:",1,4,GID_DIV),
EndMember,
EndObject,
EndMember,
EndObject, Weight(75),
EndMember,
StartMember,
VGroupObject, Spacing(4),
StartMember,
XenButton("Load",GID_LOAD),
EndMember,
StartMember,
XenButton("Save",GID_SAVE),
EndMember,
StartMember,
XenButton("Clear",GID_CLEAR),
EndMember,
StartMember,
XenButton("Convolute!",GID_OK),
EndMember,
StartMember,
XenButton("Cancel",GID_CANCEL),
EndMember,
EndObject, Weight(10),
EndMember,
EndObject,
EndMember,
EndObject, /* MasterVGroup */
EndObject; /* Window */
if(Win) {
#ifdef DEBUG_MODE
PDebug("\tSucceeded in creating window\n");
#endif
for(i = 0; i < 7; i++) {
for(j = 0; j < 7; j++) {
SetGadgetAttrs( (struct Gadget *)weights[i][j], NULL, NULL,
STRINGA_LongVal, cargs->weights[i][j], TAG_DONE );
}
}
SetGadgetAttrs( (struct Gadget *)Bias, NULL, NULL, STRINGA_LongVal, cargs->bias, TAG_DONE);
SetGadgetAttrs( (struct Gadget *)Div, NULL, NULL, STRINGA_LongVal, cargs->div, TAG_DONE);
SetGadgetAttrs( (struct Gadget *)Name, NULL, NULL, INFO_TextFormat, cargs->name, TAG_DONE);
if( win = WindowOpen( Win ) ) {
#ifdef DEBUG_MODE
PDebug("\tOpened window OK\n");
#endif
Frq = FileReqObject,
ASLFR_Window, win,
ASLFR_SleepWindow, TRUE,
ASLFR_InitialDrawer, "PROGDIR:modules/convolutions",
ASLFR_InitialPattern,"~(#?.info)",
EndObject;
GetAttr( WINDOW_SigMask, Win, &sigmask );
while(!quit) {
sig = Wait(sigmask | SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_F);
/*
* Break signal
*/
if( sig & SIGBREAKF_CTRL_C ) {
quit = TRUE;
res = PERR_BREAK;
}
if( sig & SIGBREAKF_CTRL_F ) {
WindowToFront( win );
ActivateWindow( win );
}
/*
* Gadget message
*/
if( sig & sigmask ) {
while(( rc = HandleEvent( Win )) != WMHI_NOMORE ) {
struct TagItem clrtable[] = { STRINGA_LongVal, 0, TAG_END };
struct TagItem nonametable[] = { INFO_TextFormat, (ULONG)"unnamed", TAG_END };
struct TagItem settable[] = {STRINGA_LongVal, 0, TAG_END };
struct TagItem frqloadtable[] = {ASLFR_DoSaveMode, FALSE, TAG_END };
struct TagItem newnametable[] = {INFO_TextFormat, NULL, TAG_END };
struct TagItem frqsavetable[] = {ASLFR_DoSaveMode, TRUE, TAG_END };
struct TagItem nametable[] = {INFO_TextFormat, NULL, TAG_END };
int id;
switch(rc) {
case WMHI_CLOSEWINDOW:
case GID_CANCEL:
res = PERR_CANCELED;
quit = TRUE;
WindowClose(Win);
break;
case GID_CLEAR:
WindowBusy(Win);
clrtable[0].ti_Data = 0;
SetGadgetAttrsA( (struct Gadget *)Bias, win, NULL, clrtable);
for(i = 0; i < 7; i++) {
for(j = 0; j < 7; j++) {
SetGadgetAttrsA( (struct Gadget *)weights[i][j], win,
NULL, clrtable );
cargs->weights[i][j] = 0;
}
}
clrtable[0].ti_Data = 1; /* For Divisor & Middle value. */
SetGadgetAttrsA( (struct Gadget *)weights[3][3], win,
NULL, clrtable );
cargs->weights[3][3] = 1;
clrtable[0].ti_Data = 1; /* For Divisor */
SetGadgetAttrsA( (struct Gadget *)Div, win, NULL, clrtable);
SetGadgetAttrsA( (struct Gadget *) Name, win, NULL, nonametable);
WindowReady(Win);
break;
case GID_LOAD:
SetAttrsA( Frq, frqloadtable );
if(DoRequest( Frq ) == FRQ_OK) {
GetAttr( FRQ_Path, Frq, (ULONG *)&name );
WindowBusy(Win);
if(LoadConvFilter( xd, name, cargs ) == PERR_OK ) {
for(i = 0; i < 7; i++) {
for(j = 0; j < 7; j++) {
settable[0].ti_Data = cargs->weights[i][j];
SetGadgetAttrsA( (struct Gadget *)weights[i][j], win,
NULL, settable );
}
}
settable[0].ti_Data = cargs->bias;
SetGadgetAttrsA( (struct Gadget *)Bias, win, NULL, settable);
settable[0].ti_Data = cargs->div;
SetGadgetAttrsA( (struct Gadget *)Div, win, NULL, settable);
GetAttr( FRQ_File, Frq, (ULONG *) &newnametable[0].ti_Data );
SetGadgetAttrsA( (struct Gadget *) Name, win, NULL, newnametable);
}
WindowReady(Win);
}
break;
case GID_SAVE:
SetAttrsA( Frq, frqsavetable );
if(DoRequest(Frq) == FRQ_OK) {
WindowBusy(Win);
GetAttr( FRQ_Path, Frq, (ULONG *)&name );
for(i = 0; i < 7; i++) {
for(j = 0; j < 7; j++) {
GetAttr( STRINGA_LongVal, weights[i][j], (ULONG *) &(cargs->weights[i][j]) );
}
}
GetAttr( STRINGA_LongVal, Bias, (ULONG *) &(cargs->bias));
GetAttr( STRINGA_LongVal, Div, (ULONG *) &(cargs->div));
SaveConvFilter( xd, name, cargs );
GetAttr( FRQ_File, Frq, &nametable[0].ti_Data );
SetGadgetAttrsA( (struct Gadget *) Name, win, NULL, nametable);
WindowReady(Win);
}
break;
case GID_OK:
GetAttr( STRINGA_LongVal, Bias, (ULONG *) &(cargs->bias));
GetAttr( STRINGA_LongVal, Div, (ULONG *) &(cargs->div));
GetAttr( WINDOW_Bounds, Win, (ULONG *) &(cargs->winpos) );
if( cargs->div != 0 ) {
WindowClose(Win);
for(i = 0; i < 7; i++) {
for(j = 0; j < 7; j++) {
GetAttr( STRINGA_LongVal, weights[i][j], (ULONG *) &(cargs->weights[i][j]) );
}
}
GetAttr( STRINGA_LongVal, Bias, (ULONG *) &(cargs->bias));
GetAttr( STRINGA_LongVal, Div, (ULONG *) &(cargs->div));
strncpy( cargs->name, name, 40 );
res = PERR_OK;
quit = TRUE;
}
break;
default:
if(rc >= OPR(0) && rc <= OPR(1000)) { /* It's a default opr */
WindowBusy(Win);
for(id = 0; presets[id].id != rc && presets[id].id != 0L; id++); /* Fetch correct area. */
if(presets[id].id) {
for(i = 0; i < 7; i++) {
for(j = 0; j < 7; j++) {
settable[0].ti_Data = cargs->weights[i][j] = presets[id].weights[i][j];
SetGadgetAttrsA( (struct Gadget *)weights[i][j], win,
NULL, settable );
}
}
settable[0].ti_Data = cargs->bias = presets[id].bias;
SetGadgetAttrsA( (struct Gadget *)Bias, win, NULL, settable);
settable[0].ti_Data = cargs->div = presets[id].div;
SetGadgetAttrsA( (struct Gadget *)Div, win, NULL, settable);
newnametable[0].ti_Data = name = (ULONG)presets[id].name;
SetGadgetAttrsA( (struct Gadget *)Name, win, NULL, newnametable);
}
#ifdef DEBUG_MODE
else {
PDebug("Serious software error!!!\n");
}
#endif
WindowReady(Win);
}
break;
} /* switch */
} /* while */
} /* sig & sigmask */
} /* while(!quit) */
DisposeObject(Win);
DisposeObject(Frq);
} else {
#ifdef DEBUG_MODE
PDebug("\tFailed to get window\n");
#endif
DisposeObject(Win);
return PERR_WONTOPEN;
}
} else {
#ifdef DEBUG_MODE
PDebug("\tFailed to get window object\n");
#endif
return PERR_WONTOPEN;
}
return res;
}
/*************************************************************************
* Main entrypoint for debug build
*************************************************************************/
int WINAPI WinMain(HINSTANCE instance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
MSG msg;
g_hInstance = GetModuleHandle(0);
OutputDebugString("Starting...\n");
if (!WindowOpen()) {
OutputDebugString("Failed to open window\n");
WindowClose();
return 0;
}
if (FAILED(InitDevice())) {
CleanupDevice();
return 0;
}
IntroInit();
InitSound();
while (!g_done) {
g_currentFrame++;
g_lastTime = g_currentTime;
g_currentPos = BASS_ChannelGetPosition(g_stream, BASS_POS_BYTE);
g_currentTime = BASS_ChannelBytes2Seconds(g_stream, g_currentPos);
if (g_pause) {
Sleep(100);
}
while (PeekMessage(&msg,0,0,0,PM_REMOVE)) {
if (msg.message == WM_QUIT) {
g_done = true;
}
TranslateMessage(&msg);
DispatchMessage(&msg);
if (WM_KEYDOWN == msg.message && VK_SPACE == LOWORD(msg.wParam)) {
if (!g_pause) {
BASS_ChannelPause(g_stream);
g_pause = true;
} else {
BASS_ChannelPlay(g_stream, false);
g_pause = false;
}
}
if (WM_KEYDOWN == msg.message && VK_LEFT == LOWORD(msg.wParam)) {
if (g_pause) {
BASS_ChannelSetPosition(g_stream, g_currentPos-44100, BASS_POS_BYTE);
} else {
BASS_ChannelSetPosition(g_stream, g_currentPos-44100*4, BASS_POS_BYTE);
}
}
if (WM_KEYDOWN == msg.message && VK_RIGHT == LOWORD(msg.wParam)) {
if (g_pause) {
BASS_ChannelSetPosition(g_stream, g_currentPos+44100, BASS_POS_BYTE);
} else {
BASS_ChannelSetPosition(g_stream, g_currentPos+44100*4, BASS_POS_BYTE);
}
}
if (WM_KEYDOWN == msg.message && VK_DOWN == LOWORD(msg.wParam)) {
BASS_ChannelSetPosition(g_stream, g_currentPos-44100*20, BASS_POS_BYTE);
}
if (WM_KEYDOWN == msg.message && VK_UP == LOWORD(msg.wParam)) {
BASS_ChannelSetPosition(g_stream, g_currentPos+44100*20, BASS_POS_BYTE);
}
if (WM_KEYDOWN == msg.message && VK_F1 == LOWORD(msg.wParam)) {
g_repeatStart = g_currentPos;
g_repeatEnd = LONG_MAX;
}
if (WM_KEYDOWN == msg.message && VK_F2 == LOWORD(msg.wParam)) {
g_repeatEnd = g_currentPos;
}
if (WM_KEYDOWN == msg.message && VK_RETURN == LOWORD(msg.wParam)) {
g_repeatStart = 0;
g_repeatEnd = LONG_MAX;
}
}
IntroLoop((long)(g_currentTime*44100.0));
UpdateTitle();
if (g_currentPos > g_repeatEnd) {
BASS_ChannelSetPosition(g_stream, g_repeatStart, BASS_POS_BYTE);
}
BASS_Update(0);
}
BASS_StreamFree(g_stream);
BASS_Free();
WindowClose();
return 0;
}
/* ---------------------------------------------------------------------
* CbDropdownMButtonHook
* Button mouse click hook
* ---------------------------------------------------------------------
*/
static void
CbDropdownMButtonHook(void* w, int x, int y, int flags)
{
CUIWINDOW* win = (CUIWINDOW*) w;
COMBOBOXDATA* data = (COMBOBOXDATA*) win->InstData;
if ((flags & BUTTON1_CLICKED) || (flags & BUTTON1_DOUBLE_CLICKED))
{
int offsy = WindowGetVScrollPos(win);
int nochange = FALSE;
y += offsy;
WindowReleaseCapture();
if ((y != data->SelIndex) && (y < data->NumItems))
{
if (CbDropdownQueryChange(win, data))
{
data->SelIndex = y;
CbDropdownUpdate(win);
CbDropdownNotifyChange(win, data);
}
else
{
nochange = TRUE;
}
}
/* only execute clicked hook, if change was not rejected
by the application */
if (!nochange)
{
if (data->SelIndex != data->CtrlSelIndex)
{
if (ComboboxQueryChange(data->Ctrl, data))
{
data->CtrlSelIndex = data->SelIndex;
ComboboxNotifyChange(data->Ctrl, data);
}
}
data->CloseKey = KEY_SPACE;
WindowClose(win, IDOK);
}
}
else if (flags & BUTTON1_PRESSED)
{
data->MouseDown = TRUE;
WindowSetCapture(win);
}
else if ((flags & BUTTON1_RELEASED) && (data->MouseDown))
{
CUIRECT rc;
int nochange = FALSE;
WindowGetClientRect(win, &rc);
data->MouseDown = FALSE;
WindowReleaseCapture();
if ((x >= rc.X) && (x < (rc.X + rc.W)) &&
(y >= rc.Y) && (y < (rc.Y + rc.H)))
{
int offsy = WindowGetVScrollPos(win);
y += offsy;
if ((y != data->SelIndex) && (y < data->NumItems))
{
CbDropdownQueryChange(win, data);
data->SelIndex = y;
CbDropdownUpdate(win);
CbDropdownNotifyChange(win, data);
}
else
{
nochange = TRUE;
}
}
if (!nochange)
{
if (data->SelIndex != data->CtrlSelIndex)
{
if (ComboboxQueryChange(data->Ctrl, data))
{
data->CtrlSelIndex = data->SelIndex;
ComboboxNotifyChange(data->Ctrl, data);
}
}
data->CloseKey = KEY_SPACE;
WindowClose(win, IDOK);
}
}
}
/* ---------------------------------------------------------------------
* CbDropdownKeyHook
* Handle EVENT_KEY events
* ---------------------------------------------------------------------
*/
static int
CbDropdownKeyHook(void* w, int key)
{
CUIWINDOW* win = (CUIWINDOW*) w;
COMBOBOXDATA* data = (COMBOBOXDATA*) win->InstData;
CUIRECT rc;
if (!data) return FALSE;
if (win->IsEnabled)
{
switch(key)
{
case KEY_UP:
if ((data->SelIndex > 0) && CbDropdownQueryChange(win, data))
{
data->SelIndex--;
CbDropdownCalcPos(win);
CbDropdownUpdate(win);
CbDropdownNotifyChange(win, data);
}
return TRUE;
case KEY_DOWN:
if ((data->SelIndex < (data->NumItems - 1)) && CbDropdownQueryChange(win, data))
{
data->SelIndex++;
CbDropdownCalcPos(win);
CbDropdownUpdate(win);
CbDropdownNotifyChange(win, data);
}
return TRUE;
case KEY_PPAGE:
if ((data->SelIndex > 0) && CbDropdownQueryChange(win, data))
{
WindowGetClientRect(win, &rc);
data->SelIndex -= rc.H - 1;
if (data->SelIndex < 0)
{
data->SelIndex = 0;
}
CbDropdownCalcPos(win);
CbDropdownUpdate(win);
CbDropdownNotifyChange(win, data);
}
return TRUE;
case KEY_NPAGE:
if ((data->SelIndex < (data->NumItems - 1)) && CbDropdownQueryChange(win, data))
{
WindowGetClientRect(win, &rc);
data->SelIndex += rc.H - 1;
if (data->SelIndex >= (data->NumItems - 1))
{
data->SelIndex = (data->NumItems - 1);
}
CbDropdownCalcPos(win);
CbDropdownUpdate(win);
CbDropdownNotifyChange(win, data);
}
return TRUE;
case KEY_SPACE:
case KEY_RETURN:
if (data->SelIndex != data->CtrlSelIndex)
{
if (ComboboxQueryChange(data->Ctrl, data))
{
data->CtrlSelIndex = data->SelIndex;
ComboboxNotifyChange(data->Ctrl, data);
}
}
data->CloseKey = key;
WindowClose(win, IDOK);
return TRUE;
case KEY_LEFT:
case KEY_RIGHT:
case KEY_TAB:
case KEY_ESC:
data->CloseKey = key;
WindowClose(win, IDCANCEL);
return TRUE;
}
}
return FALSE;
}
EFFECTEXEC(frame,tags,PPTBase,EffectBase)
{
ULONG sig, rc, *args;
BOOL quit = FALSE, reallyrexx = FALSE;
FRAME *newframe = NULL, *with = NULL;
struct gFixRectMessage gfr = {0};
ULONG fc, wc;
struct Values *av;
D(bug(MYNAME": Exec()\n"));
/*
* Defaults
*/
v.ratio = 128;
v.method = Direct;
v.bounds.Top = v.bounds.Left = ~0;
v.bounds.Width = 200; v.bounds.Height = 100;
v.tile = FALSE;
if( av = GetOptions(MYNAME) ) {
v = *av;
}
/*
* Copy to local variables
*/
BGUIBase = PPTBase->lb_BGUI;
IntuitionBase = (struct IntuitionBase *)PPTBase->lb_Intuition;
DOSBase = PPTBase->lb_DOS;
SysBase = PPTBase->lb_Sys;
/*
* Parse AREXX message, which has to exist.
* BUG: If necessary, should wait for D&D from the main window.
* BUG: Should make sanity checks!
*/
args = (ULONG *) TagData( PPTX_RexxArgs, tags );
if( args ) {
/* WITH */
if( args[0] ) {
with = FindFrame( (ID) PEEKL(args[0]) );
if(!with) {
SetErrorMsg(frame,"Unknown frame ID for WITH parameter");
return NULL;
}
}
/* TOP */
if( args[1] ) {
gfr.y = (WORD) PEEKL(args[1]);
reallyrexx = TRUE;
}
/* LEFT */
if( args[2] ) {
gfr.x = (WORD) PEEKL(args[2]);
reallyrexx = TRUE;
}
/* METHOD */
if( args[3] ) {
int i;
for( i = 0; method_labels[i]; i++ ) {
if(stricmp( method_labels[i], (char *)args[3] ) == 0 ) {
v.method = i;
reallyrexx = TRUE;
break;
}
}
}
/* RATIO */
if( v.method == Mix ) {
if( args[4] ) {
v.ratio = PEEKL( args[4] );
} else {
SetErrorCode(frame,PERR_INVALIDARGS);
}
}
/* TILE */
if( args[5] ) {
v.tile = TRUE;
} else {
v.tile = FALSE;
}
} else {
SetErrorMsg(frame,"Image compositing can be used with Drag&Drop (or REXX) only");
return NULL;
}
/*
* Make some sanity checks
*/
if( frame->pix->width < with->pix->width ||
frame->pix->height < with->pix->height ) {
SetErrorMsg(frame,"You cannot composite a larger picture on a smaller one!");
return NULL;
}
fc = frame->pix->colorspace;
wc = with->pix->colorspace;
if( ! (wc == fc || (fc == CS_ARGB && wc == CS_RGB) || (fc == CS_RGB && wc == CS_ARGB ))) {
SetErrorMsg(frame, "Only images of the same color space can be composited");
return NULL;
}
gfr.dim.Left = 0;
gfr.dim.Top = 0;
gfr.dim.Height = with->pix->height;
gfr.dim.Width = with->pix->width;
/*
* Open window and start parsing
*/
if( reallyrexx == FALSE ) {
if( GimmeWindow(frame, with, PPTBase) ) {
ULONG sigmask, gimask = 0L;
GetAttr( WINDOW_SigMask, Win, &sigmask );
StartInput(frame, GINP_FIXED_RECT, (struct PPTMessage *) &gfr);
gimask = (1 << PPTBase->mport->mp_SigBit);
while( !quit ) {
sig = Wait( sigmask|gimask|SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_F );
if( sig & SIGBREAKF_CTRL_C ) {
D(bug("BREAK!\n"));
SetErrorCode( frame, PERR_BREAK );
quit = TRUE;
break;
}
if( sig & SIGBREAKF_CTRL_F ) {
WindowToFront(win);
ActivateWindow(win);
}
if( sig & gimask ) {
struct gFixRectMessage *pmsg;
if(pmsg = (struct gFixRectMessage *)GetMsg( PPTBase->mport )) {
if( pmsg->msg.code == PPTMSG_FIXED_RECT ) {
D(bug("User picked a point @ (%d,%d)\n",pmsg->x, pmsg->y));
gfr.x = pmsg->x; gfr.y = pmsg->y;
// SetGadgetAttrs( ( struct Gadget *)OKButton, win, NULL, GA_Disabled, FALSE );
}
ReplyMsg( (struct Message *)pmsg );
}
}
if( sig & sigmask ) {
while( (rc = HandleEvent( Win )) != WMHI_NOMORE ) {
ULONG t;
switch(rc) {
case GID_OK:
GetAttr( CYC_Active, Method, (ULONG *)&v.method );
GetAttr( SLIDER_Level, Ratio, &v.ratio );
/*
* Save the window attributes for later retrieval.
*/
GetAttr( WINDOW_Bounds, Win, (ULONG *) &v.bounds );
GetAttr( GA_Selected, Tile, &t );
StopInput( frame );
v.tile = (BOOL) t;
WindowClose(Win);
newframe = DoComposite( frame, with, &gfr, v.method,
(WORD) v.ratio, v.tile, PPTBase );
quit = TRUE;
break;
case GID_CANCEL:
quit = TRUE;
StopInput( frame );
break;
}
}
}
}
}
} else {
/* gfr is already set up */
newframe = DoComposite( frame, with, &gfr,
v.method, (WORD) v.ratio, v.tile,
PPTBase );
}
if(Win) DisposeObject(Win);
if( newframe ) {
PutOptions( MYNAME, &v, sizeof(struct Values) );
}
D(bug("Returning %08X...\n",newframe));
return newframe;
}
