home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c083 / 21.ddi / SDIFILE.PAK / SDIFILE.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1993-12-02  |  1.4 KB  |  60 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows - (C) Copyright 1991, 1993 by Borland International
  3. //----------------------------------------------------------------------------
  4. #include <owl\owlpch.h>
  5. #include <owl\applicat.h>
  6. #include <owl\framewin.h>
  7. #include <owl\editfile.h>
  8. #include <cstring.h>
  9.  
  10. class TFileApp : public TApplication {
  11.   public:
  12.     TFileApp() : TApplication("File Window") {}
  13.  
  14.   protected:
  15.     void   InitMainWindow();
  16.     void   CmFileNew();
  17.     void   CmFileOpen();
  18.  
  19.   DECLARE_RESPONSE_TABLE(TFileApp);
  20. };
  21.  
  22. DEFINE_RESPONSE_TABLE1(TFileApp, TApplication)
  23.   EV_COMMAND(CM_FILENEW, CmFileNew),
  24.   EV_COMMAND(CM_FILEOPEN, CmFileOpen),
  25. END_RESPONSE_TABLE;
  26.  
  27. //
  28. // Construct the TFileApp's MainWindow's client of type TEditFile
  29. //
  30. void
  31. TFileApp::InitMainWindow()
  32. {
  33.   MainWindow = new TFrameWindow(0, Name, new TEditFile);
  34.   MainWindow->AssignMenu(IDM_EDITFILE);
  35.   MainWindow->Attr.AccelTable = IDA_EDITFILE;
  36.   MainWindow->SetIcon(this, 201);
  37. }
  38.  
  39. void
  40. TFileApp::CmFileNew()
  41. {
  42.   TEditFile* ef = TYPESAFE_DOWNCAST(MainWindow->GetClientWindow(), TEditFile);
  43.   CHECK(ef);
  44.   ef->NewFile();
  45. }
  46.  
  47. void
  48. TFileApp::CmFileOpen()
  49. {
  50.   TEditFile* ef = TYPESAFE_DOWNCAST(MainWindow->GetClientWindow(), TEditFile);
  51.   CHECK(ef);
  52.   ef->Open();
  53. }
  54.  
  55. int
  56. OwlMain(int /*argc*/, char* /*argv*/ [])
  57. {
  58.   return TFileApp().Run();
  59. }
  60.