/****************/
/* teht8.cpp   */
/****************/
#include <owl\owlpch.h>
#include <stdio.h>

#define INIFILE ".\\teht8.ini"

//------------------------------------------------------------------------------
class TMainWindow : public TFrameWindow {
  char teksti[50];
  int lkm,raja;
public:
  TMainWindow(TWindow *Parent, LPCSTR ATitle) : TFrameWindow(Parent, ATitle) {
    raja = GetPrivateProfileInt("Kaytot","Raja",0,INIFILE);
    lkm =  GetPrivateProfileInt("Kaytot","Lkm",0,INIFILE);
    if ( lkm >= raja ) { PostQuitMessage(0); return; }
    GetPrivateProfileString("Teksti","Terve","",teksti,sizeof(teksti),INIFILE);

    char slkm[10];  // Ei ~:ssa ettei voi petkuttaa tappamalla ohjelmaa
    lkm++;          // Olis ollut ystävällistä vielä huomauttaa että ...
    sprintf(slkm,"%d",lkm);
    WritePrivateProfileString("Kaytot","Lkm",slkm,INIFILE);
  }
  ~TMainWindow();
  void Paint(TDC &hdc,bool, TRect &);
  DECLARE_RESPONSE_TABLE(TMainWindow);
};

DEFINE_RESPONSE_TABLE1(TMainWindow,TFrameWindow)
  EV_WM_PAINT,
END_RESPONSE_TABLE;

void TMainWindow::Paint(TDC &dc,bool, TRect &)
{
  dc.TextOut(10,10,teksti);
}

TMainWindow::~TMainWindow()
{
}

//------------------------------------------------------------------------------
class THelloApp : public TApplication {
public:
  THelloApp(const char far *name = 0) : TApplication(name) {};
  void InitMainWindow() { MainWindow = new TMainWindow(NULL, Name); }
};

//------------------------------------------------------------------------------
int OwlMain(int ,char far * [])
{
  return THelloApp("Hello World!").Run();
}