class midi_in : public Withmidi_inLayout<TopWindow>
{};

GUI_APP_MAIN
{
	midi_in inApp;
	// "lpGot" is just a dummy:
	LPARAM lpGot;
			
	for(;;)
		switch(inApp.Execute())
		{
		// for this I need the LPARAM and WPARAM:
		case MM_MIM_DATA:
			inApp.getMidiInData(lpGot);			
			break;
		case WM_KEYDOWN:
			PromptOK(t_("Want to quit proggy?"));
			return;
		}
	
	inApp.Run();
}

	virtual LRESULT Ctrl::WindowProc(UINT message, WPARAM wParam, LPARAM lParam);

LRESULT midi_in::WindowProc(
	UINT message, WPARAM wParam, LPARAM lParam)
{
	switch(message)
	{
	case MM_MIM_DATA:
		getMidiInData(lParam);			
		break;
	case WM_KEYDOWN:
		if (wParam==27) 
			if (PromptYesNo("Want to quit proggy?"))
			{	Ctrl::ExitWin32();
			}
		return 0;
	}
	
	return Ctrl::WindowProc(message, wParam, lParam);
}

void TopWindow::ActiveFocus0(Ctrl& ctrl)
void TopWindow::Activate()

void TopWindow::ChildGotFocus()

GUI_APP_MAIN
{
	midi_in inApp;
	///// not this:
	// inApp.Run();
	///// but this:
	TopWindow().Run();
}