/****************/
/* laskuri.cpp  */
/****************/
// Esimerkki Autolaskurista. Projektiin laskuri.cpp ja laskuri.rc

#include <owl\pch.h>
#include "laskurm2.rh"
#include "intlabel.h"

//------------------------------------------------------------------------------
class TLaskuriDialog : public TDialog {
  TIntLabel *hal;
  TIntLabel *kal;
public:
  TLaskuriDialog(TWindow *parent, TResId resId, TModule *module = 0) :
    TDialog(parent,resId,module) {
       hal = new TIntLabel(this, HAL);
       kal = new TIntLabel(this, KAL);
    }
  virtual ~TLaskuriDialog()  { Destroy();                                      }
  void BNHAClicked()         { *hal += 1;                                      }
  void BNKAClicked()         { *kal += 1;                                      }
  void BNNollaaClicked()     { *hal = 0; *kal=0;                               }
  void BNExitClicked()       { Destroy();                                      }
  void CmFilenew()           { MessageBox("Uusi tiedosto!");                   }
  DECLARE_RESPONSE_TABLE(TLaskuriDialog);
};

DEFINE_RESPONSE_TABLE1(TLaskuriDialog, TDialog)
  EV_BN_CLICKED(HA,BNHAClicked),
  EV_BN_CLICKED(KA,BNKAClicked),
  EV_BN_CLICKED(NOLLAA,BNNollaaClicked),
  EV_BN_CLICKED(EXIT,BNExitClicked),
  EV_COMMAND(IDM_FILE_NEW, CmFilenew),
  EV_COMMAND(IDM_FILE_EXIT, BNExitClicked),
END_RESPONSE_TABLE;

//------------------------------------------------------------------------------
class TLaskuriApp : public TApplication
{
public:
  TLaskuriApp(const char *title) : TApplication(title) {}
  void InitMainWindow() {
#if 0
    TFrameWindow *fw = new TFrameWindow(0, Name,
                  new TLaskuriDialog(0, "LASKURI") , true); // Tyyli WS_CHILD
#else
    TDecoratedFrame *fw = new TDecoratedFrame(0, Name,
                    new TLaskuriDialog(0, "LASKURI") );
#endif
    fw->AssignMenu("Paamenu");
    fw->SetFlag(wfShrinkToClient);
    fw->SetIcon(this, "IKONI");
    SetMainWindow(fw);
  }
};

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