mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 04:16:18 +00:00
84 lines
1.8 KiB
OpenEdge ABL
84 lines
1.8 KiB
OpenEdge ABL
|
|
{
|
|
Created: Tuesday, November 26, 1991 at 11:43 AM
|
|
Finder.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1990-1991
|
|
All rights reserved
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Finder;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingFinder}
|
|
{$SETC UsingFinder := 1}
|
|
|
|
|
|
CONST
|
|
|
|
{ make only the following consts avaiable to resource files that include this file }
|
|
kCustomIconResource = -16455; { Custom icon family resource ID }
|
|
|
|
kContainerFolderAliasType = 'fdrp'; { type for folder aliases }
|
|
kContainerTrashAliasType = 'trsh'; { type for trash folder aliases }
|
|
kContainerHardDiskAliasType = 'hdsk'; { type for hard disk aliases }
|
|
kContainerFloppyAliasType = 'flpy'; { type for floppy aliases }
|
|
kContainerServerAliasType = 'srvr'; { type for server aliases }
|
|
kApplicationAliasType = 'adrp'; { type for application aliases }
|
|
kContainerAliasType = 'drop'; { type for all other containers }
|
|
|
|
{ type for Special folder aliases }
|
|
kSystemFolderAliasType = 'fasy';
|
|
kAppleMenuFolderAliasType = 'faam';
|
|
kStartupFolderAliasType = 'fast';
|
|
kPrintMonitorDocsFolderAliasType = 'fapn';
|
|
kPreferencesFolderAliasType = 'fapf';
|
|
kControlPanelFolderAliasType = 'fact';
|
|
kExtensionFolderAliasType = 'faex';
|
|
|
|
{ type for AppleShare folder aliases }
|
|
kExportedFolderAliasType = 'faet';
|
|
kDropFolderAliasType = 'fadr';
|
|
kSharedFolderAliasType = 'fash';
|
|
kMountedFolderAliasType = 'famn';
|
|
|
|
|
|
{Finder Flags}
|
|
kIsOnDesk = $1;
|
|
kColor = $E;
|
|
|
|
{kColorReserved = $10
|
|
kRequiresSwitchLaunch = $20}
|
|
|
|
kIsShared = $40;
|
|
|
|
{kHasNoINITs = $80}
|
|
|
|
kHasBeenInited = $100;
|
|
|
|
{kReserved = $200}
|
|
|
|
kHasCustomIcon = $400;
|
|
kIsStationary = $800;
|
|
kNameLocked = $1000;
|
|
kHasBundle = $2000;
|
|
kIsInvisible = $4000;
|
|
kIsAlias = $8000;
|
|
|
|
|
|
|
|
{$ENDC} { UsingFinder }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|