/*******************************************
 * Original source :  GNUPLOT - win/wpause.c 
 * modified for Scilab 
 *******************************************
 * Copyright (C) 1992   Russell Lang
 *
 * Permission to use, copy, and distribute this software and its
 * documentation for any purpose with or without fee is hereby granted, 
 * provided that the above copyright notice appear in all copies and 
 * that both that copyright notice and this permission notice appear 
 * in supporting documentation.
 *
 * Permission to modify the software is granted, but not the right to
 * distribute the modified code.  Modifications are to be distributed 
 * as patches to released version.
 *  
 * This software is provided "as is" without express or implied warranty.
 * 
 *
 * AUTHORS
 *   Russell Lang
 * Changed for Scilab 
 *   Chancelier Jean-Philippe 
 */

/* PauseBox() */
/* MessageBox ALWAYS appears in the middle of the screen so instead */
/* we use this PauseBox so we can decide where it is to be placed */
#ifndef STRICT
#define STRICT
#endif
#include <windows.h>
#include <windowsx.h>
#include <string.h>
#include "wgnuplib.h"
#include "wresource.h"
#include "wcommon.h"

/* Pause Window */
EXPORT LRESULT CALLBACK WndPauseProc (HWND, UINT, WPARAM, LPARAM);
EXPORT LRESULT CALLBACK PauseButtonProc (HWND, UINT, WPARAM, LPARAM);

/* Create Pause Class */
/* called from PauseBox the first time a pause window is created */

void 
CreatePauseClass (LPPW lppw)
{
  WNDCLASS wndclass;

  wndclass.style = 0;
  wndclass.lpfnWndProc = (WNDPROC) WndPauseProc;
  wndclass.cbClsExtra = 0;
  wndclass.cbWndExtra = sizeof (void FAR *);
  wndclass.hInstance = lppw->hInstance;
  wndclass.hIcon = NULL;
  wndclass.hCursor = LoadCursor (NULL, IDC_ARROW);
  wndclass.hbrBackground = (HBRUSH) GetStockObject (WHITE_BRUSH);
  wndclass.lpszMenuName = NULL;
  wndclass.lpszClassName = szPauseClass;
  RegisterClass (&wndclass);
}

/* PauseBox */

EXPORT int WINAPI 
PauseBox (LPPW lppw)
{
  MSG msg;
  HDC hdc;
  int width, height;
  TEXTMETRIC tm;
  RECT rect;

  if (!lppw->hPrevInstance)
    CreatePauseClass (lppw);
  GetWindowRect (GetDesktopWindow (), &rect);
  if ((lppw->Origin.x == (int) CW_USEDEFAULT) || (lppw->Origin.x == 0))
    lppw->Origin.x = (rect.right + rect.left) / 2;
  if ((lppw->Origin.y == (int) CW_USEDEFAULT) || (lppw->Origin.y == 0))
    lppw->Origin.y = (rect.bottom + rect.top) / 2;

  hdc = GetDC (NULL);
  SelectFont (hdc, GetStockFont (SYSTEM_FIXED_FONT));
  GetTextMetrics (hdc, &tm);
  width = max (24, 4 + strlen (lppw->Message)) * tm.tmAveCharWidth;
  width = min (width, rect.right - rect.left);
  height = 28 * (tm.tmHeight + tm.tmExternalLeading) / 4;
  ReleaseDC (NULL, hdc);

  lppw->lpfnPauseButtonProc = (WNDPROC) MyGetProcAddress ("PauseButtonProc",
							  PauseButtonProc);
  lppw->hWndPause = CreateWindowEx (WS_EX_DLGMODALFRAME,
				    szPauseClass, lppw->Title,
				    WS_POPUPWINDOW | WS_CAPTION,
		    lppw->Origin.x - width / 2, lppw->Origin.y - height / 2,
				    width, height,
			     lppw->hWndParent, NULL, lppw->hInstance, lppw);
  ShowWindow (lppw->hWndPause, SW_SHOWNORMAL);
  BringWindowToTop (lppw->hWndPause);
  UpdateWindow (lppw->hWndPause);

  lppw->bPause = TRUE;
  lppw->bPauseCancel = IDCANCEL;
  while (lppw->bPause)
    while (PeekMessage (&msg, 0, 0, 0, PM_REMOVE))
      {
	/* wait until window closed */
	TranslateMessage (&msg);
	DispatchMessage (&msg);
      }
  DestroyWindow (lppw->hWndPause);
  return (lppw->bPauseCancel);
}

EXPORT LRESULT CALLBACK
WndPauseProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
  HDC hdc;
  PAINTSTRUCT ps;
  RECT rect;
  TEXTMETRIC tm;
  LPPW lppw;
  int cxChar, cyChar, middle;

  lppw = (LPPW) GetWindowLong (hwnd, 0);

  switch (message)
    {
    case WM_KEYDOWN:
      if (wParam == VK_RETURN)
	{
	  if (lppw->bDefOK)
	    SendMessage (hwnd, WM_COMMAND, IDOK, 0L);
	  else
	    SendMessage (hwnd, WM_COMMAND, IDCANCEL, 0L);
	}
      return (0);
    case WM_COMMAND:
      switch (LOWORD (wParam))
	{
	case IDCANCEL:
	case IDOK:
	  lppw->bPauseCancel = LOWORD (wParam);
	  lppw->bPause = FALSE;
	  break;
	}
      return (0);
    case WM_SETFOCUS:
      SetFocus (lppw->bDefOK ? lppw->hOK : lppw->hCancel);
      return (0);
    case WM_PAINT:
      {
	hdc = BeginPaint (hwnd, &ps);
	SelectFont (hdc, GetStockFont (SYSTEM_FIXED_FONT));
	SetTextAlign (hdc, TA_CENTER);
	GetClientRect (hwnd, &rect);
	TextOut (hdc, (rect.right + rect.left) / 2, (rect.bottom + rect.top) / 6,
		 lppw->Message, strlen (lppw->Message));
	EndPaint (hwnd, &ps);
	return 0;
      }
    case WM_CREATE:
      {
	HMENU sysmenu = GetSystemMenu (hwnd, FALSE);
	lppw = ((CREATESTRUCT FAR *) lParam)->lpCreateParams;
	SetWindowLong (hwnd, 0, (LONG) lppw);
	lppw->hWndPause = hwnd;
	hdc = GetDC (hwnd);
	SelectFont (hdc, GetStockFont (SYSTEM_FIXED_FONT));
	GetTextMetrics (hdc, &tm);
	cxChar = tm.tmAveCharWidth;
	cyChar = tm.tmHeight + tm.tmExternalLeading;
	ReleaseDC (hwnd, hdc);
	middle = ((LPCREATESTRUCT) lParam)->cx / 2;
	lppw->hOK = CreateWindow ((LPSTR) "button", (LPSTR) "OK",
				  WS_CHILD | WS_VISIBLE | BS_DEFPUSHBUTTON,
				  middle - 10 * cxChar, 3 * cyChar,
				  8 * cxChar, 7 * cyChar / 4,
				  hwnd, (HMENU) IDOK,
				((LPCREATESTRUCT) lParam)->hInstance, NULL);
	lppw->bDefOK = TRUE;
	lppw->hCancel = CreateWindow ((LPSTR) "button", (LPSTR) "Cancel",
				      WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,
				      middle + 2 * cxChar, 3 * cyChar,
				      8 * cxChar, 7 * cyChar / 4,
				      hwnd, (HMENU) IDCANCEL,
				((LPCREATESTRUCT) lParam)->hInstance, NULL);
	lppw->lpfnOK = (WNDPROC) GetWindowLong (lppw->hOK, GWL_WNDPROC);
	SetWindowLong (lppw->hOK, GWL_WNDPROC, (LONG) lppw->lpfnPauseButtonProc);
	lppw->lpfnCancel = (WNDPROC) GetWindowLong (lppw->hCancel, GWL_WNDPROC);
	SetWindowLong (lppw->hCancel, GWL_WNDPROC, (LONG) lppw->lpfnPauseButtonProc);
	if (GetParent (hwnd))
	  EnableWindow (GetParent (hwnd), FALSE);
	DeleteMenu (sysmenu, SC_RESTORE, MF_BYCOMMAND);
	DeleteMenu (sysmenu, SC_SIZE, MF_BYCOMMAND);
	DeleteMenu (sysmenu, SC_MINIMIZE, MF_BYCOMMAND);
	DeleteMenu (sysmenu, SC_MAXIMIZE, MF_BYCOMMAND);
	DeleteMenu (sysmenu, SC_TASKLIST, MF_BYCOMMAND);
	DeleteMenu (sysmenu, 0, MF_BYCOMMAND);	/* a separator */
	DeleteMenu (sysmenu, 0, MF_BYCOMMAND);	/* a separator */
      }
      return 0;
    case WM_DESTROY:
      GetWindowRect (hwnd, &rect);
      lppw->Origin.x = (rect.right + rect.left) / 2;
      lppw->Origin.y = (rect.bottom + rect.top) / 2;
      lppw->bPause = FALSE;
      if (GetParent (hwnd))
	EnableWindow (GetParent (hwnd), TRUE);
      break;
    }
  return DefWindowProc (hwnd, message, wParam, lParam);
}


EXPORT LRESULT CALLBACK
PauseButtonProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
  LPPW lppw;
  LONG n = GetWindowLong (hwnd, GWL_ID);
  lppw = (LPPW) GetWindowLong (GetParent (hwnd), 0);
  switch (message)
    {
    case WM_KEYDOWN:
      switch (wParam)
	{
	case VK_TAB:
	case VK_BACK:
	case VK_LEFT:
	case VK_RIGHT:
	case VK_UP:
	case VK_DOWN:
	  lppw->bDefOK = !(n == IDOK);
	  if (lppw->bDefOK)
	    {
	      SendMessage (lppw->hOK, BM_SETSTYLE, (WPARAM) BS_DEFPUSHBUTTON, (LPARAM) TRUE);
	      SendMessage (lppw->hCancel, BM_SETSTYLE, (WPARAM) BS_PUSHBUTTON, (LPARAM) TRUE);
	      SetFocus (lppw->hOK);
	    }
	  else
	    {
	      SendMessage (lppw->hOK, BM_SETSTYLE, (WPARAM) BS_PUSHBUTTON, (LPARAM) TRUE);
	      SendMessage (lppw->hCancel, BM_SETSTYLE, (WPARAM) BS_DEFPUSHBUTTON, (LPARAM) TRUE);
	      SetFocus (lppw->hCancel);
	    }
	  break;
	default:
	  SendMessage (GetParent (hwnd), message, wParam, lParam);
	}
      break;
    }
  return CallWindowProc (((n == IDOK) ? lppw->lpfnOK : lppw->lpfnCancel),
			 hwnd, message, wParam, lParam);
}