home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / ddjmag / ddj8910.zip / BERGMAN.LST next >
File List  |  1989-09-07  |  716b  |  36 lines
  1. _A First Look At CommonView_
  2. by Noel J. Bergman
  3.  
  4. [LISTING ONE]
  5.  
  6. #include <CommonVu.hxx>
  7.  
  8. class   DoodleWind  : public    TopAppWindow
  9. {
  10.     Point                   LastPt;
  11. protected:
  12.     long                far MouseDrag ( MouseEvt );
  13.     long                far MouseButtonDn ( MouseEvt );
  14. };
  15.  
  16. void App::far Start()
  17. {
  18.     DoodleWind  Doodle;
  19.     Doodle.EnableSysMenu ();
  20.     Doodle.EnableBorder ();
  21.     Doodle.SetCaption ( "Doodle" );
  22.     Doodle.Show ();
  23.     Exec ();
  24. }
  25.  
  26. long    DoodleWind::far MouseButtonDn   ( MouseEvt Evt )
  27. {
  28.     LastPt = Evt.Where ();
  29. }
  30.  
  31. long    DoodleWind::far MouseDrag   ( MouseEvt Evt )
  32. {
  33.     MoveTo ( LastPt );
  34.     LineTo ( LastPt = Evt.Where ());
  35. } 
  36.