home *** CD-ROM | disk | FTP | other *** search
File List | 1989-09-07 | 716 b | 36 lines |
- _A First Look At CommonView_
- by Noel J. Bergman
-
- [LISTING ONE]
-
- #include <CommonVu.hxx>
-
- class DoodleWind : public TopAppWindow
- {
- Point LastPt;
- protected:
- long far MouseDrag ( MouseEvt );
- long far MouseButtonDn ( MouseEvt );
- };
-
- void App::far Start()
- {
- DoodleWind Doodle;
- Doodle.EnableSysMenu ();
- Doodle.EnableBorder ();
- Doodle.SetCaption ( "Doodle" );
- Doodle.Show ();
- Exec ();
- }
-
- long DoodleWind::far MouseButtonDn ( MouseEvt Evt )
- {
- LastPt = Evt.Where ();
- }
-
- long DoodleWind::far MouseDrag ( MouseEvt Evt )
- {
- MoveTo ( LastPt );
- LineTo ( LastPt = Evt.Where ());
- }
-