home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / QuickDraw 3D / Samples / SampleCode / SimpleViewer / SimpleViewer.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-21  |  26.6 KB  |  1,092 lines  |  [TEXT/MPCC]
  1. //--------------------------------------------------------------------------------------------
  2. // simple viewer application 
  3. // DEVELOPER SUPPORT May 95
  4. //
  5. // This is a simple viewer application, that illustrates a minimal, but
  6. // functionally complete viewer application.
  7. //
  8. // Nick Thompson, Developer Support, Apple Computer (DEVSUPPORT),
  9. // ©1995, Apple Computer Inc., All Rights Reserved
  10.  
  11. #include <AppleEvents.h>
  12. #include <menus.h>
  13. #include <PictUtil.h>
  14. #include <QDOffScreen.h>
  15. #include <Errors.h>
  16.  
  17. #include "QD3DViewer.h"
  18.  
  19. //--------------------------------------------------------------------------------------------
  20. //
  21. const int    kWindowWidth = 220 ;
  22. const int    kWindowHeight = 150 ;
  23.  
  24. //--------------------------------------------------------------------------------------------
  25. //
  26. #define HiWrd(aLong)    (((aLong) >> 16) & 0xFFFF)
  27. #define LoWrd(aLong)    ((aLong) & 0xFFFF)
  28.  
  29.     
  30.  
  31. //--------------------------------------------------------------------------------------------
  32. // menu id's
  33. enum {
  34.     mApple = 128,
  35.     mFile,
  36.     mEdit
  37. } ;
  38.  
  39. //--------------------------------------------------------------------------------------------
  40. // command id's, Apple menu
  41. enum {
  42.     iAbout = 1
  43. } ;
  44.  
  45. //--------------------------------------------------------------------------------------------
  46. // command id's, File menu
  47. enum {
  48.     iNew = 1,
  49.     iOpen,
  50.     iUnused1,
  51.     iClose,
  52.     iSave,
  53.     iSaveAs,
  54.     iRevert,
  55.     iUnused2,
  56.     iQuit
  57. } ;
  58.  
  59. //--------------------------------------------------------------------------------------------
  60. // command id's, Edit menu
  61. enum {
  62.     iUndo = 1,
  63.     iUnused3,
  64.     iCut,
  65.     iCopy,
  66.     iPaste,
  67.     iClear
  68. } ;
  69.  
  70. //--------------------------------------------------------------------------------------------
  71. // static control variables
  72.  
  73. static Boolean gQuitFlag = false ;                // we ain't quittin yet
  74. static Point gStaggerPos = {50,50} ;            // start opening staggered windows at this point
  75. static AEAddressDesc    gSelfAddress;            // A self-addressed address descriptor record
  76. static ProcessSerialNumber    gSelfPSN;            // This application's psn
  77.  
  78. //--------------------------------------------------------------------------------------------
  79. // function prototypes
  80.  
  81. Boolean SupportsQuickDraw3D(void) ;
  82. Boolean     SupportsQuickDraw3DViewer(void) ;
  83. void         InitToolbox( void ) ;
  84. void        FailIfErr(OSErr something ) ;
  85. void         MainEventLoop( void ) ;
  86. void         HandleKeyPress( EventRecord *event ) ;
  87. Boolean        HandleEvent( EventRecord *theEvent ) ;
  88. void         HandleMenuCommand( long menuResult ) ;
  89. void         MyAdjustMenus( void ) ;
  90. OSErr        MyDisposeViewerWindow( WindowPtr theWindow ) ;
  91. CGrafPtr     MyCreateViewerWindow( void ) ;
  92.  
  93. //-- AppleEvent Related
  94.  
  95. Boolean SupportsAEVT(void) ;
  96. void RegisterMyEvents(void) ;
  97. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  98. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  99. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  100. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  101. void DoAppOpenCommand( void ) ;
  102. void MySendQuitApp( void ) ;
  103. void MySendOpenDoc(FSSpec *myFSSpec) ;
  104.  
  105. //--------------------------------------------------------------------------------------------
  106. // Constants
  107.  
  108. const RGBColor    kRGBBlack = { 0x0000, 0x0000, 0x0000 } ;
  109. const RGBColor    kRGBWhite = { 0xFFFF, 0xFFFF, 0xFFFF } ;
  110. const int         kMyAboutDialogID = 128 ;
  111. const int         kMyFatalDialogID = 129 ;
  112. const int        kQD3DAlertID = 27309 ;
  113. //--------------------------------------------------------------------------------------------
  114. // Types
  115. typedef struct _viewerData {
  116.     TQ3ViewerObject        theViewer ;
  117.     FSSpec                theFile ;
  118.     Boolean                isFileValid ;
  119. } ViewerData, *ViewerDataPtr, **ViewerDataHandle ;
  120.  
  121. //--------------------------------------------------------------------------------------------
  122. //
  123. //
  124.  
  125. main()
  126. {
  127.     MoreMasters(); MoreMasters() ; MoreMasters() ;
  128.     MaxApplZone() ;            // Maximise the heap - the viewer requires at least 32k
  129.     InitToolbox() ;
  130.  
  131.     // WE DON'T CHECK FOR 68K machine.
  132.     // Instead I use the NotPPC.rsrc resource file.  This is a file with a 68k CODE 0
  133.     // and CODE 1 resource that puts up a dialog that says "this app only runs on a power
  134.     // macintosh computer.
  135.     
  136.     if( SupportsAEVT() && SupportsQuickDraw3D() && SupportsQuickDraw3DViewer()  ) {
  137.     
  138.         // AppleEvent stuff:
  139.         // Set up the self-addressed descriptor record.
  140.          gSelfPSN.highLongOfPSN = 0;
  141.          gSelfPSN.lowLongOfPSN = kCurrentProcess;        //* Use this instead of GetCurrentProcess *//
  142.          FailIfErr(AECreateDesc(typeProcessSerialNumber,(Ptr)&gSelfPSN,sizeof(ProcessSerialNumber),&gSelfAddress));
  143.  
  144.         RegisterMyEvents() ;    // register the appleevents for this app
  145.  
  146.         MainEventLoop() ;        // Handle events 'til we die
  147.     } 
  148.     else {
  149.         Str255 theString ;
  150.         GetIndString(theString,kQD3DAlertID,3);
  151.         ParamText( theString, 0L,  0L,  0L ) ;
  152.         (void)Alert(kQD3DAlertID,nil);
  153.     }
  154. }
  155. //---------------------------------------------------------------------
  156.  
  157. Boolean SupportsQuickDraw3D(void) 
  158. {
  159.     OSErr err;
  160.     long response;
  161.         
  162.     err = Gestalt(gestaltQD3D,&response);
  163.     if (err!=noErr)
  164.         return false;
  165.         
  166.     return (response && (response << gestaltQD3DAvailable));
  167. }
  168.  
  169. //---------------------------------------------------------------------
  170.  
  171. Boolean SupportsQuickDraw3DViewer(void) 
  172. {
  173.     OSErr err;
  174.     long response;
  175.         
  176.     err = Gestalt( gestaltQD3DViewer,&response );
  177.     if (err!=noErr)
  178.         return false;
  179.         
  180.     return (response && ( response << gestaltQD3DViewerAvailable ));
  181. }
  182.  
  183. //--------------------------------------------------------------------------------------------
  184. //
  185. //
  186. void FailIfErr( OSErr something )
  187. { 
  188.     OSErr myErr ; 
  189.     if(( myErr = something) != noErr ) { 
  190.         ModalFilterUPP         theProc ;
  191.         DialogPtr            theDialog ; 
  192.         short                itemHit ;
  193.         Str255                theError ;
  194.         
  195.         NumToString(something,theError);
  196.     
  197.         theDialog = GetNewDialog ( kMyFatalDialogID, nil, (WindowPtr)-1 );
  198.         
  199.         // these two lil' snappers are system 7 only
  200.         // so if you use them, check before!!
  201.         // in this app we will only run on Power
  202.         // Macintosh, so we don't check
  203.         
  204.         GetStdFilterProc( &theProc ) ;
  205.         SetDialogDefaultItem(theDialog, ok) ;
  206.         
  207.         ParamText( theError, 0L, 0L, 0L ) ;
  208.         
  209.         // put the dialog up and loop 'til
  210.         // the user hits the OK button
  211.  
  212.         do {
  213.             ModalDialog ( theProc, &itemHit );
  214.         } while( itemHit != ok ) ;
  215.         
  216.         DisposeDialog ( theDialog );
  217.         
  218.         ExitToShell() ; 
  219.     } 
  220. } 
  221.  
  222. //--------------------------------------------------------------------------------------------
  223. //
  224. //
  225.  
  226. void InitToolbox()
  227. {
  228.     Handle        menuBar = nil;
  229.  
  230.  
  231.     InitGraf((Ptr) &qd.thePort);
  232.     InitFonts();
  233.     InitWindows();
  234.     InitMenus();
  235.     TEInit();
  236.     InitDialogs((long)nil);
  237.     InitCursor();
  238.  
  239.     // initialize application globals
  240.     
  241.     gQuitFlag = false;
  242.     
  243.     
  244.     menuBar = GetNewMBar(128);                // Read menus into menu bar, MBAR res id is 128
  245.     
  246.     if ( menuBar == nil )
  247.          ExitToShell();                        // if we dont have it then quit - your app 
  248.                                              // needs a dialog here
  249.  
  250.     SetMenuBar(menuBar);                    // Install menus
  251.     DisposeHandle(menuBar);
  252.     
  253.     AppendResMenu(GetMenuHandle(mApple), 'DRVR');    // Add DA names to Apple menu, ID 128
  254.  
  255.     MyAdjustMenus() ;
  256.     DrawMenuBar();
  257. }
  258.  
  259.  
  260. //--------------------------------------------------------------------------------------------
  261. //
  262. //
  263. void MainEventLoop()
  264. {
  265.     EventRecord         event;
  266.     WindowPtr           theWindow;
  267.     Boolean                wasViewerEvent ;
  268.     GrafPtr             savedPort ;
  269.     Point                localPt ;
  270.     TQ3ViewerObject     theViewer ;
  271.     ViewerDataHandle    myData ;
  272.  
  273.     MyAdjustMenus() ;
  274.     while( !gQuitFlag )
  275.     {
  276.         if (WaitNextEvent( everyEvent, &event, 0, nil ))
  277.         {
  278.             
  279.             if((theWindow = FrontWindow()) != nil ) {
  280.             
  281.                 myData = (ViewerDataHandle)GetWRefCon(theWindow);
  282.                 theViewer = (**myData).theViewer;
  283.             }
  284.             
  285.             if( theViewer ) {
  286.                 GetPort( &savedPort ) ;
  287.                 SetPort( (GrafPtr)theWindow ) ;
  288.                 GetMouse(&localPt);
  289.                 if (!Q3ViewerAdjustCursor(theViewer, &localPt))
  290.                     InitCursor();
  291.                 wasViewerEvent = Q3ViewerEvent ( theViewer, &event );
  292.                 SetPort( savedPort ) ;
  293.             }
  294.             else
  295.                 wasViewerEvent = false ;
  296.             
  297.             // was it a viewer event????
  298.             if( !wasViewerEvent )
  299.                 HandleEvent( &event );
  300.         }
  301.     }
  302. }
  303.  
  304. //----------------------------------------------------------------------------------
  305. //    HandleActivateWindow is called when an event is received that reports that
  306. //    a window is being either activated or deactivated.
  307.  
  308. static void HandleActivateWindow(WindowPtr theWindow, short activate)
  309. {
  310.     if (theWindow) {
  311.         if (activate) {
  312.         
  313.             // do whatever else you'd like to do for a activate event
  314.             LoadScrap() ;
  315.  
  316.         } else {
  317.         
  318.             // do whatever you'd like to do for a deactivate event
  319.             UnloadScrap() ;
  320.         }
  321.     }
  322. }
  323.  
  324. //--------------------------------------------------------------------------------------------
  325. //
  326. //
  327. Boolean        HandleEvent( EventRecord *theEvent )
  328. {
  329.     short               thePart;
  330.     WindowPtr            theWindow ;
  331.     Rect                screenRect;
  332.     GrafPtr                oldPort ;
  333.     Point                aPoint = {100, 100};
  334.     TQ3ViewerObject     theViewer ;
  335.     ViewerDataHandle    myData ;
  336.     
  337.     switch (theEvent->what) {
  338.         case mouseDown:
  339.         
  340.             thePart = FindWindow( theEvent->where, &theWindow );
  341.             
  342.             switch( thePart ) {
  343.                 case inMenuBar: 
  344.                     MyAdjustMenus() ;
  345.                     HandleMenuCommand(MenuSelect(theEvent->where));
  346.                     break;
  347.                 
  348.                 case inDrag:
  349.                     screenRect = (**GetGrayRgn()).rgnBBox;
  350.                     DragWindow( theWindow, theEvent->where, &screenRect );
  351.                     break ;
  352.             
  353.                 case inContent:
  354.                     if (theWindow != FrontWindow())
  355.                         SelectWindow( theWindow );
  356.                     break ;
  357.             
  358.                 case inGoAway:
  359.                     if (TrackGoAway( theWindow, theEvent->where )) {
  360.                         MyDisposeViewerWindow( theWindow ) ;
  361.                     }
  362.                     break ;
  363.                     
  364.                 default:
  365.                     break ;
  366.             }
  367.             break ;
  368.                     
  369.                 
  370.         case updateEvt:
  371.         
  372.             theWindow = (WindowPtr)theEvent->message;
  373.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  374.             theViewer = (**myData).theViewer ;
  375.             
  376.             GetPort(&oldPort ) ;    
  377.             SetPort( theWindow );
  378.             
  379.             BeginUpdate( theWindow );
  380.             Q3ViewerDraw( theViewer ) ;
  381.             EndUpdate( theWindow );
  382.             
  383.             SetPort( oldPort ) ;
  384.             
  385.             break ;
  386.             
  387.         case keyDown:
  388.         case autoKey:
  389.             HandleKeyPress(theEvent);
  390.             break;
  391.             
  392.         case diskEvt:
  393.             if ( HiWrd(theEvent->message) != noErr ) 
  394.                 (void) DIBadMount(aPoint, theEvent->message);
  395.             break;
  396.             
  397.         case osEvt:
  398.             break ;
  399.         case activateEvt:
  400.             if ((theWindow = (WindowPtr) theEvent->message) != nil) {
  401.                 HandleActivateWindow(theWindow, (theEvent->modifiers & activeFlag));
  402.             }
  403.  
  404.             break;
  405.  
  406.         case kHighLevelEvent:                        // Let the Apple Event Manager handle high level event.
  407.             AEProcessAppleEvent(theEvent);
  408.             break;
  409.  
  410.     }
  411.     return true ;
  412. }
  413.  
  414.  
  415. //--------------------------------------------------------------------------------------------
  416. //
  417. //
  418. void HandleKeyPress(EventRecord *event)
  419. {
  420.     char    key;
  421.  
  422.     key = event->message & charCodeMask;
  423.     
  424.     // just check to see if we want to quit...
  425.     
  426.     if ( event->modifiers & cmdKey ) {        /* Command key down? */
  427.         HandleMenuCommand(MenuKey(key));
  428.     } 
  429. }
  430.  
  431. //--------------------------------------------------------------------------------------------
  432. //
  433. //
  434.  
  435. static void HandleAboutApp( void )
  436. {
  437.     ModalFilterUPP         theProc ;
  438.     DialogPtr            theDialog ; 
  439.     short                itemHit ;
  440.  
  441.     theDialog = GetNewDialog ( kMyAboutDialogID, nil, (WindowPtr)-1 );
  442.     
  443.     // these two lil' snappers are system 7 only
  444.     // so if you use them, check before!!
  445.     // in this app we will only run on Power
  446.     // Macintosh, so we don't check
  447.     
  448.     GetStdFilterProc( &theProc ) ;
  449.     SetDialogDefaultItem(theDialog, ok) ;
  450.     
  451.     // put the dialog up and loop 'til
  452.     // the user hits the OK button
  453.     
  454.     do {
  455.         ModalDialog ( theProc, &itemHit );
  456.     } while( itemHit != ok ) ;
  457.     
  458.     DisposeDialog ( theDialog );
  459. }
  460.  
  461. //--------------------------------------------------------------------------------------------
  462. //
  463. //
  464. static OSErr HandleOpenDoc(FSSpec *theFile)
  465. {
  466.     OSErr                err ;
  467.     short                theRef ;
  468.     ViewerDataHandle    myData ;
  469.     TQ3ViewerObject     theViewer ;
  470.     WindowPtr            theWindow ;
  471.  
  472.     // display the contents
  473.     theWindow = (WindowPtr)MyCreateViewerWindow() ;
  474.     
  475.     // open the file
  476.     err = FSpOpenDF( theFile, fsRdPerm, &theRef ) ;
  477.     if (err == noErr)
  478.     {
  479.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  480.         theViewer = (**myData).theViewer ;
  481.         (**myData).theFile = *theFile ;
  482.         (**myData).isFileValid = true ;
  483.         Q3ViewerUseFile(theViewer, theRef) ;
  484.         err = FSClose(theRef) ;
  485.     }
  486.     
  487.     // set the window title
  488.     SetWTitle( theWindow, theFile->name );
  489.     MyAdjustMenus() ;
  490.     return err ;
  491. }
  492.  
  493.  
  494. //--------------------------------------------------------------------------------------------
  495. //
  496. //
  497. void HandleMenuCommand(long menuResult)
  498. {
  499.     short                menuID;
  500.     short                menuItem;
  501.     Str255                daName;
  502.     
  503.  
  504.     short                numTypes = 2 ;
  505.     SFTypeList            myTypes = { '3DMF', 'TEXT', 0 } ;
  506.     OSErr                err ;
  507.     short                theRef ;
  508.     
  509.     ViewerDataHandle    myData ;
  510.     TQ3ViewerObject     theViewer ;
  511.     WindowPtr            theWindow ;
  512.     GrafPtr                savedPort ;
  513.     
  514.     FSSpec                theFile ;
  515.         
  516.     StandardFileReply    theSFReply ;
  517.  
  518.     menuID = HiWrd(menuResult);
  519.     menuItem = LoWrd(menuResult);
  520.     
  521.     switch ( menuID ) {
  522.         //
  523.         //--------------------------------------------------------------------------    
  524.         //
  525.         case mApple:
  526.             switch ( menuItem ) {
  527.  
  528.                 case iAbout:
  529.                     HandleAboutApp() ;    
  530.                     break ;
  531.                                 
  532.                 default:
  533.                     GetMenuItemText(GetMenuHandle(mApple), menuItem, daName);
  534.                     (void) OpenDeskAcc(daName);
  535.                     break;
  536.             }
  537.             break;
  538.         //
  539.         //--------------------------------------------------------------------------    
  540.         //
  541.         case mFile:
  542.             switch ( menuItem ) {
  543.                 case iNew:
  544.                     // display the contents
  545.                     (void)MyCreateViewerWindow() ;
  546.                     break ;
  547.                 
  548.                 case iOpen:
  549.                     // Get the file name to open
  550.                     StandardGetFile( nil, numTypes, myTypes, &theSFReply ) ;
  551.                     
  552.                     // did the user cancel, if not open the file?
  553.                     if(theSFReply.sfGood)
  554.                         MySendOpenDoc(&theSFReply.sfFile) ;
  555.  
  556.                     break ;
  557.                     
  558.                     
  559.                 case iRevert:
  560.                 
  561.                     // we know this can't be called as long as there
  562.                     // is an app window open (MyAdjustMenus) so get the refcon
  563.                     // from the front window and get the FSSpec from that
  564.                     theWindow = FrontWindow() ;
  565.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  566.                     theFile = (**myData).theFile ;
  567.                     
  568.                     // open the file and read it back into the viewer
  569.                     err = FSpOpenDF( &theFile, fsRdPerm, &theRef ) ;
  570.                     if (err == noErr)
  571.                     {
  572.                         theViewer = (**myData).theViewer ;
  573.                         Q3ViewerUseFile(theViewer, theRef) ;
  574.                         err = FSClose(theRef) ;
  575.                     }
  576.                     GetPort( &savedPort ) ;
  577.                     SetPort((GrafPtr)theWindow) ;
  578.                     InvalRect( &theWindow->portRect ) ;
  579.                     SetPort( savedPort ) ;
  580.                     break ;        
  581.                             
  582.                 case iSave:                
  583.                 
  584.                     // we know this can't be called as long as there
  585.                     // is an app window open (MyAdjustMenus) so get the refcon
  586.                     // from the front window and get the FSSpec from that
  587.                     theWindow = FrontWindow() ;
  588.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  589.                     theFile = (**myData).theFile ;
  590.                     theViewer = (**myData).theViewer ;
  591.  
  592.                     // assumes the original file still exists
  593.                     err = FSpOpenDF(&theFile, fsWrPerm, &theRef);
  594.                     if (err == noErr)
  595.                     {
  596.                         Q3ViewerWriteFile(theViewer, theRef);
  597.                         err = FSClose(theRef);
  598.                     }
  599.                     break ;
  600.                 
  601.                 case iSaveAs:
  602.                     // we know this can't be called as long as there
  603.                     // is an app window open (MyAdjustMenus) so get the refcon
  604.                     // from the front window and get the FSSpec from that
  605.                     theWindow = FrontWindow() ;
  606.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  607.                     theViewer = (**myData).theViewer ;
  608.  
  609.                     StandardPutFile("\pSave model as:", "\pUntitled", &theSFReply);
  610.                     if (theSFReply.sfGood)
  611.                     {
  612.                         err = FSpOpenDF(&theSFReply.sfFile, fsWrPerm, &theRef);
  613.                         if (err != noErr)
  614.                         {
  615.                             err = FSpCreate(&theSFReply.sfFile, '????', '3DMF', theSFReply.sfScript);
  616.                             if (err == noErr)
  617.                                 err = FSpOpenDF(&theSFReply.sfFile, fsCurPerm, &theRef);
  618.                         }
  619.                         if (err == noErr)
  620.                         {
  621.                             Q3ViewerWriteFile(theViewer, theRef);
  622.                             err = FSClose(theRef);
  623.                         }
  624.                         
  625.                         // set up our record of the file location,
  626.                         // update the structure
  627.                         theWindow = FrontWindow() ;
  628.                         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  629.                         theViewer = (**myData).theViewer ;
  630.                         (**myData).theFile = theSFReply.sfFile ;
  631.                         (**myData).isFileValid = true ;
  632.                         
  633.                         // reset the window title
  634.                         SetWTitle( theWindow, theSFReply.sfFile.name );
  635.                     }
  636.                     break;                
  637.                 
  638.                 case iClose:
  639.                     MyDisposeViewerWindow ( FrontWindow() );
  640.                     break ;
  641.                     
  642.                 case iQuit:
  643.                     MySendQuitApp();
  644.                     break;
  645.             }
  646.             break;
  647.             
  648.             
  649.         //
  650.         //--------------------------------------------------------------------------    
  651.         //
  652.         case mEdit:
  653.             // display the contents
  654.             theWindow = FrontWindow() ;
  655.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  656.             theViewer = (**myData).theViewer ;
  657.             switch(menuItem)
  658.             {
  659.                 case iCut:
  660.                     Q3ViewerCut(theViewer);
  661.                     break;
  662.                 case iCopy:
  663.                     Q3ViewerCopy(theViewer);
  664.                     break;
  665.                 case iPaste:
  666.                     Q3ViewerPaste(theViewer);
  667.                     break;
  668.                 case iClear:
  669.                     Q3ViewerClear(theViewer);
  670.                     break;
  671.                 default:
  672.                     break;
  673.             }
  674.             break; 
  675.  
  676.     }
  677.     HiliteMenu(0);        // Unhighlight whatever MenuSelect or MenuKey hilited
  678. }
  679.  
  680. //--------------------------------------------------------------------------------------------
  681. //
  682. //
  683. void MyAdjustMenus( void ) 
  684. {
  685.     WindowPtr            theWindow ;
  686.     ViewerDataHandle    myData ;
  687.     MenuHandle            theMenu ;
  688.  
  689.     theWindow = FrontWindow() ;
  690.     
  691.     
  692.     if( theWindow != nil ) {
  693.     
  694.         theMenu =  GetMenuHandle ( mFile ) ;
  695.         
  696.         EnableItem ( theMenu, iClose );
  697.         EnableItem ( theMenu, iSaveAs );
  698.                  
  699.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  700.         
  701.          if(    (**myData).isFileValid) {
  702.             EnableItem ( theMenu, iSave );
  703.             EnableItem (theMenu, iRevert );
  704.          }
  705.          else {
  706.             DisableItem ( theMenu, iSave );
  707.             DisableItem ( theMenu, iRevert );
  708.          
  709.          }
  710.          
  711.          EnableItem ( GetMenuHandle ( mEdit ), 0 );
  712.  
  713.     }
  714.     else {
  715.  
  716.         theMenu =  GetMenuHandle ( mFile ) ;
  717.  
  718.         DisableItem ( theMenu, iClose );
  719.         DisableItem ( theMenu, iRevert );
  720.         DisableItem ( theMenu, iSave );
  721.         DisableItem ( theMenu, iSaveAs );
  722.         
  723.         DisableItem ( GetMenuHandle ( mEdit ), 0 );
  724.     }
  725.     
  726.     // we don't support undo
  727.     DisableItem ( GetMenuHandle ( mEdit ), iUndo );
  728.     
  729.     DrawMenuBar() ;
  730. }
  731.  
  732.  
  733. //--------------------------------------------------------------------------------------------
  734. //
  735. //
  736. OSErr    MyDisposeViewerWindow( WindowPtr theWindow )
  737. {
  738.     TQ3ViewerObject     theViewer ;
  739.     ViewerDataHandle    myData ;
  740.     
  741.     if( theWindow == nil)
  742.         return paramErr ;
  743.  
  744.     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  745.     theViewer = (**myData).theViewer ;
  746.     
  747.     DisposeHandle((Handle)myData);
  748.     DisposeWindow(theWindow);
  749.     
  750.     MyAdjustMenus() ;
  751.     return     Q3ViewerDispose(theViewer);
  752. }
  753.  
  754.  
  755. //--------------------------------------------------------------------------------------------
  756. //
  757. //
  758. CGrafPtr MyCreateViewerWindow(  )
  759. {
  760.  
  761.     Rect                theRect ;
  762.     GrafPtr                savedPort ;
  763.     TQ3ViewerObject        myViewerObj ;
  764.     WindowPtr            theWindow ;
  765.     ViewerDataHandle    myData = (ViewerDataHandle)NewHandle(sizeof(ViewerData)) ;
  766.     
  767.     GetPort( &savedPort ) ;
  768.         
  769.     // set the new rect up with a stagger for multiple windows
  770.     SetRect(    &theRect, 
  771.                 gStaggerPos.h, 
  772.                 gStaggerPos.v, 
  773.                 gStaggerPos.h + kWindowWidth, 
  774.                 gStaggerPos.v + kWindowHeight );
  775.  
  776.     gStaggerPos.h += 16 ;
  777.     gStaggerPos.v += 16 ;        // this is not "real staggering code, it don't wrap ;        
  778.                          
  779.     theWindow  = NewCWindow(    nil, 
  780.                                 &theRect, 
  781.                                 "\pUntitled", 
  782.                                 false, 
  783.                                 documentProc, 
  784.                                 (WindowPtr)-1, 
  785.                                 true, 
  786.                                 0L );    
  787.                     
  788.     SetPort( (GrafPtr)theWindow ) ;
  789.     
  790.     // set up the viewer object here
  791.     myViewerObj = Q3ViewerNew ((CGrafPtr)theWindow,  &theWindow->portRect,  kQ3ViewerDefault) ; 
  792.     
  793.     //stuff the reference to the viewer in the RefCon field of the Window
  794.     (**myData).theViewer = myViewerObj ;
  795.     (**myData).isFileValid = false ;
  796.     SetWRefCon( theWindow, (long)myData );
  797.     
  798.     // make sure it is visible
  799.     ShowWindow( theWindow ) ;
  800.     
  801.     // invalidate the content region of the window - 
  802.     // we don't do any drawing to it here.
  803.     InvalRect ( &theRect );
  804.     SetPort( savedPort ) ;
  805.     
  806.     return (CGrafPtr)theWindow ;
  807. }
  808.  
  809.  
  810. //-----------------------------------------------------------------------
  811. // returns true if the platform supports appleevents - we won't run
  812. // if it doesn't
  813.  
  814. Boolean SupportsAEVT(void)
  815. {
  816.     OSErr err;
  817.     long response;
  818.         
  819.     err = Gestalt(gestaltAppleEventsAttr,&response);
  820.     if (err!=noErr)
  821.         return false;
  822.         
  823.     return (response && (response << gestaltAppleEventsPresent));
  824. }
  825.  
  826. //-----------------------------------------------------------------------
  827. // called to register our appleevent handlers
  828.  
  829. void RegisterMyEvents(void)
  830. {
  831.     OSErr err;
  832.     
  833.     if (!SupportsAEVT())
  834.         return;
  835.     
  836.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenApplication,NewAEEventHandlerProc(MyAEHandleOAPP),0L,false);
  837.     if (err!=noErr)
  838.         return;
  839.                 
  840.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenDocuments,NewAEEventHandlerProc(MyAEHandleODOC),0L,false);
  841.     if (err!=noErr)
  842.         return;
  843.                 
  844.     err = AEInstallEventHandler(kCoreEventClass,kAEPrintDocuments,NewAEEventHandlerProc(MyAEHandlePDOC),0L,false);
  845.     if (err!=noErr)
  846.         return;
  847.                 
  848.     err = AEInstallEventHandler(kCoreEventClass,kAEQuitApplication,NewAEEventHandlerProc(MyAEHandleQUIT),0L,false);
  849.     if (err!=noErr)
  850.         return;
  851. }
  852.  
  853. //-----------------------------------------------------------------------
  854. // open application event handler for the core event suite, 
  855. // by default we just want a blank new document
  856.  
  857. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  858. {
  859.     // we don't actually do anything on open - you could,
  860.     // for example you might want to open a blank untitled 
  861.     // window
  862.     
  863.     OSErr err = noErr ;
  864.     return err;
  865. }
  866.  
  867.  
  868. //-----------------------------------------------------------------------
  869. // handler for the open document appleevent handler
  870.  
  871. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  872. {
  873.     FSSpec         myFSS;
  874.     AEDescList    docList;
  875.     OSErr        err,
  876.                 ignoreErr;
  877.     long        index,
  878.                 itemsInList;
  879.     Size         actualSize;
  880.     AEKeyword    keywd;
  881.     DescType    returnedType;
  882.  
  883.     
  884.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  885.     if (err == noErr) {
  886.     
  887.         // see how many descriptor items are in the list
  888.         // this is the number of documents we want to open
  889.         err = AECountItems(&docList,&itemsInList);
  890.  
  891.         // now get each descriptor record from the list
  892.         // coerce the returned data to an FSSpec record, and
  893.         // open the asoociated file
  894.         
  895.         for (index=1; index <= itemsInList && err == noErr; index++) {
  896.         
  897.             err = AEGetNthPtr(    &docList, 
  898.                                 index,
  899.                                 typeFSS,
  900.                                 &keywd,
  901.                                 &returnedType,
  902.                                 (Ptr)&myFSS,
  903.                                 sizeof(myFSS),
  904.                                 &actualSize);
  905.     
  906.             if (err == noErr)    {
  907.             
  908.                 FInfo        fndrInfo ;
  909.                 
  910.                 // we now have a valid FSSpec to reference the file, we need to know 
  911.                 // what type the file is to determine which file open function to call
  912.                 // we can determine this from the finder info for the file
  913.                 
  914.                 err = FSpGetFInfo( &myFSS, &fndrInfo );    
  915.                 
  916.                 // if we got that ok, then we switch on the file  
  917.                 // type (we don't care about the creator type)    
  918.                         
  919.                 if (err == noErr)    {
  920.                 
  921.                     switch( fndrInfo.fdType ) {
  922.                         case 'TEXT':
  923.                         case '3DMF':
  924.                             err =  HandleOpenDoc(&myFSS);
  925.                             break ;
  926.                     }
  927.                 }
  928.             }
  929.         }
  930.         ignoreErr = AEDisposeDesc(&docList);
  931.     }
  932.     return err ;
  933. }
  934.  
  935. //-----------------------------------------------------------------------
  936. // handler for the print document event handler
  937.  
  938. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  939. {
  940.     FSSpec         myFSS;
  941.     AEDescList    docList;
  942.     OSErr        err;
  943.     long        index,
  944.                 itemsInList;
  945.     Size         actualSize;
  946.     AEKeyword    keywd;
  947.     DescType    returnedType;
  948.  
  949.     
  950.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  951.     if (err == noErr) {
  952.     
  953.         // see how many descriptor items are in the list
  954.         // this is the number of documents we want to open
  955.         err = AECountItems(&docList,&itemsInList);
  956.  
  957.         // now get each descriptor record from the list
  958.         // coerce the returned data to an FSSpec record, and
  959.         // open the asoociated file
  960.         
  961.         for (index=1; index <= itemsInList && err == noErr; index++) {
  962.         
  963.             err = AEGetNthPtr(    &docList, 
  964.                                 index,
  965.                                 typeFSS,
  966.                                 &keywd,
  967.                                 &returnedType,
  968.                                 (Ptr)&myFSS,
  969.                                 sizeof(myFSS),
  970.                                 &actualSize);
  971.     
  972.             if (err == noErr)    {                    
  973.                 // err = HandlePrintDoc( &myFSS );
  974.                 err = errAEEventNotHandled ;         // we don't do this yet...
  975.             }
  976.         }
  977.         err = AEDisposeDesc(&docList);
  978.     }
  979.     return err ;
  980. }
  981.  
  982. //-----------------------------------------------------------------------
  983. // quit appleevent handler
  984.  
  985. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  986. {
  987.     OSErr             err = noErr ;        // used as return value
  988.     WindowPtr        theWindow ;
  989.     Boolean            quitting = true ;
  990.  
  991.     
  992.     // close all windows and signal to Quit
  993.  
  994.         
  995.     // attempt to close all documents
  996.     while(( theWindow = FrontWindow()) != nil && quitting )
  997.         quitting = (MyDisposeViewerWindow( theWindow ) == noErr);    
  998.         
  999.  
  1000.     // if we closed everything up successfully, we can return noErr, otherwise
  1001.     // indicate to sender of the 'quit' aevt that we canceled
  1002.     
  1003.     if (quitting) {
  1004.         gQuitFlag = true;                    // user didn't cancel
  1005.          AEDisposeDesc(&gSelfAddress);        // Dispose of my self-addressed descriptor.
  1006.     }
  1007.     else {
  1008.         err = userCanceledErr ;
  1009.     }
  1010.             
  1011.     return err ;
  1012. }
  1013.  
  1014.  
  1015. //----------------------------------------------------------------------------------//
  1016. //    Send a Quit Application Apple Event to myself to terminate this app.        
  1017.  
  1018. void MySendQuitApp( void )
  1019. {
  1020.     AppleEvent    myAppleEvent, reply;
  1021.     
  1022.     //    Create the Apple Event.
  1023.     FailIfErr(AECreateAppleEvent( kCoreEventClass, 
  1024.                                   kAEQuitApplication, 
  1025.                                   &gSelfAddress,
  1026.                                   kAutoGenerateReturnID, 
  1027.                                   kAnyTransactionID, 
  1028.                                   &myAppleEvent));
  1029.                                   
  1030.     //    Send the Apple Event.
  1031.       FailIfErr(AESend( &myAppleEvent, 
  1032.                         &reply, 
  1033.                         kAENoReply+kAENeverInteract, 
  1034.                         kAENormalPriority,
  1035.                         kAEDefaultTimeout, 
  1036.                         nil, 
  1037.                         nil));
  1038.                         
  1039.       AEDisposeDesc(&myAppleEvent);                // Dispose of the Apple Event.
  1040. } // MySendQuitApp
  1041.  
  1042.  
  1043. //----------------------------------------------------------------------------------//
  1044. //    Send a Open Document Application Apple Event to myself to open a document.        
  1045.  
  1046. void MySendOpenDoc(FSSpec *myFSSpec)
  1047. {
  1048.      AppleEvent    myAppleEvent;
  1049.     AppleEvent    defReply;
  1050.     AEDescList    docList;
  1051.     OSErr         myErr;
  1052.     OSErr         ignoreErr;
  1053.     
  1054.     myAppleEvent.dataHandle = nil;
  1055.     docList.dataHandle  = nil;
  1056.     defReply.dataHandle = nil;
  1057.         
  1058.     // Create empty list and add one file spec
  1059.     FailIfErr(AECreateList(nil,0,false, &docList));
  1060.     
  1061.     FailIfErr(AEPutPtr(&docList,1,typeFSS,(Ptr)myFSSpec,sizeof(FSSpec)));
  1062.         
  1063.     FailIfErr(AECreateAppleEvent(    kCoreEventClass,
  1064.                                     kAEOpenDocuments,
  1065.                                     &gSelfAddress,
  1066.                                     kAutoGenerateReturnID,
  1067.                                     kAnyTransactionID,
  1068.                                     &myAppleEvent));
  1069.  
  1070.     // Put Params into our event and send it
  1071.  
  1072.     FailIfErr(AEPutParamDesc( &myAppleEvent,
  1073.                               keyDirectObject,
  1074.                               &docList));
  1075.  
  1076.     FailIfErr(AESend( &myAppleEvent,
  1077.                       &defReply,
  1078.                       kAENoReply+kAENeverInteract,
  1079.                       kAENormalPriority,
  1080.                       kAEDefaultTimeout,
  1081.                       nil,
  1082.                       nil));
  1083.         
  1084.         
  1085.     if (myAppleEvent.dataHandle) 
  1086.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  1087.         
  1088.     if (docList.dataHandle) 
  1089.         ignoreErr = AEDisposeDesc(&docList);
  1090.             
  1091. }    // MySendOpenDoc 
  1092.