home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Sample Code / Pascal Sample 3.0B10 / Source / SampleDialog.p < prev    next >
Encoding:
Text File  |  1993-10-13  |  3.8 KB  |  137 lines  |  [TEXT/MPS ]
  1. (******************************************************************************
  2. *
  3. *    Apple Macintosh Developer Technical Support
  4. *
  5. *    Interfaces for the dialog utilities
  6. *
  7. *    Program:    Sample 3.0
  8. *    FILE:        SampleDialog - Pascal implementation
  9. *
  10. *    by:            Matt Deatherage
  11. *
  12. *    Copyright © 1988-1993 Apple Computer, Inc.
  13. *    All rights reserved.
  14. *
  15. *******************************************************************************
  16. * 
  17. * This unit, the "SampleDialog" unit, implements the modal dialog that lets
  18. * you change characteristics of a given circle.  The dialog includes two
  19. * pop-up menus, two editable text fields, eight checkboxes, three buttons
  20. * and one circle user item.
  21. *  
  22. * Since we want Sample to run under 6.0.7 or later, we don't use the Pop-Up
  23. * CDEF built into the Communications Toolbox (or in System 7.0), because
  24. * we'd have to duplicate its functionality if it wasn't present.  To this
  25. * end, this unit includes utility routines to draw a pop-up as a user item,
  26. * to Handle editable text tied to pop-ups, to turn a QuickDraw txFace byte
  27. * into eight checkboxes and more besides.
  28. *
  29. * It's usually better to use system functions when they're available, and
  30. * it would be better if this code used the pop-up CDEF if it were available,
  31. * since using that code automatically gets you new features as they're added
  32. * to the code in the system.
  33. * 
  34. ******************************************************************************)
  35.  
  36. UNIT SampleDialog;
  37.  
  38. INTERFACE
  39.  
  40. (*******************************************************************************
  41. * Used Units
  42. *******************************************************************************)
  43.  
  44. USES Traps, Menus, Fonts, Packages, Resources, ToolUtils, PrintTraps, AppleTalk,
  45.      Processes, PPCToolbox, EPPC, Notification, AppleEvents, SampleUtilities,
  46.      TrafficLights, Features;
  47.  
  48. (*******************************************************************************
  49. * Constants
  50. *******************************************************************************)
  51.  
  52. CONST
  53.  
  54.     { Constants for the dialog templates }
  55.  
  56.     circleDialogID = 130;
  57.     prefsID = 132;
  58.  
  59.     rSizeTooBigAlert = 131;
  60.  
  61.     rOnlyTenCirclesID = 4000;
  62.     rLessThan500Please = 4001;
  63.     rInsetTooMuch = 4002;
  64.     rInsetMustBeChanged = 4003;
  65.  
  66.     { Symbolic constants for item numbers used in both dialogs }
  67.  
  68.     dialogTitle = 3;
  69.  
  70.     { Item ID numbers in the "Modify Circle" dialog }
  71.  
  72.     fontTitle = 4;
  73.     fontPopUp = 5;
  74.     sizeTitle = 6;
  75.     sizeEditText = 7;
  76.     sizePopUp = 8;
  77.     styleTitle = 9;
  78.     boldBox = 10;
  79.     italicBox = 11;
  80.     underlineBox = 12;
  81.     outlineBox = 13;
  82.     shadowBox = 14;
  83.     condensedBox = 15;
  84.     extendedBox = 16;
  85.     plainBox = 17;
  86.     textTitle = 18;
  87.     textEditText = 19;
  88.     colorButton = 20;
  89.     circleUserItem = 21;
  90.     defaultUserItem = 22;
  91.  
  92.     { Item ID numbers in the "Preferences" dialog }
  93.  
  94.     numCirclesEditText = 4;
  95.     maxCirclesTitle = 5;
  96.     rectSizeEditText = 6;
  97.     rectSizeTitle = 7;
  98.     circleInsetEditText = 8;
  99.     circleInsetTitle = 9;
  100.     prefsUserItem = 10;
  101.     forNewDocsTitle = 11;
  102.  
  103.     { Resource IDs for the menus }
  104.  
  105.     mFonts = 132;
  106.     mSize = 133;
  107.  
  108.     { Resource IDs for other things }
  109.  
  110.     rPopDownArrowID = 1000;
  111.  
  112. (*******************************************************************************
  113. *
  114. * DoCircleOptions - present the "Modify Circle" dialog
  115. *
  116. * This routine takes a pointer to a circle record and presents a robust
  117. * dialog allowing the user to modify it.  It returns TRUE if there were
  118. * changes to the circle.
  119. *
  120. *******************************************************************************)
  121.  
  122. FUNCTION DoCircleOptions(VAR circle: CircleRec): BOOLEAN;
  123.  
  124. (*******************************************************************************
  125. *
  126. * DoEditPreferences - allow the user to edit the application preferences.
  127. *
  128. *******************************************************************************)
  129.  
  130. PROCEDURE DoEditPreferences;
  131.  
  132. IMPLEMENTATION
  133.  
  134. {$I SampleDialog.inc1.p}
  135.  
  136. END. {SampleDialog unit }
  137.