home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / code / c_bmug5.sit < prev    next >
Encoding:
Text File  |  1988-06-20  |  17.0 KB  |  711 lines
  1. 18-Jun-88 15:13:21-MDT,18034;000000000000
  2. Return-Path: <u-lchoqu%sunset@cs.utah.edu>
  3. Received: from cs.utah.edu by SIMTEL20.ARPA with TCP; Sat, 18 Jun 88 15:12:51 MDT
  4. Received: by cs.utah.edu (5.54/utah-2.0-cs)
  5.     id AA22096; Sat, 18 Jun 88 14:25:13 MDT
  6. Received: by sunset.utah.edu (5.54/utah-2.0-leaf)
  7.     id AA24506; Sat, 18 Jun 88 14:25:10 MDT
  8. Date: Sat, 18 Jun 88 14:25:10 MDT
  9. From: u-lchoqu%sunset@cs.utah.edu (Lee Choquette)
  10. Message-Id: <8806182025.AA24506@sunset.utah.edu>
  11. To: rthum@simtel20.arpa
  12. Subject: BMUG5.c
  13.  
  14. #include    "MacCDefs.h"
  15. #include     "Window.h"
  16. #include     "Events.h"
  17. #include     "TextEdit.h"
  18. #include     "Font.h"
  19. #include     "Menu.h"
  20.  
  21.     
  22. #define     FALSE    0
  23. #define    NIL            0
  24. #define     TRUE         1
  25. #define     Desk_ID     200
  26. #define     Edit_ID     201
  27. #define     Window_ID 202
  28. #define    TE_ID        203
  29. #define    Font_ID    204
  30. #define    Style_ID    205
  31. #define    iBeamCursor    1
  32.  
  33. #define    teNormal        0x0000
  34. #define    teBold            0x0100
  35. #define    teItalic            0x0200
  36. #define    teUnderline    0x0400
  37. #define    teOutline        0x0800
  38. #define    teShadow    0x1000
  39. #define    teCondense    0x2000
  40. #define    teExtend        0x4000
  41.  
  42. //    Global Variables
  43.  
  44.     WindowPtr             theWindow,windPtrA,windPtrB;
  45.     WindowRecord     windRecordA,windRecordB;
  46.     TEHandle            theText;
  47.     Rect                     screenRect         = {0, 0, 384, 512};
  48.     Rect                     windowRectA,windowRectB;
  49.     MenuHandle         deskMenu,editMenu,windowMenu,teMenu,fontMenu,styleMenu;
  50.     char                        *titleA = "\10Window A";
  51.     char                        *titleB = "\10Window B";
  52.     short                    doUpdates;
  53.     CursHandle            iBeam;
  54.  
  55. //    External or Non-Integer functions
  56.  
  57.     WindowPtr     openWindow();
  58.     TEHandle    openTE();
  59.     extern             struct P_Str *CtoPstr();
  60.  
  61.     int strlen(str) char *str;
  62.         {int i=0; while (str[i++]); return i-1;}
  63.         
  64.     reStartProc()
  65.         {ExitToShell();}
  66.  
  67.  
  68. //    Initialization Routine
  69.  
  70. Init()                                                                                                      /* Init() */
  71. { 
  72.     InitDialogs(reStartProc);
  73.     TEInit();
  74.     putUpMenus();
  75.     iBeam = GetCursor(iBeamCursor);
  76.  
  77.     SetRect(&windowRectA ,5, 50, 500, 290);
  78.     SetRect(&windowRectB ,5, 60, 500, 300);
  79.         
  80.     theWindow = NIL;
  81.     theText = NIL;
  82.     doUpdates = TRUE;
  83.     
  84.     windPtrB = openWindow(&windRecordB,&windowRectB,titleB);
  85.     windPtrA = openWindow(&windRecordA,&windowRectA,titleA);
  86. }
  87.     
  88.  
  89. //    Main
  90.  
  91. main()                                                                                                                 /* main() */
  92. { 
  93.     char         c;
  94.     short         windowcode;
  95.     
  96.     EventRecord     theEvent;
  97.     WindowPtr         mouseWindow;
  98.     WindowPtr         tempWindow;
  99.                     
  100.     
  101.     Init();
  102.     
  103.     InitCursor();
  104.     FlushEvents(-1);
  105.     SelectWindow(windPtrA);                       /* Generate an activate event for window A */
  106.     SetPort(windPtrA);
  107.     
  108.     while (TRUE)  {
  109.     
  110.         SystemTask();
  111.         if(theText) {
  112.             TEIdle(theText);
  113.             ChangeMouse();
  114.         }
  115.         
  116.         
  117.         if (GetNextEvent(everyEvent, &theEvent)) {
  118.             switch ( theEvent.what )  {
  119.                   case autoKey:
  120.                  case keyDown:  
  121.                         c = theEvent.message & charCodeMask;
  122.                         if ((theEvent.modifiers & cmdKey)) {
  123.                             doMenuItem(MenuKey(c));
  124.                         } else {
  125.                             if(theText) TEKey(c, theText);
  126.                         }
  127.                     break;
  128.                 
  129.       
  130.                   case mouseDown: 
  131.                     windowcode = FindWindow(&theEvent.where, &mouseWindow);
  132.                     
  133.                     /* mouseDown occurs in active window */
  134.                     if ((FrontWindow() == mouseWindow) && (mouseWindow != NIL)) {
  135.                           activeWindowEvt(&theEvent,mouseWindow,windowcode);
  136.                         break;
  137.                       }
  138.                     
  139.                     /* mouseDown occurs in inactive window */
  140.                     if ((FrontWindow() != mouseWindow) && (mouseWindow != NIL)) {
  141.                             /* Activate window if not Front window -UNLESS cmdKey & inDrag */
  142.                             if( !((theEvent.modifiers & cmdKey) && (windowcode == inDrag)) ) {
  143.                                 SelectWindow(mouseWindow);
  144.                                 break;
  145.                             }
  146.                         inactiveWindowEvt(&theEvent,mouseWindow,windowcode);
  147.                         break;
  148.                     }
  149.         
  150.                     /* mouseDown does not occur in a window */
  151.                     if (mouseWindow == NIL) {
  152.                           notaWindowEvt(&theEvent,mouseWindow,windowcode);
  153.                         break;
  154.                     }
  155.                     
  156.                  case updateEvt:
  157.                     if(doUpdates) doUpdateEvt(&theEvent);
  158.                     break;
  159.       
  160.                  case activateEvt:
  161.                     doActivateEvt(&theEvent);
  162.                     break;
  163.  
  164.             }
  165.         }
  166.     }  
  167. }
  168.  
  169.  
  170. //    mouseDown event handler #1 - Active window                           /* activeWindowEvt() */
  171.  
  172. activeWindowEvt(theEvent,mouseWindow,windowcode)
  173. EventRecord        *theEvent;
  174. WindowPtr            mouseWindow;
  175. short                    windowcode;
  176. {
  177.     long                 growResult;
  178.  
  179.     SetPort(mouseWindow);
  180.     switch ( windowcode ) {
  181.         case inContent: 
  182.             GlobalToLocal(&theEvent->where);
  183.             TEClick(&theEvent->where,(theEvent->modifiers & shiftKey)? TRUE :FALSE, theText);
  184.             break;
  185.                                 
  186.         case inDrag:
  187.             DragWindow(mouseWindow, &theEvent->where, &screenRect);
  188.             break;
  189.                                   
  190.         case inGrow:
  191.             growResult = GrowWindow(mouseWindow, &theEvent->where, &screenRect);
  192.             SizeWindow(mouseWindow, LoWord(growResult), HiWord(growResult), TRUE);
  193.             EraseRect(&mouseWindow->portRect);
  194.             InvalRect(&mouseWindow->portRect);
  195.             SizeTE(mouseWindow);
  196.             DrawGrowIcon(mouseWindow);
  197.             break;
  198.                                     
  199.         case inGoAway:
  200.             if (TrackGoAway(theWindow, &theEvent->where))  {
  201.                 TEDispose(theText);
  202.                 theText = NIL;
  203.                 if(theWindow == windPtrA) windPtrA = NIL;
  204.                 if(theWindow == windPtrB) windPtrB = NIL;
  205.                 DisposeWindow(theWindow);
  206.                 theWindow = NIL;
  207.                 SetMenus(theText,FALSE);
  208.             }
  209.             break;
  210.             
  211.         case inSysWindow:
  212.             SystemClick(theEvent,mouseWindow);
  213.             break;
  214.     } 
  215. }
  216.  
  217.  
  218. //    mouseDown event handler #2 - inactive  window                       /* inactiveWindowEvt() */      
  219.  
  220. inactiveWindowEvt(theEvent,mouseWindow,windowcode)
  221. EventRecord        *theEvent;
  222. WindowPtr            mouseWindow;
  223. short                    windowcode;
  224. {
  225.     switch ( windowcode ) {
  226.         case inDrag:
  227.             DragWindow(mouseWindow, &theEvent->where, &screenRect);
  228.             break;
  229.         case inSysWindow:
  230.             SystemClick(theEvent,mouseWindow);
  231.             break;
  232.     }
  233. }
  234.  
  235.  
  236. //    mouseDown event handler #3 -  no window                                    /* notaWindowEvt() */      
  237.  
  238. notaWindowEvt(theEvent,mouseWindow,windowcode)
  239. EventRecord        *theEvent;
  240. WindowPtr            mouseWindow;
  241. short                    windowcode;
  242. {
  243.     switch ( windowcode ) {
  244.         case inMenuBar:
  245.             doMenuItem(MenuSelect(&theEvent->where));
  246.             break;
  247.         case inDesk:
  248.             SysBeep(1);
  249.             break;
  250.     }
  251. }
  252.  
  253.  
  254. //    Update event handler                                                                         /* doUpdateEvt() */
  255.  
  256. doUpdateEvt(theEvent)
  257. EventRecord    *theEvent;
  258. {
  259.     WindowPtr        tempWindow,oldPort;
  260.     TEHandle        tempText;
  261.     
  262.     GetPort(&oldPort);
  263.     SetPort(tempWindow = (WindowPtr)theEvent->message);
  264.     BeginUpdate(tempWindow);
  265.     tempText = (TEHandle)GetWRefCon(tempWindow);
  266.     TEUpdate(&tempWindow->portRect, tempText);
  267.     DrawGrowIcon(tempWindow);
  268.     EndUpdate(tempWindow);
  269.     SetPort(oldPort);
  270.     return;
  271.  }
  272.  
  273.  
  274.  //    Activate event handler                                                                         /* doActivateEvt() */
  275.  
  276. doActivateEvt(theEvent)
  277. EventRecord    *theEvent;
  278. {
  279.     WindowPtr        tempWindow;
  280.     TEHandle         tempText;
  281.     
  282.     SetPort(tempWindow = (WindowPtr)theEvent->message);
  283.     tempText = (TEHandle)GetWRefCon(tempWindow);
  284.     if ((theEvent->modifiers & activeFlag)) {
  285.         theWindow = tempWindow;
  286.         TEActivate(theText = tempText);
  287.         SetMenus(theText,TRUE);
  288.     } else {
  289.         TEDeactivate(tempText);
  290.         theText = NIL;
  291.         SetMenus(theText,FALSE);
  292.     }
  293.     DrawGrowIcon(tempWindow);
  294.     return;
  295. }
  296.  
  297.  
  298. //    Put up a new Window
  299.  
  300. WindowPtr openWindow(wRec,rect,title)                                            /* openWindow() */
  301. WindowRecord    *wRec;
  302. Rect                    *rect;
  303. char                    *title;
  304. {
  305.     WindowPtr     tempWindow;
  306.     TEHandle    tempText;
  307.     
  308.     tempWindow = NewWindow(wRec,rect, title, TRUE, 0, -1, TRUE, 0);
  309.     SetPort(tempWindow);
  310.     TextFont(newYork);
  311.     TextFace(boldStyle);
  312.     TextSize(12);
  313.     tempText = openTE(tempWindow);
  314.     SetWRefCon(tempWindow, tempText);
  315.     TEUpdate(&(*tempText)->viewRect, tempText);
  316.     (*tempText)->crOnly = 1;
  317.     return tempWindow;
  318. }
  319.  
  320.  
  321. //    Get a New a TEHandle
  322.  
  323. TEHandle openTE(tempWindow)
  324. WindowPtr tempWindow;
  325. {
  326.     Rect             destRect, viewRect;
  327.  
  328.     DupPortRect(tempWindow, &viewRect);
  329.     viewRect.right -= 16;        /* Make room for scroll bar */
  330.     viewRect.bottom -= 16;    /* Make room for scroll bar */
  331.     DupPortRect(tempWindow, &destRect);
  332.     destRect.right -= 16;        /* Make room for scroll bar */
  333.     destRect.bottom -= 16;    /* Make room for scroll bar */
  334.     destRect.left += 4;            /* indent a bit */
  335.     return TENew(&destRect, &viewRect);
  336. }
  337.   
  338.  
  339.  
  340. //    ReSize Suffix Rects
  341.  
  342. sizeTE(tempWindow)                                                                                            /* sizeTE() */
  343. WindowPtr tempWindow;
  344. {
  345.     Rect             rect;
  346.     TEHandle    tempText;
  347.     
  348.     tempText = (TEHandle)GetWRefCon(tempWindow);
  349.     DupPortRect(tempWindow, &rect);
  350.     rect.right -= 16;        /* Make room for scroll bar */
  351.     rect.bottom -= 16;    /* Make room for scroll bar */
  352.     BlockMove(&rect, &(*tempText)->viewRect, sizeof(Rect));
  353.     rect.left += 4;            /* indent a bit */
  354.     BlockMove(&rect, &(*tempText)->destRect, sizeof(Rect));
  355.     TECalText(tempText);
  356. }
  357.     
  358.  
  359. //    Make a new Rect based on size of tempWindow's portRect
  360.  
  361. DupPortRect(tempWindow, rect)                                                                  /* DupPortRect() */
  362. WindowPtr     tempWindow;
  363. Rect             *rect;
  364. {
  365.     BlockMove(&tempWindow->portRect, rect, sizeof(Rect));
  366. }
  367.  
  368.  
  369. //    Puts up Menus
  370.  
  371. putUpMenus()
  372. {
  373. InitMenus();
  374.  
  375. /* Desk Accessory menu */
  376.     deskMenu = NewMenu(Desk_ID,CtoPstr("\024"));
  377.     AppendMenu(deskMenu,CtoPstr("About BMUG5...;(-"));
  378.     AddResMenu(deskMenu, 'DRVR');
  379.     InsertMenu(deskMenu, 0);
  380.  
  381. /* Edit menu */
  382.     editMenu = NewMenu(Edit_ID, CtoPstr("Edit"));
  383.     AppendMenu(editMenu,CtoPstr("(Undo/Z;(-;Cut/X;Copy/C;Paste/V;Clear/Z;(-;Select All"));
  384.     InsertMenu(editMenu, 0);
  385.  
  386. /* "Windows" menu */
  387.     windowMenu = NewMenu(Window_ID, CtoPstr("Windows"));
  388.     AppendMenu(windowMenu,CtoPstr("Window A/A;Window B/B;Do Updates;(-;Item 5/5;Quit/."));
  389.     doUpdates = TRUE;
  390.     CheckItem(windowMenu,3,doUpdates);
  391.     InsertMenu(windowMenu, 0);
  392.  
  393. /* "TE" menu */
  394.     teMenu = NewMenu(TE_ID, CtoPstr("TEStuff"));
  395.     AppendMenu(teMenu,CtoPstr("Left/L;Center/M;Right/R;(-;WordWrap"));
  396.     InsertMenu(teMenu, 0);
  397.  
  398. /* "Font" menu */
  399.     fontMenu = NewMenu(Font_ID, CtoPstr("Font"));
  400.     AppendMenu(fontMenu,CtoPstr("Chicago;New York;Geneva;Monaco"));
  401.     AppendMenu(fontMenu,CtoPstr("(-;9 point;10 point;12 point;14 point"));
  402.     InsertMenu(fontMenu, 0);
  403.  
  404. /* "Style" menu */
  405.     styleMenu = NewMenu(Style_ID, CtoPstr("Style"));
  406.     AppendMenu(styleMenu,CtoPstr("Normal;Bold;Italic;Underline;Outlined;Shadow;Condense;Extend"));
  407.     InsertMenu(styleMenu, 0);
  408.  
  409. DrawMenuBar();
  410. }
  411.  
  412.  
  413. //    Do what the menu says...
  414.  
  415. doMenuItem(menuresult)
  416. long     menuresult;
  417. { 
  418.     struct P_Str    accessoryName;
  419.     short     menuID, itemNumber;
  420.     
  421.     menuID = HiWord(menuresult);
  422.     itemNumber = menuresult;
  423.     
  424.     switch ( menuID ) {
  425.         case Window_ID:
  426.             switch ( itemNumber ) {
  427.                 case 1:                 /* item 1 is Window A*/
  428.                     if(windPtrA == NIL) {
  429.                         windPtrA = openWindow(&windRecordA,&windowRectA,titleA);
  430.                     } 
  431.                     SelectWindow(windPtrA);    
  432.                     break;
  433.                     
  434.                 case 2:                 /* item 2 is Window B*/
  435.                     if(windPtrB == NIL) {
  436.                         windPtrB = openWindow(&windRecordB,&windowRectB,titleB);
  437.                     } 
  438.                     SelectWindow(windPtrB);    
  439.                     break;
  440.                     
  441.                 case 3:                 /* item 3 is do updates */
  442.                     doUpdates = ((doUpdates) ? FALSE : TRUE);
  443.                     CheckItem(windowMenu,itemNumber,doUpdates);
  444.                     break;
  445.                     
  446.                 case 5:                 /* item 5 */
  447.                     break;
  448.                     
  449.                 case 6:                    /* item 6 is quit */
  450.                     ExitToShell();
  451.                     break;
  452.             }
  453.             break;
  454.         
  455.         case Desk_ID:
  456.             if(itemNumber == 1) {        /* item 1 is about window */
  457.                 AboutWindow();
  458.             } else {
  459.                 GetItem(deskMenu, itemNumber, &accessoryName);
  460.                 OpenDeskAcc(&accessoryName);
  461.             }
  462.             break;
  463.  
  464.         case TE_ID:
  465.             if(!theText) break;
  466.             switch(itemNumber) {
  467.                 case 1:            /* item 1 is Left Justification */
  468.                     TESetJust(teJustLeft,theText);
  469.                     break;
  470.                 case 2:            /* item 2 is Center Justification */
  471.                     TESetJust(teJustCenter,theText);
  472.                     break;
  473.                 case 3:            /* item 3 is Right Justification */
  474.                     TESetJust(teJustRight,theText);
  475.                     break;
  476.                 case 5:            /* item 5 is WordWrap */
  477.                     (*theText)->crOnly *= -1;
  478.                     EraseRect(&(*theText)->viewRect);
  479.                     break;
  480.             }
  481.             TECalText(theText);
  482.             TEUpdate(&(*theText)->viewRect, theText);
  483.             SetMenus(theText,TRUE);
  484.             break;
  485.         
  486.         case Edit_ID:
  487.             if( SystemEdit(itemNumber-1) ) break;
  488.             if(!theText) break;
  489.             switch(itemNumber) {
  490.                 case 3:            /* item 3 is Cut */
  491.                     TECut(theText);
  492.                     break;
  493.                 case 4:            /* item 4 is Copy */
  494.                     TECopy(theText);
  495.                     break;
  496.                 case 5:            /* item 5 is Paste */
  497.                     TEPaste(theText);
  498.                     break;
  499.                 case 6:            /* item 6 is Clear */
  500.                     TEDelete(theText);
  501.                     break;
  502.                 case 8:            /* item 8 is Select All */
  503.                     TESetSelect(0,65000,theText);
  504.                     break;
  505.             }
  506.             break;
  507.  
  508.         case Font_ID:
  509.             if(!theText) break;
  510.             switch(itemNumber) {
  511.                 case 1:            /* case 1 is Chicago */
  512.                     (*theText)->txFont = sysFont;
  513.                     break;
  514.                 case 2:            /* case 2 is New York */
  515.                     (*theText)->txFont = newYork;
  516.                     break;
  517.                 case 3:            /* case 3 is Geneva */
  518.                     (*theText)->txFont = geneva;
  519.                     break;
  520.                 case 4:            /* case 4 is Monaco */
  521.                     (*theText)->txFont = monaco;
  522.                     break;
  523.                 case 6:            /* case 6 is 9 point */
  524.                     (*theText)->txSize = 9;
  525.                     break;
  526.                 case 7:            /* case 7 is 10 point */
  527.                     (*theText)->txSize = 10;
  528.                     break;
  529.                 case 8:            /* case 8 is 12 point */
  530.                     (*theText)->txSize = 12;
  531.                     break;
  532.                 case 9:            /* case 9 is 14 point */
  533.                     (*theText)->txSize = 14;
  534.                     break;
  535.             }
  536.             EraseRect(&(*theText)->viewRect);
  537.             TECalText(theText);
  538.             TEUpdate(&(*theText)->viewRect, theText);
  539.             SetMenus(theText,TRUE);
  540.             break;
  541.             
  542.         case Style_ID:
  543.             if(!theText) break;
  544.             switch(itemNumber) {
  545.                 case 1:            /* case 1 is Normal    */
  546.                     (*theText)->txFace = teNormal;
  547.                     break;
  548.                 case 2:            /* case 2 is Bold    */
  549.                     (*theText)->txFace ^= teBold;
  550.                     break;
  551.                 case 3:            /* case 3 is Italic    */
  552.                     (*theText)->txFace ^= teItalic;
  553.                     break;
  554.                 case 4:            /* case 4 is Underline    */
  555.                     (*theText)->txFace ^= teUnderline;
  556.                     break;
  557.                 case 5:            /* case 5 is Outline    */
  558.                     (*theText)->txFace ^= teOutline;
  559.                     break;
  560.                 case 6:            /* case 6 is Shadow    */
  561.                     (*theText)->txFace ^= teShadow;
  562.                     break;
  563.                 case 7:            /* case 7 is Condense    */
  564.                     (*theText)->txFace ^= teCondense;
  565.                     break;
  566.                 case 8:            /* case 8 is Extend */
  567.                     (*theText)->txFace ^= teExtend;
  568.                     break;
  569.             }
  570.             EraseRect(&(*theText)->viewRect);
  571.             TECalText(theText);
  572.             TEUpdate(&(*theText)->viewRect, theText);
  573.             SetMenus(theText,TRUE);
  574.             break;
  575.  
  576.     }
  577.     HiliteMenu(0);
  578. }
  579.  
  580.  
  581. //    Set up Menus for current TextWindow
  582.  
  583. SetMenus(tempText,flag)                                                                               /* SetMenus() */        
  584. TEHandle    tempText;
  585. short            flag;
  586. {
  587.     int        i;
  588.     
  589.     for(i=1;i<6;i++) {
  590.         CheckItem(teMenu,i,FALSE);
  591.     }
  592.     for(i=1;i<10;i++) {
  593.         CheckItem(fontMenu,i,FALSE);
  594.     }
  595.     for(i=1;i<9;i++) {
  596.         CheckItem(styleMenu,i,FALSE);
  597.     }
  598.     if(!flag) return;
  599.         
  600.     switch((*theText)->just) {
  601.         case teJustLeft:
  602.             CheckItem(teMenu,1,TRUE);
  603.             break;
  604.         case teJustCenter:
  605.             CheckItem(teMenu,2,TRUE);
  606.             break;
  607.         case teJustRight:
  608.             CheckItem(teMenu,3,TRUE);
  609.             break;
  610.     }
  611.     if( (*theText)->crOnly > -1 )    CheckItem(teMenu,5,TRUE);    
  612.     switch((*theText)->txFont) {
  613.         case sysFont:            
  614.             CheckItem(fontMenu,1,TRUE);
  615.             break;
  616.         case newYork:        
  617.             CheckItem(fontMenu,2,TRUE);
  618.             break;
  619.         case geneva:        
  620.             CheckItem(fontMenu,3,TRUE);
  621.             break;
  622.         case monaco:            
  623.             CheckItem(fontMenu,4,TRUE);
  624.             break;
  625.     }
  626.     switch((*theText)->txSize) {
  627.         case 9:            
  628.             CheckItem(fontMenu,6,TRUE);
  629.             break;
  630.         case 10:        
  631.             CheckItem(fontMenu,7,TRUE);
  632.             break;
  633.         case 12:        
  634.             CheckItem(fontMenu,8,TRUE);
  635.             break;
  636.         case 14:        
  637.             CheckItem(fontMenu,9,TRUE);
  638.             break;
  639.     }
  640.     if( (*theText)->txFace == teNormal )        CheckItem(styleMenu,1,TRUE);    
  641.     if( (*theText)->txFace & teBold)             CheckItem(styleMenu,2,TRUE);
  642.     if( (*theText)->txFace & teItalic)             CheckItem(styleMenu,3,TRUE);
  643.     if( (*theText)->txFace & teUnderline)    CheckItem(styleMenu,4,TRUE);
  644.     if( (*theText)->txFace & teOutline)            CheckItem(styleMenu,5,TRUE);
  645.     if( (*theText)->txFace & teShadow)        CheckItem(styleMenu,6,TRUE);
  646.     if( (*theText)->txFace & teCondense)    CheckItem(styleMenu,7,TRUE);
  647.     if( (*theText)->txFace & teExtend)            CheckItem(styleMenu,8,TRUE);
  648. }
  649.  
  650.  
  651. //    Put up About Window
  652.  
  653. AboutWindow()
  654. {
  655.     Rect            creditR;
  656.     Rect            lineR;
  657.     GrafPtr    port;
  658.     WindowPtr    creditW;
  659.     EventRecord    anEvent;
  660.     long            dummy;
  661.     char         *line1 = "BMUG Developers Group - April 17,1985";
  662.     char            *line2 = "Sample Program #5";
  663.     char            *line3 = "written by Dave Burnard";
  664.     char            *line4 = "developed using Consulair Mac C(tm)";
  665.     
  666.     GetPort(&port);                                // must preserve port
  667.     SetRect(&lineR,5,5,345,20);
  668.     SetRect(&creditR,75,120,425,220);
  669.     creditW = NewWindow((WindowPeek)  NIL,&creditR,"\1x",TRUE,dBoxProc,(WindowPtr) -1,TRUE,0);
  670.     SetPort(creditW);
  671.     
  672.     TextSize(12);
  673.     TextFont(0);
  674.     TextBox(line1,strlen(line1),&lineR,teJustCenter);
  675.     OffsetRect(&lineR,0,20);
  676.     TextBox(line2,strlen(line2),&lineR,teJustCenter);
  677.     OffsetRect(&lineR,0,20);
  678.     TextBox(line3,strlen(line3),&lineR,teJustCenter);
  679.     OffsetRect(&lineR,0,20);
  680.     TextBox(line4,strlen(line4),&lineR,teJustCenter);
  681.             
  682.     do {
  683.         GetNextEvent(everyEvent, &anEvent);
  684.     } while (anEvent.what != mouseDown);
  685.     
  686.     DisposeWindow(creditW);
  687.     
  688.     SetPort(port);
  689.  
  690.     return;
  691. }
  692.  
  693.  
  694. //    Change Mouse if over active Text region
  695.  
  696. ChangeMouse()
  697. {
  698.     Point    mousePt;
  699.     if( ((WindowPeek) FrontWindow() )->windowKind == userKind) {
  700.         GetMouse(&mousePt);
  701.         if( PtInRect(&mousePt,&(*theText)->viewRect) ) {
  702.             SetCursor(*iBeam);
  703.         } else {
  704.             SetCursor(&QD->arrow);
  705.         }
  706.     } else {
  707.         SetCursor(&QD->arrow);
  708.     }
  709.     
  710. }
  711.