home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0400 / CCE_0423.ZIP / CCE_0423.PD / GEM.ZOO / tgem.cc < prev    next >
C/C++ Source or Header  |  1992-08-18  |  986b  |  45 lines
  1. /////////////////////////////////////////////////////////////////////////////
  2. //
  3. //  This file is Copyright 1992 by Warwick W. Allison,
  4. //  and is freely distributable providing no charge is made.
  5. //
  6. /////////////////////////////////////////////////////////////////////////////
  7.  
  8. #include "tgem.h"
  9. #include "gem++.h"
  10. #include "slider.h"
  11.  
  12. GEMrsc RSC("tgem.rsc");
  13. GEMdesktop Desktop(DESKTOP);
  14. GEMform About(ABOUT);
  15. GEMformwindow Tests(TESTS);
  16.  
  17. class Menu : public GEMmenu
  18. {
  19.     ClickResult Do(int item);
  20. };
  21.  
  22. ClickResult Menu::Do(int item)
  23. {
  24.     switch (item) {
  25.         case DOABOUT:    About.Do();
  26.     break;    case OPENTEST:    Tests.open();
  27.     break;    case DOQUIT:    return EndInteraction;
  28.     }
  29.     return ContinueInteraction;
  30. }
  31.  
  32. Menu menu(MENU);
  33.  
  34.  
  35. main()
  36. {
  37.     Slider SimpleSlider(SIMPKNOB,SIMPSLID,Tests);
  38.     Slider VertSlider(VKNOB,VRACK,Tests);
  39.     Slider HorzSlider(HKNOB,HRACK,Tests);
  40.  
  41.     GEMactivity Application(menu,Desktop);
  42.     Application.AddWindow(Tests);
  43.     Application.Do();
  44. }
  45.