/***********************************************************************

  $Id$

  Notifications

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2006 Steven H.Levine

  17 Jul 06 SHL Use Win_Error
  22 Jul 06 SHL Check more run time errors
  30 Mar 07 GKY Remove GetPString for window class names
  06 Aug 07 GKY Reduce DosSleep times (ticket 148)
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat


***********************************************************************/

#define INCL_DOS
#define INCL_WIN
#define INCL_GPI
#include <os2.h>

#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <time.h>
#include <stddef.h>
#include <process.h>			// _beginthread

#include "fm3dll.h"
#include "fm3dlg.h"
#include "fm3str.h"

#pragma data_seg(DATA1)

static PSZ pszSrcFile = __FILE__;

static HWND hwndNotify;

MRESULT EXPENTRY NotifyWndProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
  static ULONG showing = 0;

  switch (msg) {
  case WM_CREATE:
    showing++;
    {
      MRESULT rc;

      rc = PFNWPStatic(hwnd, msg, mp1, mp2);
      if (!WinStartTimer(WinQueryAnchorBlock(hwnd), hwnd, ID_TIMER2, 5000)) {
	Win_Error(hwnd, hwnd, pszSrcFile, __LINE__, "WinStartTimer");
	WinDestroyWindow(hwnd);
      }
      else {

	RGB2 rgb2F, rgb2;

	memset(&rgb2F, 0, sizeof(RGB2));
	rgb2F.bRed = (BYTE)65;
	rgb2.bRed = rgb2.bGreen = rgb2.bBlue = (BYTE)255;
	rgb2.fcOptions = 0;
	SetPresParams(hwnd, &rgb2, &rgb2F, &rgb2, GetPString(IDS_8HELVTEXT));
	if (hwndMain) {
	  if (hwndStatus)
	    WinShowWindow(hwndStatus, FALSE);
	  if (hwndStatus2)
	    WinShowWindow(hwndStatus2, FALSE);
	}
	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
      }
      return rc;
    }

  case UM_SETUP:
    WinSetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, SWP_ZORDER | SWP_SHOW);
    WinInvalidateRect(hwnd, NULL, FALSE);
    return 0;

  case WM_SETFOCUS:
    if (mp2)
      PostMsg(hwnd, UM_REPLACEFOCUS, mp1, MPVOID);
    break;

  case UM_REPLACEFOCUS:
    if (mp1)
      WinSetFocus(HWND_DESKTOP, (HWND) mp1);
    PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
    return 0;

  case WM_PAINT:
    {
      MRESULT mr;
      HPS hps;
      SWP swp;
      POINTL ptl;

      mr = PFNWPStatic(hwnd, msg, mp1, mp2);
      hps = WinGetPS(hwnd);
      if (hps) {
	if (WinQueryWindowPos(hwnd, &swp)) {
	  ptl.x = 0;
	  ptl.y = 0;
	  GpiMove(hps, &ptl);
	  GpiSetColor(hps, CLR_RED);
	  ptl.x = swp.cx - 1;
	  ptl.y = swp.cy - 1;
	  GpiBox(hps, DRO_OUTLINE, &ptl, 2, 2);
	}
	WinReleasePS(hwnd);
      }
      return mr;
    }

  case WM_BUTTON1DOWN:
  case WM_BUTTON2DOWN:
  case WM_BUTTON3DOWN:
  case WM_TIMER:
  case WM_CLOSE:
    WinStopTimer(WinQueryAnchorBlock(hwnd), hwnd, ID_TIMER2);
    WinDestroyWindow(hwnd);
    return 0;

  case WM_DESTROY:
    showing--;
    if (!showing && hwndMain) {
      if (hwndStatus)
	WinShowWindow(hwndStatus, TRUE);
      if (hwndStatus2)
	WinShowWindow(hwndStatus2, TRUE);
    }
    break;
  }
  return PFNWPStatic(hwnd, msg, mp1, mp2);
}

HWND DoNotify(char *str)
{
  char *p;
  HWND hwnd = (HWND) 0, hwndP;
  LONG x, y, cx, cy;
  SWP swp, swpS, swpS2;
  static USHORT id = NOTE_FRAME;

  if (str && *str) {
    /* figure out what size the window should be and where it should be */
    hwndP = (hwndMain) ? WinQueryWindow(hwndMain, QW_PARENT) : HWND_DESKTOP;
    WinQueryWindowPos(hwndP, &swp);
    if (hwndStatus)
      WinQueryWindowPos(hwndStatus, &swpS);
    if (hwndStatus2)
      WinQueryWindowPos(hwndStatus2, &swpS2);
    x = (hwndMain) ? ((hwndStatus) ? swpS.x - 1 :
		      WinQuerySysValue(HWND_DESKTOP, SV_CXSIZEBORDER)) : 0;
    y = (hwndMain) ? ((hwndStatus) ? swpS.y - 1 :
		      WinQuerySysValue(HWND_DESKTOP, SV_CYSIZEBORDER)) : 0;
    if (hwndMain && hwndStatus) {
      if (hwndStatus2)
	cx = swpS2.cx + swpS.cx + 8;
      else
	cx = swpS.cx + 6;
    }
    else
      cx = (swp.cx - ((x * 2) + 4));
    cy = (hwndMain) ? ((hwndStatus) ? swpS.cy + 2 : 28) : 28;

    /* pretty-up the note by putting on a leading space */
    if (*str != ' ') {
      p = xmalloc(strlen(str) + 2, pszSrcFile, __LINE__);
      if (!p)
	p = str;
      else {
	strcpy(p + 1, str);
	*p = ' ';
      }
    }
    else
      p = str;

    hwnd = WinCreateWindow(hwndP,
			   WC_ERRORWND,
			   p,
			   SS_TEXT | DT_LEFT | DT_VCENTER | WS_VISIBLE,
			   x, y, cx, cy, hwndP, HWND_TOP, id++, NULL, NULL);
    if (!hwndP)
      Win_Error2(hwndP, hwndP, pszSrcFile, __LINE__, IDS_WINCREATEWINDOW);

    if (p != str)
      free(p);
    if (id > NOTE_MAX)
      id = NOTE_FRAME;
  }

  AddNote(str);

  return hwnd;
}

HWND Notify(char *str)
{
  return (HWND) WinSendMsg(MainObjectHwnd, UM_NOTIFY, MPFROMP(str), MPVOID);
}

VOID NotifyError(CHAR * filename, APIRET status)
{
  CHAR errortext[512];

  if (!filename)
    return;
  sprintf(errortext, GetPString(IDS_ERRORACCESSTEXT), status, filename);
  if (toupper(*filename) > 'B') {
    if (status == 21)
      strcat(errortext, GetPString(IDS_EMPTYREMOVETEXT));
    else if (status == 27)
      strcat(errortext, GetPString(IDS_CDMUSICTEXT));
    else if (status == 19)
      strcat(errortext, GetPString(IDS_WRITEPROTECTTEXT));
    else if (status == 108)
      strcat(errortext, GetPString(IDS_DRIVELOCKEDTEXT));
  }
  else {
    if (status == 21)
      strcat(errortext, GetPString(IDS_EMPTYFLOPPYTEXT));
    else if (status == 27)
      strcat(errortext, GetPString(IDS_UNFORMATEDTEXT));
    else if (status == 107)
      sprintf(&errortext[strlen(errortext)],
	      GetPString(IDS_PHANTOMTEXT), toupper(*filename));
    else if (status == 19)
      strcat(errortext, GetPString(IDS_DISKWRITEPROTEXTTEXT));
    else if (status == 108)
      strcat(errortext, GetPString(IDS_DISKLOCKEDTEXT));
  }
  DosBeep(250, 10);
  DosBeep(500, 10);
  DosBeep(250, 10);
  DosBeep(500, 10);
  Notify(errortext);
}

MRESULT EXPENTRY NoteWndProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
  static HPOINTER hptrIcon = (HPOINTER) 0;

  switch (msg) {
  case WM_INITDLG:
    if (hwndNotify != (HWND) 0) {
      if (mp2) {
	WinSendDlgItemMsg(hwndNotify,
			  NOTE_LISTBOX,
			  LM_INSERTITEM, MPFROM2SHORT(LIT_END, 0), mp2);
	PostMsg(hwndNotify, UM_NOTIFY, MPVOID, MPVOID);
	free((CHAR *) mp2);
      }
      WinDismissDlg(hwnd, 0);
      break;
    }
    hwndNotify = hwnd;
    fThreadNotes = FALSE;
    {
      BOOL dummy = TRUE;

      PrfWriteProfileData(fmprof,
			  FM3Str, "ThreadNotes", &dummy, sizeof(BOOL));
    }
    if (mp2) {
      WinSendDlgItemMsg(hwnd,
			NOTE_LISTBOX,
			LM_INSERTITEM, MPFROM2SHORT(LIT_END, 0), mp2);
      free((CHAR *) mp2);
    }
    {
      HWND hwndActive;

      hwndActive = WinQueryActiveWindow(HWND_DESKTOP);
      PostMsg(hwnd, UM_FOCUSME, MPFROMLONG(hwndActive), MPVOID);
    }
    hptrIcon = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, NOTE_FRAME);
    if (hptrIcon)
      WinDefDlgProc(hwnd, WM_SETICON, MPFROMLONG(hptrIcon), MPFROMLONG(0L));
    break;

  case UM_FOCUSME:
    {
      ULONG size = sizeof(SWP),
	fl = SWP_ZORDER | SWP_FOCUSDEACTIVATE | SWP_SHOW;
      SWP swp;

      if (PrfQueryProfileData(fmprof,
			      FM3Str, "NoteWndSwp", (PVOID) & swp, &size)) {
	if (swp.fl & (SWP_HIDE | SWP_MINIMIZE)) {
	  fl |= SWP_MINIMIZE;
	  fl &= (~SWP_SHOW);
	}
	else
	  fl |= (SWP_MOVE | SWP_SIZE);
      }
      WinSetWindowPos(hwnd, HWND_BOTTOM, swp.x, swp.y, swp.cx, swp.cy, fl);
      if (fl & SWP_MINIMIZE) {
	WinSetWindowUShort(hwnd, QWS_XRESTORE, (USHORT) swp.x);
	WinSetWindowUShort(hwnd, QWS_CXRESTORE, (USHORT) swp.cx);
	WinSetWindowUShort(hwnd, QWS_YRESTORE, (USHORT) swp.y);
	WinSetWindowUShort(hwnd, QWS_CYRESTORE, (USHORT) swp.cy);
      }
    }
    if (mp1)
      WinSetActiveWindow(HWND_DESKTOP, (HWND) mp1);
    return 0;

  case UM_STRETCH:
    {
      SWP swp;
      LONG titl, szbx, szby;

      WinQueryWindowPos(hwnd, &swp);
      if (!(swp.fl & (SWP_MINIMIZE | SWP_HIDE))) {
	szbx = SysVal(SV_CXSIZEBORDER);
	szby = SysVal(SV_CYSIZEBORDER);
	titl = SysVal(SV_CYTITLEBAR);
	WinSetWindowPos(WinWindowFromID(hwnd, NOTE_LISTBOX),
			HWND_TOP,
			szbx,
			szby,
			swp.cx - (szbx * 2L),
			(swp.cy - titl) - (szby * 2L), SWP_MOVE | SWP_SIZE);
      }
      if (!(swp.fl & SWP_MAXIMIZE)) {
	if (swp.fl & (SWP_MINIMIZE | SWP_HIDE)) {
	  swp.x = WinQueryWindowUShort(hwnd, QWS_XRESTORE);
	  swp.y = WinQueryWindowUShort(hwnd, QWS_YRESTORE);
	  swp.cx = WinQueryWindowUShort(hwnd, QWS_CXRESTORE);
	  swp.cy = WinQueryWindowUShort(hwnd, QWS_CYRESTORE);
	}
	PrfWriteProfileData(fmprof,
			    FM3Str, "NoteWndSwp", (PVOID) & swp, sizeof(SWP));
      }
    }
    return 0;

  case WM_ADJUSTWINDOWPOS:
    PostMsg(hwnd, UM_STRETCH, MPVOID, MPVOID);
    break;

  case UM_CONTAINER_FILLED:
    {
      SHORT x, y;

      x = (SHORT) WinSendDlgItemMsg(hwnd,
				    NOTE_LISTBOX,
				    LM_QUERYITEMCOUNT, MPVOID, MPVOID);
      if (x > 60) {
	for (y = 0; y < x - 50; y++)
	  WinSendDlgItemMsg(hwnd,
			    NOTE_LISTBOX,
			    LM_DELETEITEM, MPFROMSHORT(y), MPVOID);
      }
    }
    return 0;

  case UM_NOTIFY:
    {
      SHORT x;

      x = (SHORT) WinSendDlgItemMsg(hwnd,
				    NOTE_LISTBOX,
				    LM_QUERYITEMCOUNT, MPVOID, MPVOID);
      if (x > 0)
	WinSendDlgItemMsg(hwnd,
			  NOTE_LISTBOX,
			  LM_SETTOPINDEX, MPFROMSHORT(x), MPVOID);
    }
    return 0;

  case UM_SHOWME:
    WinSetWindowPos(hwnd,
		    HWND_TOP,
		    0,
		    0,
		    0, 0, SWP_SHOW | SWP_RESTORE | SWP_ZORDER | SWP_ACTIVATE);
    return 0;

  case WM_COMMAND:
    return 0;

  case WM_CLOSE:
    WinDismissDlg(hwnd, 0);
    return 0;

  case WM_DESTROY:
    if (hwndNotify == hwnd) {
      fThreadNotes = FALSE;
      PrfWriteProfileData(fmprof,
			  FM3Str, "ThreadNotes", &fThreadNotes, sizeof(BOOL));
      hwndNotify = (HWND) 0;
    }
    if (hptrIcon)
      WinDestroyPointer(hptrIcon);
    if (!PostMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID))
      WinSendMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID);
    break;
  }
  return WinDefDlgProc(hwnd, msg, mp1, mp2);
}

static VOID NoteThread(VOID * args)
{
  HAB hab2;
  HMQ hmq2;

  hab2 = WinInitialize(0);
  if (hab2) {
    hmq2 = WinCreateMsgQueue(hab2, 0);
    if (hmq2) {
      if (!hwndNotify)
	WinDlgBox(HWND_DESKTOP,
		  HWND_DESKTOP,
		  NoteWndProc, FM3ModHandle, NOTE_FRAME, (CHAR *) args);
      WinDestroyMsgQueue(hmq2);
    }
    WinTerminate(hab2);
  }
}

VOID StartNotes(CHAR * note)
{
  if (!hwndNotify) {
    if (_beginthread(NoteThread, NULL, 65536, (PVOID) note) == -1)
      Runtime_Error(pszSrcFile, __LINE__,
		    GetPString(IDS_COULDNTSTARTTHREADTEXT));
  }
}

BOOL AddNote(CHAR * note)
{
  CHAR *s, *p;
  BOOL once = FALSE, ret = FALSE;

  if ((fThreadNotes || hwndNotify) && note && *note) {
    p = note;
    while (*p == ' ')
      p++;
    if (*p) {
      if (!hwndNotify) {
	fThreadNotes = FALSE;
	StartNotes(NULL);
	if (!hwndNotify)
	  DosSleep(16);//05 Aug 07 GKY 33
	if (!hwndNotify)
	  DosSleep(16);//05 Aug 07 GKY 33
	if (!hwndNotify)
	  DosSleep(16);//05 Aug 07 GKY 33
      }
      if (hwndNotify) {
	s = xmalloc(strlen(p) + 14, pszSrcFile, __LINE__);
	if (s) {
	  sprintf(s, "%08lx  %s", _threadid, p);
	  while (!once) {
	    if ((SHORT) WinSendDlgItemMsg(hwndNotify,
					  NOTE_LISTBOX,
					  LM_INSERTITEM,
					  MPFROM2SHORT(LIT_END, 0),
					  MPFROMP(s)) >= 0) {
	      ret = TRUE;
	      PostMsg(hwndNotify, UM_NOTIFY, MPVOID, MPVOID);
	      break;
	    }
	    PostMsg(hwndNotify, UM_CONTAINER_FILLED, MPVOID, MPVOID);
	    once = TRUE;
	  }
	}
	free(s);
      }
    }
  }
  return ret;
}

VOID EndNote(VOID)
{
  if (hwndNotify)
    if (!PostMsg(hwndNotify, WM_CLOSE, MPVOID, MPVOID))
      WinSendMsg(hwndNotify, WM_CLOSE, MPVOID, MPVOID);
}

VOID ShowNote(VOID)
{
  if (!hwndNotify)
    StartNotes(NULL);
  if (!hwndNotify)
    DosSleep(16);//05 Aug 07 GKY 33
  if (!hwndNotify)
    DosSleep(16);//05 Aug 07 GKY 33
  if (!hwndNotify)
    DosSleep(16);//05 Aug 07 GKY 33
  if (hwndNotify)
    PostMsg(hwndNotify, UM_SHOWME, MPVOID, MPVOID);
}

VOID HideNote(VOID)
{
  if (hwndNotify)
    WinSetWindowPos(hwndNotify,
		    HWND_BOTTOM,
		    0,
		    0, 0, 0, SWP_MINIMIZE | SWP_ZORDER | SWP_FOCUSDEACTIVATE);
}

#pragma alloc_text(NOTIFY,Notify,NotifyWndProc,StartNotify)
#pragma alloc_text(NOTIFY,NotifyThread,NotifyError)
#pragma alloc_text(NOTIFY2,AddNote,NoteThread,NoteWndProc)
#pragma alloc_text(NOTIFY3,StartNotes,EndNote,HideNote,ShowNote)