home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / GestaltValue / GestaltValue.p < prev   
Encoding:
Text File  |  1992-04-28  |  783 b   |  40 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Tuesday April 29, 1992
  3.  GestaltValue.p
  4.  
  5.   Copyright Apple Computer, Inc. 1992
  6.   All rights reserved
  7. }
  8.  
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.  UNIT GestaltValue;
  16.  INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingGestaltValue}
  20. {$SETC UsingGestaltValue := 1}
  21.  
  22. {$I+}
  23. {$SETC GestaltValueIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$IFC UNDEFINED UsingTypes}
  26. {$I $$Shell(PInterfaces)Types.p}
  27. {$ENDC}
  28. {$SETC UsingIncludes := GestaltValueIncludes}
  29.  
  30. FUNCTION NewGestaltValue(selector: OSType;newValue: LONGINT): OSErr;
  31. FUNCTION ReplaceGestaltValue(selector: OSType;replacementValue: LONGINT): OSErr;
  32. FUNCTION DeleteGestaltValue(selector: OSType): OSErr;
  33.  
  34. {$ENDC} { UsingGestaltEqu }
  35.  
  36. {$IFC NOT UsingIncludes}
  37.  END.
  38. {$ENDC}
  39.  
  40.