/***************/
/* strtest.cpp */
/****************************************************************************
    PROGRAM: strtest.cpp
    PURPOSE: Ohjelma STRLIB-kirjaston testaamiseksi.
    Editor:  Vesa Lappalainen  9.11.1992 & 29.8.1994 & 19.11.1996 C++ versio
    PROJECT: Ohjelma voidaan kääntää käyttämään joko .DLL-kirjastoa
             tai tavallista kirjastoa.

          STRDLL-kirjasto:
             1) Käännä strlib.cpp siellä olevien ohjeiden mukaan strdll.dll:ksi
             2) Tee tälle pääohjelmalle projekti:
                  strtest.cpp
                  dlltest.def           - Win 16 bit
                  LIB\owl\strdll32.lib  - 32 jos 32-bittinen

          Tavallinen kirjasto:
             1) Tee projekti:
                  strtest.cpp
                  strtest.def           - Win 16 bit
                  ALI\owl\strlib.cpp
                  ALI\strlib.rc
****************************************************************************/
#include <owl\owlpch.h>
#include "strlib.h"

//------------------------------------------------------------------------------
class TMainWindow : public TFrameWindow {
  char jono[100];
public:
  TMainWindow(TWindow *Parent, LPCSTR ATitle) :
    TFrameWindow(Parent, ATitle,0)
  {
    strncpy(jono,_argv[0],sizeof(jono)); jono[sizeof(jono)-1] = 0;
    Attr.X = 10; Attr.Y = 20; Attr.W = 400; Attr.H = 400;
  }
  void Paint(TDC &dc,bool, TRect &) {
    dc.TextOut(10,10,jono);
  }
  void EvLButtonDown(UINT modKeys, TPoint& point) {
    KysyJono("Tiedoston nimi?",jono,jono,sizeof(jono));
    Invalidate();
  }
  DECLARE_RESPONSE_TABLE(TMainWindow);
};

DEFINE_RESPONSE_TABLE1(TMainWindow,TFrameWindow)
  EV_WM_PAINT,
  EV_WM_LBUTTONDOWN,
END_RESPONSE_TABLE;

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

//------------------------------------------------------------------------------
int OwlMain(int ,char far * [])
{
  return TStrTestApp("StrTest").Run();
}