/**************/
/* palindro.c */
/*****************************************************************************
  PROGRAM: palindro.c
  Windows: Win 3.1 & WIN32
  PURPOSE: Testataan palindormi-DLL:ää
  Editor:  Vesa Lappalainen 30.10.1994
  PROJECT: palindro.c, palindro.rc, pali.lib,
           ALI\def.def, ALI\tabhand.c, ALI\mdialog.c

*****************************************************************************/
#include <windowsx.h>
#include "tabhand.h"
#include "palindro.rh"
#include "pali.h"

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

static char s[80];

static EVENT WM_command_ID_SANA__EN_CHANGE(tMSGParam *msg)
{
  GetDlgItemText(msg->hWnd,ID_SANA,s,sizeof(s));
  if ( Palindromi(s) )
    SetDlgItemText(msg->hWnd,ID_PALI,"On palindromi");
  else
    SetDlgItemText(msg->hWnd,ID_PALI,"Ei ole palindromi");

  return 0;
}

/****************************************************************************/
/* Viestien käsittelytaulukko                                               */
/****************************************************************************/
tMSGEntry MsgTbl[] = {
  EV_HANDLE_WM_CLOSE,
  { WM_COMMAND , ID_SANA , EN_CHANGE , WM_command_ID_SANA__EN_CHANGE }, /*a*/
  { 0 }
};
/****************************************************************************/