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

  $Id: codepage.c 907 2008-01-06 07:26:17Z stevenhl $

  Select code page

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

  14 Jul 06 SHL Use Runtime_Error
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat

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

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

#define INCL_DOS
#define INCL_WIN
#define INCL_LONGLONG			// dircnrs.h

#include "fm3dlg.h"
#include "fm3str.h"
#include "strutil.h"			// GetPString
#include "errutil.h"			// Runtime_Error
#include "fm3dll.h"

#pragma data_seg(DATA1)

static PSZ pszSrcFile = __FILE__;

MRESULT EXPENTRY PickCodePageDlgBox(HWND hwnd, ULONG msg, MPARAM mp1,
				    MPARAM mp2)
{

  SHORT sSelect;

  switch (msg) {
  case WM_INITDLG:
    WinShowWindow(WinWindowFromID(hwnd, PICK_SAVEPOS), FALSE);
    {
      ULONG cp;
      char *p;

      cp = WinQueryCp(WinQueryWindowULong(hwnd, QWL_HMQ));
      for (sSelect = 0;
	   (p = GetPString(IDS_CODEPAGES1 + sSelect)) != NULL; sSelect++) {
	if (!strcmp(p, "0"))
	  break;
	WinSendDlgItemMsg(hwnd,
			  PICK_LISTBOX,
			  LM_INSERTITEM, MPFROMSHORT(LIT_END), MPFROMP(p));
	if (atoi(p) == cp) {
	  WinSendDlgItemMsg(hwnd,
			    PICK_LISTBOX,
			    LM_SETTOPINDEX, MPFROM2SHORT(sSelect, 0), MPVOID);
	  WinSendDlgItemMsg(hwnd,
			    PICK_LISTBOX,
			    LM_SELECTITEM,
			    MPFROM2SHORT(sSelect, 0), MPFROMSHORT(TRUE));
	}
      }
    }
    WinSendDlgItemMsg(hwnd,
		      PICK_INPUT,
		      EM_SETTEXTLIMIT, MPFROM2SHORT(256, 0), MPVOID);
    WinSetWindowText(hwnd, GetPString(IDS_PICKCODEPAGETEXT));
    PostMsg(hwnd, UM_STRETCH, MPVOID, MPVOID);
    break;

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

      WinQueryWindowPos(hwnd, &swp);
      if (!(swp.fl & (SWP_HIDE | SWP_MINIMIZE)) &&
	  (swp.x != SHORT1FROMMP(mp1) || swp.cx != SHORT2FROMMP(mp1) ||
	   swp.y != SHORT1FROMMP(mp2) || swp.cy != SHORT2FROMMP(mp2))) {
	szbx = SysVal(SV_CXSIZEBORDER);
	szby = SysVal(SV_CYSIZEBORDER);
	titl = SysVal(SV_CYTITLEBAR);
	WinQueryWindowPos(WinWindowFromID(hwnd, PICK_LISTBOX), &swpL);
	WinQueryWindowPos(WinWindowFromID(hwnd, PICK_INPUT), &swpE);
	WinSetWindowPos(WinWindowFromID(hwnd, PICK_LISTBOX), HWND_TOP,
			szbx,
			swpL.y,
			swp.cx - (szbx * 2L),
			((((swp.cy - swpL.y) - swpE.cy) - 8) - titl) -
			(szby * 2L), SWP_MOVE | SWP_SIZE);
	WinSetWindowPos(WinWindowFromID(hwnd, PICK_INPUT), HWND_TOP,
			szbx + 2,
			swpL.y + (((((swp.cy - swpL.y) - swpE.cy) - 8) -
				   titl) - (szby * 2L)) + 4,
			0L, 0L, SWP_MOVE);
	WinInvalidateRect(WinWindowFromID(hwnd, PICK_INPUT), NULL, FALSE);
      }
    }
    return 0;

  case WM_ADJUSTWINDOWPOS:
    {
      SWP swp;

      WinQueryWindowPos(hwnd, &swp);
      PostMsg(hwnd,
	      UM_STRETCH,
	      MPFROM2SHORT((SHORT) swp.x, (SHORT) swp.cx),
	      MPFROM2SHORT((SHORT) swp.y, (SHORT) swp.cy));
    }
    break;

  case WM_CONTROL:
    switch (SHORT1FROMMP(mp1)) {
    case PICK_LISTBOX:
      switch (SHORT2FROMMP(mp1)) {
      case LN_SELECT:
	sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
					     PICK_LISTBOX,
					     LM_QUERYSELECTION,
					     MPFROMSHORT(LIT_FIRST), MPVOID);
	if (sSelect >= 0)
	  WinSetDlgItemText(hwnd,
			    PICK_INPUT, GetPString(IDS_CODEPAGES1 + sSelect));
	break;
      case LN_ENTER:
	PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
	break;
      }
      break;
    }
    return 0;

  case WM_COMMAND:
    switch (SHORT1FROMMP(mp1)) {
    case DID_OK:
      {
	INT x;
	CHAR s[257], *p;

	*s = 0;
	WinQueryDlgItemText(hwnd, PICK_INPUT, 257, s);
	if (!*s)
	  Runtime_Error(pszSrcFile, __LINE__, "no input");
	else {
	  for (x = 0; (p = GetPString(IDS_CODEPAGES1 + x)) != NULL; x++) {
	    if (!stricmp(s, p)) {
	      WinDismissDlg(hwnd, atoi(p));
	      break;
	    }
	  }
	}
      }
      break;

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

    case PICK_SAVEPOS:
      break;

    case DID_CANCEL:
      WinDismissDlg(hwnd, 0);
      break;
    }
    return 0;

  case WM_CLOSE:
    return 0;
  }
  return WinDefDlgProc(hwnd, msg, mp1, mp2);
}

INT PickCodepage(HWND hwnd)
{

  INT cp;

  cp = (INT) WinDlgBox(HWND_DESKTOP,
		       hwnd,
		       PickCodePageDlgBox, FM3ModHandle, PICK_FRAME, MPVOID);
  if (cp > 0) {

    HMQ hmq;
    ULONG cps[50], len, x;

/*
    numcps = WinQueryCpList(WinQueryAnchorBlock(hwnd),50,cps);
    if(numcps) {
      for(x = 0;x < numcps;x++) {
        if(cps[x] == (ULONG)cp) {
          hmq = WinQueryWindowULong(hwnd,QWL_HMQ);
          WinSetCp(hmq,cp);
          break;
        }
      }
    }
*/
    if (cp == 1004) {
      hmq = WinQueryWindowULong(hwnd, QWL_HMQ);
      WinSetCp(hmq, cp);
    }
    else if (!DosQueryCp(sizeof(cps), cps, &len)) {
      for (x = 0; x < len / sizeof(ULONG); x++) {
	if (cps[x] == (ULONG) cp) {
	  hmq = WinQueryWindowULong(hwnd, QWL_HMQ);
	  WinSetCp(hmq, cp);
	  break;
	}
      }
    }
    DosSetProcessCp(cp);
  }
  else
    cp = -1;
  return cp;
}

#pragma alloc_text(FMCODEPAGE,PickCodePageDlgBox,PickCodepage)