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

  $Id$

  Edit ICON EA

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

  17 Jul 06 SHL Use Runtime_Error
  22 Mar 06 GKY Use QWL_USER
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat

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

#include <stdlib.h>
#include <string.h>
#include <share.h>

#define INCL_WIN
#define INCL_LONGLONG			// dircnrs.h

#include "fm3dll2.h"			// #define's for UM_*, control id's, etc.
#include "fm3dlg.h"
#include "errutil.h"			// Dos_Error...
#include "seticon.h"
#include "fm3dll.h"
#include "notebook.h"			// Data declaration(s)
#include "wrappers.h"			// xfsopen
#include "fortify.h"

#pragma data_seg(DATA2)

static PSZ pszSrcFile = __FILE__;

MRESULT EXPENTRY SetIconDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
  switch (msg) {
  case WM_INITDLG:
    WinSetWindowPtr(hwnd, QWL_USER, (PVOID) mp2);
    WinCheckButton(hwnd, SETICON_SPTR_ARROW, TRUE);
    break;

  case WM_CONTROL:
    return 0;

  case WM_COMMAND:
    switch (SHORT1FROMMP(mp1)) {
    case DID_OK:
      {
	CHAR *filename = WinQueryWindowPtr(hwnd, QWL_USER), *buff = NULL;
	ICONINFO icf;
	ULONG icid = SPTR_ARROW;
	INT x;
	HWND hwndDeskTop;
        FILE *fp;
        CHAR *moderb = "rb";

	hwndDeskTop = WinQueryDesktopWindow(WinQueryAnchorBlock(hwnd),
					    NULLHANDLE);
	memset(&icf, 0, sizeof(ICONINFO));
	icf.cb = sizeof(ICONINFO);
	icf.fFormat = ICON_DATA;
	if (filename && *filename) {
	  fp = xfsopen(filename, moderb, SH_DENYNO, pszSrcFile, __LINE__, FALSE);
	  if (!fp)
	    break;
	  else {
	    fseek(fp, 0, SEEK_END);
	    icf.cbIconData = ftell(fp);
	    fseek(fp, 0, SEEK_SET);
	    buff = xmalloc(icf.cbIconData, pszSrcFile, __LINE__);
	    if (!buff) {
	      fclose(fp);
	      break;
	    }
	    fread(buff, icf.cbIconData, 1, fp);
	    icf.pIconData = (PVOID) buff;
	    fclose(fp);
	  }
	}
	for (x = 1; x < 15; x++) {
	  if (WinQueryButtonCheckstate(hwnd, SETICON_FRAME + x)) {
	    icid = (ULONG) x;
	    break;
	  }
	}
	for (x = 18; x < 23; x++) {
	  if (WinQueryButtonCheckstate(hwnd, SETICON_FRAME + x)) {
	    icid = (ULONG) x;
	    break;
	  }
	}
	if (!WinSetSysPointerData(hwndDeskTop, icid,
				  (PICONINFO) ((filename && *filename) ?
					       &icf : NULL))) {
	  Win_Error(hwnd, hwnd, pszSrcFile, __LINE__, "WinSetSysPointerData");
	}
	free(buff);
      }
      WinDismissDlg(hwnd, 1);
      break;

    case IDM_HELP:
      if (hwndHelp)
	WinSendMsg(hwndHelp,
		   HM_DISPLAY_HELP,
		   MPFROM2SHORT(HELP_SETICON, 0), MPFROMSHORT(HM_RESOURCEID));
      break;

    case DID_CANCEL:
      WinDismissDlg(hwnd, 0);
      break;
    }
    return 0;
  }
  return WinDefDlgProc(hwnd, msg, mp1, mp2);
}

#pragma alloc_text(MENU,SetIconDlgProc)