home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Libraries / PrivateInterfaces / UDebug.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  994 b   |  45 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. { UDebug.p }
  3. { Copyright © 1984-1990  Apple Computer, Inc.  All rights reserved. }
  4.  
  5. {$IFC UNDEFINED UsingIncludes}
  6. {$SETC UsingIncludes := FALSE}
  7. {$ENDC}
  8.  
  9. {$IFC UNDEFINED qMPW31}
  10. {$SETC qMPW31 := FALSE}
  11. {$ENDC}
  12.  
  13. UNIT UDebug;
  14.  
  15.     INTERFACE
  16.  
  17.         USES
  18. {$SETC __UDebug__ := TRUE}
  19.             { • MacApp }
  20.             {$U $$Shell(MAPInterfaces)UMacApp} UMacApp,
  21.  
  22.             { • Implementation use }
  23.             {$U $$Shell(MAPInterfaces)UTranscriptView} UTranscriptView,
  24.             {$U $$Shell(MAPInterfaces)ULoMem} ULoMem,
  25.  
  26.             Desk, DiskInit, ToolUtils, Retrace, Memory, Resources, FixMath,
  27.             {$IFC NOT qMPW31}
  28.             Packages,
  29.             {$ENDC}
  30.             Script, PasLibIntf, OSEvents, Traps, Perf, DisAsmLookUp, Notification;
  31.  
  32. {$SETC __UDebug__ := FALSE}
  33.             { • Include the public interface }
  34.             {$SETC _UDebugIncludes := UsingIncludes}
  35.             {$SETC UsingIncludes := TRUE}
  36.             {$I+}
  37.             {$I $$Shell(MAPInterfaces)UDebug.p}
  38.             {$SETC UsingIncludes := _UDebugIncludes}
  39.  
  40.     IMPLEMENTATION
  41.  
  42.         {$I UDebug.inc1.p}
  43.  
  44. END.
  45.