home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / macify13.shr / Source / P / PD_About_Dialog.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-15  |  9.4 KB  |  270 lines
  1. /* PD_About_Dialog */
  2.  
  3. /* File name: About_Dialog */
  4. /* Function: Handle a modal dialog */
  5. /* History: 3/15/91 Original by Prototyper 3.0   */
  6.  
  7.  
  8. #include "PCommonMacify.h"    /* Common */
  9. #include "Common_Macify.h"    /* Common */
  10. #include "PUtils_Macify.h"    /* General Utilities */
  11. #include "Utils_Macify.h"    /* General Utilities */
  12.  
  13. #include "PD_About_Dialog.h"    /* This file */
  14. #include "About_Dialog.h"    /* The user file */
  15.  
  16.  
  17. /* ======================================================= */
  18.  
  19.  
  20. static Boolean        ExitDialog;                                             /* Flag used to exit the Dialog */
  21. static Point    MyPt;                                                         /* Current list selection point */
  22. static OSErr    MyErr;                                                      /* OS error returned */
  23. static DialogPtr    GetSelection;                                           /* Pointer to this dialog */
  24. static GrafPtr        SavedPort;                                            /* Previous grafport */
  25.  
  26. /* Prototypes */
  27. /* Filter routine for modal dialog routine */
  28. static pascal Boolean MyFilter (DialogPtr theDialog ,EventRecord *theEvent,short *itemHit);
  29.  
  30. /* This is an update routine for non-controls in the dialog */
  31. /* This is executed after the dialog is uncovered by an alert */
  32. static void Refresh_Dialog(void);                                         /* Refresh the dialogs non-controls */
  33.  
  34.  
  35.  
  36. /* ======================================================= */
  37.  
  38. /* Initialize the modal dialog, globals and call users routine */
  39.  
  40. void I_PD_About_Dialog()
  41. {
  42. Rect    tempRect;                                                            /* Temporary rectangle */
  43. short    DType;                                                               /* Type of dialog item */
  44. short    Index;                                                                /* For looping */
  45. Handle    DItem;                                                              /* Handle to the dialog item */
  46. ControlHandle    CItem, CTempItem;                                      /* Control handle */
  47. Str255    sTemp;                                                            /* Get text entered, temp holding */
  48. short    itemHit;                                                             /* Get selection */
  49. short    temp;                                                                 /* Get selection, temp holding */
  50.  
  51.  
  52.  
  53.  
  54. D_Init_About_Dialog();
  55.  
  56. }                                                                                /* End of procedure */
  57.  
  58.  
  59. /* ======================================================= */
  60.  
  61. /* Filter routine for dialog events */
  62.  
  63. static pascal Boolean MyFilter (theDialog ,theEvent,itemHit)
  64. DialogPtr    theDialog;
  65. EventRecord        *theEvent;
  66. short        *itemHit;
  67. {
  68. Point    MyPt;                                                                /* Current list selection point */
  69. Rect    tempRect;                                                            /* Temporary rectangle */
  70. short    DType;                                                               /* Type of dialog item */
  71. Handle    DItem;                                                              /* Handle to the dialog item */
  72. ControlHandle    CItem;                                                     /* Control handle */
  73. short    chCode;                                                              /* Key entered */
  74. long    LTemp;                                                                /* Used for time delay */
  75. char    MyCmdKey;                                                          /* The command key */
  76. Boolean    CmdDown;                                                        /* Flag for command key used */
  77. Boolean    valMyFilter;                                                     /* Value to return */
  78.  
  79.  
  80.  
  81. valMyFilter = D_Filter_About_Dialog(theDialog, theEvent, itemHit);/* Call the user routine */
  82.  
  83. if ((theEvent->what == updateEvt)  && ((WindowPtr)theEvent->message == theDialog))/* Only do on an update */
  84.     {
  85.     BeginUpdate(theDialog);                                                 /* Start the update */
  86.     DrawDialog(theDialog);                                                  /* Draw the controls */
  87.     valMyFilter = TRUE;                                                     /* Pass out this special itemHit number */
  88.     *itemHit = 32000;                                                       /* Our special ID */
  89.     }
  90. if (theEvent->what == mouseDown)                                      /* Only do on a mouse click */
  91.     {
  92.     MyPt = theEvent->where;                                              /* Get the point where the mouse was clicked */
  93.     GlobalToLocal(&MyPt);                                                 /* Convert global to local */
  94.  
  95.  
  96.     }
  97. if (theEvent->what == keyDown)
  98.     {
  99.     chCode =  theEvent->message & charCodeMask;                     /* Get character */
  100.     MyCmdKey = (char)chCode;                                             /* Change to ASCII */
  101.     CmdDown = ((theEvent->modifiers / cmdKey) != 0);               /* Get command key state */
  102.     if (CmdDown == TRUE)                                                  /* Do if command key was down */
  103.         {
  104.         if ((MyCmdKey == 'x') || (MyCmdKey == 'X'))
  105.             {
  106.             DlgCut(theDialog);
  107.             valMyFilter = TRUE;
  108.             }
  109.         else if ((MyCmdKey =='c') || (MyCmdKey == 'C')) 
  110.             {
  111.             DlgCopy(theDialog);
  112.             valMyFilter = TRUE;
  113.             }
  114.         else if ((MyCmdKey =='v') || (MyCmdKey == 'V'))
  115.             {
  116.             DlgPaste(theDialog);
  117.             valMyFilter = TRUE;
  118.             }
  119.         }
  120.     else if ((chCode == 13) || (chCode == 3))                             /* CR or Enter */
  121.         {
  122.         valMyFilter = TRUE;                                                  /* Flag we got a hit */
  123.         *itemHit = 1;                                                          /* Default for CR */
  124.         GetDItem (theDialog ,*itemHit, &DType, &DItem, &tempRect);/* Get the item */
  125.         if (DType == (ctrlItem + btnCtrl))                                 /* If a button then ... */
  126.             {
  127.             CItem = (ControlHandle)DItem;                                  /* Make it a controlhandle */
  128.             HiliteControl(CItem, 10);                                         /* Hilite it */
  129.             LTemp = TickCount() + 15;                                       /* Flash the button for 1/4 second */
  130.             do
  131.                 {}
  132.             while (LTemp > TickCount());
  133.             HiliteControl(CItem, 0);                                          /* UnHilite it */
  134.             }
  135.         }
  136.     }
  137.  
  138. return(valMyFilter);
  139. }
  140.  
  141. /* ======================================================= */
  142.  
  143.  
  144.  
  145. /* ======================================================= */
  146.  
  147. /* This is an update routine for non-controls in the dialog */
  148. /* This is executed after the dialog is uncovered by an alert */
  149. static void Refresh_Dialog()                                               /* Refresh the dialogs non-controls */
  150. { 
  151. Rect    rTempRect;                                                          /* Temp rectangle used for drawing */
  152. short    DType;                                                               /* Type of dialog item */
  153. Handle    DItem;                                                              /* Handle to the dialog item */
  154. ControlHandle    CItem;                                                     /* Control handle */
  155.  
  156.  
  157.  
  158. SetPort(GetSelection);                                                     /* Point to our dialog window */
  159. rTempRect = tempRect;                                                     /* Save the current contents of  tempRect */
  160. GetDItem(GetSelection,Res_Dlg_OK,&DType,&DItem,&tempRect);/* Get the item handle */
  161. PenSize(3, 3);                                                               /* Change pen to draw thick default outline */
  162. InsetRect(&tempRect, -4, -4);                                            /* Draw outside the button by 1 pixel */
  163. FrameRoundRect(&tempRect, 16, 16);                                  /* Draw the outline */
  164. PenSize(1, 1);                                                               /* Restore the pen size to the default value */
  165.  
  166. /* Draw a line, Drawn line1  */
  167. MoveTo(15,45);                                                             /* Horz,vert, Move to starting position */
  168. LineTo(174,45);                                                             /* Horz,vert, Draw to the ending position */
  169.  
  170. /* Draw a line, Drawn line1-2  */
  171. MoveTo(15,50);                                                             /* Horz,vert, Move to starting position */
  172. LineTo(174,50);                                                             /* Horz,vert, Draw to the ending position */
  173.  
  174. /* Draw a line, Drawn line1-2-3  */
  175. MoveTo(15,55);                                                             /* Horz,vert, Move to starting position */
  176. LineTo(174,55);                                                             /* Horz,vert, Draw to the ending position */
  177.  
  178. tempRect = rTempRect;                                                     /* Restore the current contents of  tempRect */
  179. TextSize(9);
  180. TextFont(geneva);                                                           /* Select the Font that we want */
  181. /* Draw a string of text, legalese1  */
  182. SetRect(&rTempRect, 5,220,380,245);
  183. GetIndString(sTemp,Res_Dlg_legalese1,1);                             /* Get the string */
  184. TextBox(&sTemp[1], sTemp[0], &rTempRect,teJustLeft);
  185.  
  186. /* Draw a string of text, legalese2  */
  187. SetRect(&rTempRect, 5,245,355,285);
  188. GetIndString(sTemp,Res_Dlg_legalese2,1);                             /* Get the string */
  189. TextBox(&sTemp[1], sTemp[0], &rTempRect,teJustLeft);
  190.  
  191. TextSize(12);
  192. TextFont(systemFont);                                                     /* Select the Font that we want */
  193. TextFace(0);                                                                 /* Select the style that we want */
  194.  
  195.  
  196. D_Refresh_About_Dialog(GetSelection);                                 /* Call user refresh routine */
  197.  
  198. }
  199.  
  200. /* ======================================================= */
  201.  
  202.  
  203. void PD_About_Dialog()
  204. {
  205. Rect    tempRect;                                                            /* Temporary rectangle */
  206. short    DType;                                                               /* Type of dialog item */
  207. short    Index;                                                                /* For looping */
  208. Handle    DItem;                                                              /* Handle to the dialog item */
  209. ControlHandle    CItem;                                                     /* Control handle */
  210. ControlHandle    CTempItem;                                               /* temp Control handle */
  211. Str255    sTemp;                                                            /* Get text entered, temp holding */
  212. short    itemHit;                                                             /* Get selection */
  213. short    temp;                                                                 /* Get selection, temp holding */
  214.  
  215.  
  216.  
  217. GetPort(&SavedPort);                                                     /* Get the previous grafport */
  218.  
  219.  
  220. GetSelection = GetNewDialog(Res_D_About_Dialog, NIL,  (Ptr)-1);/* Bring in the dialog resource */
  221. ShowWindow(GetSelection);                                               /* Open a dialog box */
  222. SelectWindow(GetSelection);                                              /* Lets see it */
  223. SetPort(GetSelection);                                                     /* Prepare to add conditional text */
  224.  
  225.  
  226. /* Setup initial conditions */
  227. Refresh_Dialog();                                                            /* Draw any Lists, lines, or rectangles */
  228.  
  229. ExitDialog = FALSE;                                                         /* Do not exit dialog handle loop yet */
  230.  
  231. D_Setup_About_Dialog(GetSelection);                                    /* Call user Dialog setup routine */
  232.  
  233. do                                                                              /* Start of dialog handle loop */
  234.     {
  235.     ModalDialog(&MyFilter, &itemHit);                                   /* Wait until an item is hit */
  236.  
  237.     if (itemHit == 32000)                                                   /* Check for update */
  238.         {
  239.         Refresh_Dialog();                                                      /* Draw any Lists, lines, or rectangles*/
  240.         EndUpdate(GetSelection);                                             /* End of the update*/
  241.         }
  242.     else
  243.         {
  244.         GetDItem(GetSelection, itemHit, &DType, &DItem, &tempRect);/* Get item information */
  245.         CItem = (ControlHandle)DItem;                                     /* Get the control handle */
  246.         }
  247.  
  248.     D_Hit_About_Dialog(GetSelection,itemHit,&ExitDialog);          /* Let user handle the item hit */
  249.  
  250.     /* Handle it real time */
  251.     if (itemHit ==Res_Dlg_OK)                                             /* Handle the Button being pressed */
  252.         {
  253.         ExitDialog = TRUE;                                                    /* Close this dialog, exit */
  254.         }
  255.  
  256.  
  257.     }
  258. while (ExitDialog == FALSE);                                              /* Handle dialog items until exit selected */
  259.  
  260.  
  261. D_Exit_About_Dialog(GetSelection);                                     /* Exiting the modal dialog */
  262.  
  263. SetPort(SavedPort);                                                        /* Restore the previous grafport */
  264.  
  265. DisposDialog(GetSelection);                                                /* Flush the dialog out of memory */
  266.  
  267.  
  268. }                                                                                /* End of procedure */
  269.  
  270.