home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Demos / Bowers Development / AppMaker 2.0b5 / Examples / PowerPlant / Gadgets / CGadgetsApp.cp < prev    next >
Encoding:
Text File  |  1996-03-19  |  3.7 KB  |  181 lines  |  [TEXT/CWIE]
  1. // CGadgetsApp.cp -- application methods
  2. // Created 3/19/96 12:49 PM by AppMaker
  3.  
  4. #include "CGadgetsApp.h"
  5.  
  6. #include "CGadgetsDoc.h"
  7. #include "CGadgetsData.h"
  8. #include "CmdCodes.h"
  9.  
  10. #include <UDesktop.h>
  11. #include <URegistrar.h>
  12. #include <UScreenPort.h>
  13. #include <PPobClasses.h>
  14. #include <PP_Messages.h>
  15.  
  16. // ---------------------------------------------------------------------------
  17. //        • CGadgetsApp
  18. // ---------------------------------------------------------------------------
  19. //    Default constructor
  20.  
  21. CGadgetsApp::CGadgetsApp()
  22.     :LDocApplication()
  23. {
  24.     UScreenPort::Initialize();
  25.  
  26.     RegisterClasses();
  27.  
  28.     SetUpMenus();
  29.  
  30.     // initialize app's data:
  31.  
  32. }
  33.  
  34.  
  35. // ---------------------------------------------------------------------------
  36. //        • ~CGadgetsApp
  37. // ---------------------------------------------------------------------------
  38. //    Destructor
  39. //
  40.  
  41. CGadgetsApp::~CGadgetsApp()
  42. {
  43. }
  44.  
  45. // ---------------------------------------------------------------------------
  46. //        • RegisterClasses
  47. // ---------------------------------------------------------------------------
  48. //
  49.  
  50. void
  51. CGadgetsApp::RegisterClasses()
  52. {
  53.     RegisterAllPPClasses();
  54.             // replace to register only classes that we use.
  55.             // windows know what classes they use
  56.             // so call static functions in each window/dialog,
  57. }
  58.  
  59. // ---------------------------------------------------------------------------
  60. //        • SetUpMenus
  61. // ---------------------------------------------------------------------------
  62. //
  63.  
  64. void
  65. CGadgetsApp::SetUpMenus()
  66. {
  67.  
  68. }
  69.  
  70. // ---------------------------------------------------------------------------
  71. //        • StartUp
  72. // ---------------------------------------------------------------------------
  73. //    The application calls this member function automatically when the application
  74. //    is opened
  75.  
  76. void
  77. CGadgetsApp::StartUp()
  78. {
  79.     ObeyCommand(cmd_New, nil);
  80. }
  81.  
  82. //----------
  83. LModelObject*
  84. CGadgetsApp::MakeNewDocument()
  85. {
  86.     CGadgetsDoc    *theDoc = new CGadgetsDoc(this);
  87.  
  88.     theDoc->newFile();
  89.  
  90.     return theDoc;
  91. }
  92.  
  93. //----------
  94. // called from SendAEOpenDoc in response to Open command
  95.  
  96. void
  97. CGadgetsApp::OpenDocument(
  98.     FSSpec    *inMacFSSpec)
  99. {
  100.     CGadgetsDoc    *theDoc = new CGadgetsDoc(this);
  101.  
  102.     theDoc->openFile (inMacFSSpec);
  103. }
  104.  
  105. //----------
  106. // called from LDocApplication in response to Open command
  107.  
  108. void
  109. CGadgetsApp::ChooseDocument()
  110. {
  111.     SFTypeList            typeList;
  112.     short                numTypes;
  113.     StandardFileReply    macFileReply;
  114.  
  115.     typeList[0] = kFileType;
  116.     numTypes = 1;
  117.  
  118.     UDesktop::Deactivate();
  119.     ::StandardGetFile(nil, numTypes, typeList, &macFileReply);
  120.     UDesktop::Activate();
  121.  
  122.     if (macFileReply.sfGood) {
  123.         SendAEOpenDoc(macFileReply.sfFile);
  124.     }
  125. }
  126.  
  127. // ---------------------------------------------------------------------------
  128. //        • ObeyCommand
  129. // ---------------------------------------------------------------------------
  130. //    Respond to commands
  131.  
  132. Boolean
  133. CGadgetsApp::ObeyCommand(
  134.     CommandT    inCommand,
  135.     void        *ioParam)
  136. {
  137.     Boolean    cmdHandled = true;
  138.  
  139.     switch (inCommand) {
  140.  
  141.     // +++ Add cases here for the commands you handle
  142.     //        Remember to add same cases to FindCommandStatus below
  143.     //        to enable/disable the menu items for the commands
  144.  
  145.  
  146.     default:
  147.             cmdHandled = LDocApplication::ObeyCommand(inCommand, ioParam);
  148.         break;
  149.     }
  150.  
  151.     return cmdHandled;
  152. }
  153.  
  154.  
  155. // ---------------------------------------------------------------------------
  156. //        • FindCommandStatus
  157. // ---------------------------------------------------------------------------
  158. //    Pass back status of a (menu) command
  159.  
  160. void
  161. CGadgetsApp::FindCommandStatus(
  162.     CommandT    inCommand,
  163.     Boolean        &outEnabled,
  164.     Boolean        &outUsesMark,
  165.     Char16        &outMark,
  166.     Str255        outName)
  167. {
  168.     outUsesMark = false;
  169.  
  170.     switch (inCommand) {
  171.  
  172.     // +++ Add cases here for the commands you handle
  173.  
  174.  
  175.     default:
  176.             LDocApplication::FindCommandStatus(inCommand, outEnabled, outUsesMark,
  177.                                                 outMark, outName);
  178.         break;
  179.     }
  180. }
  181.