/* ------------- sysmenu.c ------------ */

#include "dflat.h"

int SystemMenuProc(WINDOW wnd, MESSAGE msg, PARAM p1, PARAM p2)
{
	int mx, my;
	WINDOW wnd1;
	switch (msg)	{
		case CREATE_WINDOW:
			wnd->holdmenu = ActiveMenuBar;
			ActiveMenuBar = &SystemMenu;
			SystemMenu.PullDown[0].Selection = 0;
			break;
		case LEFT_BUTTON:
			wnd1 = GetParent(wnd);
			mx = (int) p1 - GetLeft(wnd1);
			my = (int) p2 - GetTop(wnd1);
			if (HitControlBox(wnd1, mx, my))
				return TRUE;
			break;
		case LB_CHOOSE:
			PostMessage(wnd, CLOSE_WINDOW, 0, 0);
			break;
		case DOUBLE_CLICK:
			if (p2 == GetTop(GetParent(wnd)))	{
				PostMessage(GetParent(wnd), msg, p1, p2);
				SendMessage(wnd, CLOSE_WINDOW, TRUE, 0);
			}
			return TRUE;
		case SHIFT_CHANGED:
			return TRUE;
		case CLOSE_WINDOW:
			ActiveMenuBar = wnd->holdmenu;
			break;
		default:
			break;
	}
	return DefaultWndProc(wnd, msg, p1, p2);
}

void BuildSystemMenu(WINDOW wnd)
{
	int lf = GetLeft(wnd)+1;
	int tp = GetTop(wnd)+1;
	int ht = MenuHeight(SystemMenu.PullDown[0].Selections);
	int wd = MenuWidth(SystemMenu.PullDown[0].Selections);
	WINDOW SystemMenuWnd;

	SystemMenu.PullDown[0].Selections[6].Accelerator = 
		(GetClass(wnd) == APPLICATION) ? ALT_F4 : CTRL_F4;

	if (lf+wd > SCREENWIDTH-1)
		lf = (SCREENWIDTH-1) - wd;
	if (tp+ht > SCREENHEIGHT-2)
		tp = (SCREENHEIGHT-2) - ht;

	SystemMenuWnd = CreateWindow(POPDOWNMENU, NULL,
					lf,	tp,	ht,	wd,	NULL, wnd, SystemMenuProc, 0);

#ifdef INCLUDE_RESTORE
	if (wnd->condition == ISRESTORED)
		DeactivateCommand(&SystemMenu, ID_SYSRESTORE);
	else
		ActivateCommand(&SystemMenu, ID_SYSRESTORE);
#endif

	if (TestAttribute(wnd, MOVEABLE)
#ifdef INCLUDE_MAXIMIZE
			&& wnd->condition != ISMAXIMIZED
#endif
				)
		ActivateCommand(&SystemMenu, ID_SYSMOVE);
	else
		DeactivateCommand(&SystemMenu, ID_SYSMOVE);

	if (wnd->condition != ISRESTORED ||	TestAttribute(wnd, SIZEABLE) == FALSE)
		DeactivateCommand(&SystemMenu, ID_SYSSIZE);
	else
		ActivateCommand(&SystemMenu, ID_SYSSIZE);

#ifdef INCLUDE_MINIMIZE
	if (wnd->condition == ISMINIMIZED || TestAttribute(wnd, MINMAXBOX) == FALSE)
		DeactivateCommand(&SystemMenu, ID_SYSMINIMIZE);
	else
		ActivateCommand(&SystemMenu, ID_SYSMINIMIZE);
#endif

#ifdef INCLUDE_MAXIMIZE
	if (wnd->condition != ISRESTORED ||	TestAttribute(wnd, MINMAXBOX) == FALSE)
		DeactivateCommand(&SystemMenu, ID_SYSMAXIMIZE);
	else
		ActivateCommand(&SystemMenu, ID_SYSMAXIMIZE);
#endif

	SendMessage(SystemMenuWnd, BUILD_SELECTIONS,
				(PARAM) &SystemMenu.PullDown[0], 0);
	SendMessage(SystemMenuWnd, SHOW_WINDOW, 0, 0);
}