// mopocad.cpp
// Mopocad for Visual C++ 4.0/vl-96
#define NOMINMAX      // Määrittele jos käytetäään STLää MSC:ssä
                      // Kopioi CD:ltä \STL hakemisto
                      // Lisäksi vaihda  :: => std::
                      // deque.h(289):	::swap(start, x.start);
                      // deque.h(290):	::swap(finish, x.finish);
                      // deque.h(291):	::swap(length, x.length);
                      // deque.h(292):	::swap(map, x.map);
                      // deque.h(293):	::swap(map_size, x.map_size);
                      // defalloc.h(138):	return ::allocate((...
                      // defalloc.h(140):  .. ::deallocate(p); }
#include <afxwin.h>
#include "..\mopocad.rh"

namespace std {
#pragma warning( disable: 4146 4018 4100)
#include <deque.h>
}

typedef std::deque<CPoint>      cPoints;
typedef cPoints::iterator  cPointsIterator;

CPoint MovePoint(-2000,-2000); // Merkki taulukkoon siirrosta

//-----------------------------------------------------------------------------
class CMainWindow : public CFrameWnd {
  CClientDC *HoldDC;
  BOOL      ButtonDown;
  cPoints    Points;
protected:
  void DeleteAllPoints();
  void ClearWindow();
public:
  CMainWindow();
  ~CMainWindow() { DeleteAllPoints(); }
  virtual void Exit();
  virtual void About();
  void OnLButtonDown(UINT nFlags,CPoint point);
  void OnMouseMove(UINT nFlags,CPoint point);
  void OnLButtonUp(UINT nFlags,CPoint point);
  void OnRButtonDown(UINT nFlags,CPoint point);
  void OnPaint();
  DECLARE_MESSAGE_MAP()
};

BEGIN_MESSAGE_MAP( CMainWindow, CFrameWnd )
  ON_COMMAND(CM_FILE_EXIT, Exit)
  ON_COMMAND(CM_HELP_ABOUT, About)
  ON_WM_LBUTTONDOWN()
  ON_WM_MOUSEMOVE()
  ON_WM_LBUTTONUP()
  ON_WM_RBUTTONDOWN()
	ON_WM_PAINT()
END_MESSAGE_MAP()


//-----------------------------------------------------------------------------
class CDLG_AboutDlg : public CDialog{ // Tässä tarpeeton, ks. CMainWin::About!
public:
  CDLG_AboutDlg(LPCTSTR name,CWnd *Parent):
    CDialog(name,Parent) {};
  virtual void Ok();
  DECLARE_MESSAGE_MAP()
};

BEGIN_MESSAGE_MAP( CDLG_AboutDlg, CDialog )
  ON_COMMAND(IDOK, Ok)
END_MESSAGE_MAP()

//-------------------- CDLG_AboutDlg metodit: ---------------------------------
void CDLG_AboutDlg::Ok()
{
  EndDialog(0);
}

//-----------------------------------------------------------------------------
CMainWindow::CMainWindow() 
{ 
  Create(NULL,"MopoCad"); 
  ButtonDown = FALSE;
  HoldDC = NULL;

  LoadAccelTable("PIKA");

  CMenu menu;
  menu.LoadMenu("PAAMENU");
  SetMenu(&menu);
  menu.Detach();
}

void CMainWindow::Exit()
{
  DestroyWindow();
}

void CMainWindow::About()
{
// Tosin voitaisiin kutsua suoraan geneeristä CDialog ja jättää
// koko CDLG_AboutDlg luokka pois!
//    CDialog dlg("DLG_ABOUT",this);
  CDLG_AboutDlg dlg("DLG_ABOUT",this);
  dlg.DoModal();
}

void CMainWindow::OnLButtonDown(UINT ,CPoint point)
{
  if ( ButtonDown ) return;
  ButtonDown = TRUE;
  SetCapture();
  HoldDC = new CClientDC(this);
  HoldDC->MoveTo(point);
  Points.push_back(MovePoint);
  Points.push_back(point);
}

void CMainWindow::OnMouseMove(UINT ,CPoint point)
{
  if ( !ButtonDown ) return;
  HoldDC->LineTo(point);
  Points.push_back(point);
}

void CMainWindow::OnLButtonUp(UINT ,CPoint)
{
  if ( !ButtonDown ) return;
  ReleaseCapture();
  delete HoldDC;
  HoldDC = NULL;
  ButtonDown = FALSE;
}

void CMainWindow::OnRButtonDown(UINT ,CPoint)
{
  if ( ButtonDown ) return;
  ClearWindow();
}


void CMainWindow::OnPaint() {
  CPaintDC hdc(this);
  hdc.TextOut(10,10,"Hello world!");
  cPointsIterator pi,end=Points.end();
  for (pi=Points.begin(); !(pi == end) ; pi++)
    if ( *pi == MovePoint ) hdc.MoveTo(*++pi); 
    else hdc.LineTo(*pi);
  ;
}

void CMainWindow::DeleteAllPoints()
{
  Points.erase(Points.begin(),Points.end());
}

void CMainWindow::ClearWindow()
{
  DeleteAllPoints();
  Invalidate(TRUE);
}

//-----------------------------------------------------------------------------
class CMopoCadApp : public CWinApp {
public:
  virtual BOOL InitInstance() {
    m_pMainWnd = new CMainWindow();
	  m_pMainWnd->ShowWindow(m_nCmdShow);
	  m_pMainWnd->UpdateWindow();
    m_pMainWnd->SetIcon(LoadIcon("IKONI"),TRUE);

	  return TRUE;
  }
};

CMopoCadApp MopoCadApp;  //  constructor initializes and runs the app