Package Name: folders

Return to: Package List

with Types;
use  Types;

package Folders is
   --  
   --  File:       Folders.h
   --  
   --  Contains:   Folder Manager Interfaces.
   --  
   --  Version:    Technology: System 7.5
   --              Package:    Universal Interfaces 2.1 in ÒMPW LatestÓ on ETO #18
   --  
   --  Copyright:  © 1984-1995 by Apple Computer, Inc.
   --              All rights reserved.

   --  
	kOnSystemDisk           : constant := 16#8000#;
	kCreateFolder           : constant Boolean := true;
	kDontCreateFolder       : constant Boolean := false;
	kSystemFolderType       : constant OSType := ToRes("macs"); -- the system folder
	kDesktopFolderType      : constant OSType := ToRes("desk"); -- the desktop folder; objects in this folder show on the desk top
	kTrashFolderType        : constant OSType := ToRes("trsh"); -- the trash folder; objects in this folder show up in the trash
	kWhereToEmptyTrashFolderType : constant OSType := ToRes("empt"); -- the "empty trash" folder; Finder starts empty from here down
	kPrintMonitorDocsFolderType  : constant OSType := ToRes("prnt"); -- Print Monitor documents
	kStartupFolderType      : constant OSType := ToRes("strt"); -- Finder objects to open at startup go here
	kShutdownFolderType     : constant OSType := ToRes("shdf"); -- Finder objects to open at shutdown go here
	kAppleMenuFolderType    : constant OSType := ToRes("amnu"); -- Finder objects to put into the Apple menu go here
	kControlPanelFolderType : constant OSType := ToRes("ctrl"); -- Control Panels go here (may contain INITs)
	kExtensionFolderType    : constant OSType := ToRes("extn"); -- Finder extensions go here
	kFontsFolderType        : constant OSType := ToRes("font"); -- Fonts go here
	kPreferencesFolderType  : constant OSType := ToRes("pref"); -- preferences for applications go here

	kTemporaryFolderType    : constant OSType := ToRes("temp");
   function FindFolder
     (vRefNum            : in     Short_Integer;
      folderType         : in     OSType;
      createFolder       : in     Boolean;
      foundVRefNum       : access Short_Integer;
      foundDirID         : access Long_Integer)
      return                      OSErr;

   pragma Import (C, FindFolder, "FindFolder", "FindFolder");
   function ReleaseFolder
     (vRefNum            : in     Short_Integer;
      folderType         : in     OSType)
      return                      OSErr;

   pragma Import (C, ReleaseFolder, "ReleaseFolder", "ReleaseFolder");
end Folders;