home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / mac / MAC / Programming Stuff / Interfaces / PInterfaces / Folders.p < prev    next >
Encoding:
Text File  |  1994-11-11  |  2.6 KB  |  92 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Folders.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT Folders;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __FOLDERS__}
  27. {$SETC __FOLDERS__ := 1}
  28.  
  29. {$I+}
  30. {$SETC FoldersIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38.  
  39. {$IFC UNDEFINED __FILES__}
  40. {$I Files.p}
  41. {$ENDC}
  42. {    MixedMode.p                                                    }
  43. {    OSUtils.p                                                    }
  44. {        Memory.p                                                }
  45.  
  46. {$PUSH}
  47. {$ALIGN MAC68K}
  48. {$LibExport+}
  49.  
  50. CONST
  51.     kOnSystemDisk                = $8000;
  52.     kCreateFolder                = true;
  53.     kDontCreateFolder            = false;
  54.     kSystemFolderType            = 'macs';                        { the system folder }
  55.     kDesktopFolderType            = 'desk';                        { the desktop folder; objects in this folder show on the desk top. }
  56.     kTrashFolderType            = 'trsh';                        { the trash folder; objects in this folder show up in the trash }
  57.     kWhereToEmptyTrashFolderType = 'empt';                        { the "empty trash" folder; Finder starts empty from here down }
  58.     kPrintMonitorDocsFolderType    = 'prnt';                        { Print Monitor documents }
  59.     kStartupFolderType            = 'strt';                        { Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here }
  60.     kAppleMenuFolderType        = 'amnu';                        { Finder objects to put into the Apple menu go here }
  61.     kControlPanelFolderType        = 'ctrl';                        { Control Panels go here (may contain INITs) }
  62.     kExtensionFolderType        = 'extn';                        { Finder extensions go here }
  63.     kFontsFolderType            = 'font';                        { Fonts go here }
  64.     kPreferencesFolderType        = 'pref';                        { preferences for applications go here }
  65.     kTemporaryFolderType        = 'temp';
  66.  
  67. {$IFC SystemSevenOrLater }
  68.  
  69. FUNCTION FindFolder(vRefNum: INTEGER; folderType: OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): OSErr;
  70.     {$IFC NOT GENERATINGCFM}
  71.     INLINE $7000, $A823;
  72.     {$ENDC}
  73. {$ELSEC}
  74.  
  75. FUNCTION FindFolder(vRefNum: INTEGER; folderType: OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): OSErr;
  76. {$ENDC}
  77. FUNCTION ReleaseFolder(vRefNum: INTEGER; folderType: OSType): OSErr;
  78.     {$IFC NOT GENERATINGCFM}
  79.     INLINE $700B, $A823;
  80.     {$ENDC}
  81.  
  82. {$ALIGN RESET}
  83. {$POP}
  84.  
  85. {$SETC UsingIncludes := FoldersIncludes}
  86.  
  87. {$ENDC} {__FOLDERS__}
  88.  
  89. {$IFC NOT UsingIncludes}
  90.  END.
  91. {$ENDC}
  92.