#include "laf.h"
#include "list.h"


class penApplication : public application {
  list points;
public:
  penApplication(char *apName, char *apTitle,
                 HANDLE thisInst, HANDLE prevInst) :
                 application(apName,apTitle,thisInst,prevInst)
                 { points.add(0,0);}
  void mouseDown(int,int);
  void paint();
  void add_line(int x, int y) {
    POINT p; p.x = x; p.y = y;
    line(points.last(),p);
    points.add(p);
  }
  void do_polygon();
}; /* penApplication */


void penApplication::do_polygon()
{
  POINT p1,p2;
  p1 = points.first();

  while ( !points.end() ) {
    p2 = points.next();
    line(p1,p2);
    p1 = p2;
  }
}


void penApplication::mouseDown(int x, int y)
{
  add_line(x,y);
}


void penApplication::paint()
{
  wout << "Hello!\n" ;
  do_polygon();
}


int PASCAL WinMain(HANDLE thisInst, HANDLE prevInst, LPSTR, int)
{
  penApplication theApp("PENS","Little Application Framework",thisInst,prevInst);
  return theApp.run();
}