home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / WASTE 1.1a4 / Interfaces 2 / DialogExtensions.p < prev    next >
Encoding:
Text File  |  1993-04-21  |  1.7 KB  |  66 lines  |  [TEXT/PJMM]
  1. unit DialogExtensions;
  2.  
  3. { Pascal Interface to the Macintosh Toolbox: }
  4. { System 7.0 _DialogMgrDispatch extensions }
  5. { and dialog utilities dispatched through _CommToolboxDispatch }
  6.  
  7. { Copyright © 1991 Apple Computer, Inc. }
  8. { ANTI© 1993 Merzwaren }
  9.  
  10. interface
  11.  
  12.     const
  13.  
  14. { DITLMethod }
  15.         overlayDITL = 0;
  16.         appendDITLRight = 1;
  17.         appendDITLBottom = 2;
  18.  
  19.     type
  20.  
  21.         DITLMethod = INTEGER;
  22.  
  23. { Returns a pointer to the Dialog Manager’s standard dialog filter }
  24.     function GetStdFilterProc (var theProc: ProcPtr): OSErr;
  25.     inline
  26.         $303C, $0203, $AA68;
  27.  
  28. { Indicates to the Dialog Manager which item is default.  Will then alias the return & }
  29. { enter key }
  30. { to this item, and also bold border it for you (yaaaaa!) }
  31.     function SetDialogDefaultItem (theDialog: DialogPtr;
  32.                                     newItem: INTEGER): OSErr;
  33.     inline
  34.         $303C, $0304, $AA68;
  35.  
  36. { Indicates which item should be aliased to escape or Command - . }
  37.     function SetDialogCancelItem (theDialog: DialogPtr;
  38.                                     newItem: INTEGER): OSErr;
  39.     inline
  40.         $303C, $0305, $AA68;
  41.  
  42. { Tells the Dialog Manager that there is an edit line in this dialog, and }
  43. { it should track and change to an I-Beam cursor when over the edit line }
  44.  
  45.     function SetDialogTracksCursor (theDialog: DialogPtr;
  46.                                     tracks: Boolean): OSErr;
  47.     inline
  48.         $303C, $0306, $AA68;
  49.  
  50.     function CountDITL (theDialog: DialogPtr): Integer;
  51.     inline
  52.         $3F3C, $0403, $204F, $A08B, $5C4F, $3E80;
  53.  
  54.     procedure AppendDITL (theDialog: DialogPtr;
  55.                                     theDITL: Handle;
  56.                                     method: DITLMethod);
  57.     inline
  58.         $3F3C, $0402, $204F, $A08B, $4FEF, $000C;
  59.  
  60.     procedure ShortenDITL (theDialog: DialogPtr;
  61.                                     numberItems: INTEGER);
  62.     inline
  63.         $3F3C, $0404, $204F, $A08B, $504F;
  64.  
  65. implementation
  66. end.