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