home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / DYNAMENU.PAK / APP.CPP next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  1.0 KB  |  60 lines
  1. // ---------------------------------------------------------------------------
  2. // ObjectWindows
  3. // Copyright (C) 1995, 1995 by Borland International, All Rights Reserved
  4. // ---------------------------------------------------------------------------
  5. #include <owl/pch.h>
  6. #include "dynmnu.h"
  7.  
  8. //
  9. // Main menu resource name
  10. //
  11. char* MainMenu = "TrackMenu";
  12.  
  13.  
  14. //
  15. // Application constructor
  16. //
  17. TMenuTestApp::TMenuTestApp() :
  18.   TApplication()
  19. {
  20. }
  21.  
  22.  
  23. //
  24. // Application destructor
  25. //
  26. TMenuTestApp::~TMenuTestApp()
  27. {
  28. }
  29.  
  30.  
  31. //
  32. // InitMainWindow
  33. //
  34. void
  35. TMenuTestApp::InitMainWindow()
  36. {
  37.   TDecoratedFrame* frame = new TDynamicMenuDecoratedFrame(0,
  38.     "MenuTest application", new TMenuTestWindow, true);
  39.  
  40.   // create status bar
  41.   //
  42.   StatusBar = new TStatusBar(frame, TGadget::Embossed);
  43.   frame->Insert(*StatusBar, TDecoratedFrame::Bottom);
  44.  
  45.   frame->AssignMenu(MainMenu);
  46.   SetMainWindow(frame);
  47. }
  48.  
  49.  
  50. //
  51. // OwlMain
  52. //
  53. int
  54. OwlMain(int /*argc*/, char* /*argv*/ [])
  55. {
  56.   TMenuTestApp app;
  57.   return app.Run();
  58. }
  59.  
  60.