/**************/
/*  mittak.c  */
/****************************************************************************
  PROGRAM: mittak.c
  Windows: Win 3.1 (& WIN32 ?)
  PURPOSE: Vaihtaa matkoja ....
  Editor:  Vesa Lappalainen 31.7.1994
  PROJECT:
	 mittak.c
	 mittak.def
	 ALI\tabhand.c
	 ALI\mdialog.c

****************************************************************************/
#include <windowsx.h>
#include <stdio.h>
#include "tabhand.h"
#include "mittak.h"

/***************************************************************************/
TblDlgMAIN(NULL,"MITTAK",MsgTbl);
/***************************************************************************/

static EVENT WM_command_IDC_MAP__EN_CHANGE(tMSGParam *msg)
{
  double scale = 1,map,out;
  char s[50];
  GetDlgItemText(msg->hWnd,IDC_SCALE,s,sizeof(s));
  sscanf(s,"%lf",&scale); /* 0 ???? */

  GetDlgItemText(msg->hWnd,IDC_MAP,s,sizeof(s));
  sscanf(s,"%lf",&map); /* 0 ???? */

  out = scale * map / ( 1000.0 * 1000.0 );

  sprintf(s,"%lg",out);

  SetDlgItemText(msg->hWnd,IDC_OUT,s);

  return 0;
}

static EVENT WM_close(tMSGParam *msg)
{
#pragma argsused
  PostQuitMessage(0);
  return NULL;
}

/***************************************************************************/
/* Viestien käsittelytaulukko                                              */
/***************************************************************************/
tMSGEntry MsgTbl[] = {
  EV_HANDLE_WM_DESTROY,
  { WM_COMMAND , IDC_SCALE , EN_CHANGE , WM_command_IDC_MAP__EN_CHANGE },
  { WM_COMMAND , IDC_MAP , EN_CHANGE , WM_command_IDC_MAP__EN_CHANGE }, /*a*/
  { WM_CLOSE , DoC , DoC , WM_close }, /*a*/
  { 0 }
};
/***************************************************************************/