// #include <stdio.h>
#include <owl\owlpch.h>
#include <owl\edit.h>
#include <owl\static.h>
#include "palitest.rh"
#include "palin.h"

//------------------------------------------------------------------------------
class TPalindromiDialog : public TDialog {
  TEdit edit;
  TStatic tulos;
public:
  TPalindromiDialog(TWindow *parent, TResId resId, TModule *module = 0) :
    TDialog(parent,resId,module),
    edit(this,IDC_EDIT1),
    tulos(this,TULOS) {}
  virtual ~TPalindromiDialog()  { Destroy();                                      }
  void EDChanged()       {
   int onko;
   char jono[30];
   edit.GetLine(jono,sizeof(jono),0);
   onko=onko_palindromi(jono);
   if ( onko == 1 ) tulos.SetText("on palindromi");
   else             tulos.SetText("ei ole palindromi");
   }
   DECLARE_RESPONSE_TABLE(TPalindromiDialog);
};

DEFINE_RESPONSE_TABLE1(TPalindromiDialog, TDialog)
  EV_EN_CHANGE	(IDC_EDIT1,EDChanged),
  END_RESPONSE_TABLE;

//------------------------------------------------------------------------------
class TPaliApp : public TApplication
{
public:
  TPaliApp(const char *title) : TApplication(title) {}
  void InitMainWindow() {
    SetMainWindow(new TFrameWindow(0, Name,
                  new TPalindromiDialog(0, IDD_DIALOG1) , true)); // Tyyli WS_CHILD
  }
};

/********************* Pääohjelma *********************************************/
int OwlMain(int ,char far * [])
{
  return TPaliApp("palindromin testaus").Run();
}