1 { 2 File: CarbonCore/Finder.h 3 4 Contains: Finder flags and container types. 5 The contents of this header file are deprecated. 6 7 Copyright: � 1990-2011 by Apple Inc. All rights reserved. 8 } 9 { 10 Modified for use with Free Pascal 11 Version 308 12 Please report any bugs to <gpc@microbizz.nl> 13 } 14 15 {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE} 16 {$mode macpas} 17 {$modeswitch cblocks} 18 {$packenum 1} 19 {$macro on} 20 {$inline on} 21 {$calling mwpascal} 22 23 unit Finder; 24 interface 25 {$setc UNIVERSAL_INTERFACES_VERSION := $0400} 26 {$setc GAP_INTERFACES_VERSION := $0308} 27 28 {$ifc not defined USE_CFSTR_CONSTANT_MACROS} 29 {$setc USE_CFSTR_CONSTANT_MACROS := TRUE} 30 {$endc} 31 32 {$ifc defined CPUPOWERPC and defined CPUI386} 33 {$error Conflicting initial definitions for CPUPOWERPC and CPUI386} 34 {$endc} 35 {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN} 36 {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN} 37 {$endc} 38 39 {$ifc not defined __ppc__ and defined CPUPOWERPC32} 40 {$setc __ppc__ := 1} 41 {$elsec} 42 {$setc __ppc__ := 0} 43 {$endc} 44 {$ifc not defined __ppc64__ and defined CPUPOWERPC64} 45 {$setc __ppc64__ := 1} 46 {$elsec} 47 {$setc __ppc64__ := 0} 48 {$endc} 49 {$ifc not defined __i386__ and defined CPUI386} 50 {$setc __i386__ := 1} 51 {$elsec} 52 {$setc __i386__ := 0} 53 {$endc} 54 {$ifc not defined __x86_64__ and defined CPUX86_64} 55 {$setc __x86_64__ := 1} 56 {$elsec} 57 {$setc __x86_64__ := 0} 58 {$endc} 59 {$ifc not defined __arm__ and defined CPUARM} 60 {$setc __arm__ := 1} 61 {$elsec} 62 {$setc __arm__ := 0} 63 {$endc} 64 {$ifc not defined __arm64__ and defined CPUAARCH64} 65 {$setc __arm64__ := 1} 66 {$elsec} 67 {$setc __arm64__ := 0} 68 {$endc} 69 70 {$ifc defined cpu64} 71 {$setc __LP64__ := 1} 72 {$elsec} 73 {$setc __LP64__ := 0} 74 {$endc} 75 76 77 {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__} 78 {$error Conflicting definitions for __ppc__ and __i386__} 79 {$endc} 80 81 {$ifc defined __ppc__ and __ppc__} 82 {$setc TARGET_CPU_PPC := TRUE} 83 {$setc TARGET_CPU_PPC64 := FALSE} 84 {$setc TARGET_CPU_X86 := FALSE} 85 {$setc TARGET_CPU_X86_64 := FALSE} 86 {$setc TARGET_CPU_ARM := FALSE} 87 {$setc TARGET_CPU_ARM64 := FALSE} 88 {$setc TARGET_OS_MAC := TRUE} 89 {$setc TARGET_OS_IPHONE := FALSE} 90 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 91 {$setc TARGET_OS_EMBEDDED := FALSE} 92 {$elifc defined __ppc64__ and __ppc64__} 93 {$setc TARGET_CPU_PPC := FALSE} 94 {$setc TARGET_CPU_PPC64 := TRUE} 95 {$setc TARGET_CPU_X86 := FALSE} 96 {$setc TARGET_CPU_X86_64 := FALSE} 97 {$setc TARGET_CPU_ARM := FALSE} 98 {$setc TARGET_CPU_ARM64 := FALSE} 99 {$setc TARGET_OS_MAC := TRUE} 100 {$setc TARGET_OS_IPHONE := FALSE} 101 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 102 {$setc TARGET_OS_EMBEDDED := FALSE} 103 {$elifc defined __i386__ and __i386__} 104 {$setc TARGET_CPU_PPC := FALSE} 105 {$setc TARGET_CPU_PPC64 := FALSE} 106 {$setc TARGET_CPU_X86 := TRUE} 107 {$setc TARGET_CPU_X86_64 := FALSE} 108 {$setc TARGET_CPU_ARM := FALSE} 109 {$setc TARGET_CPU_ARM64 := FALSE} 110 {$ifc defined iphonesim} 111 {$setc TARGET_OS_MAC := FALSE} 112 {$setc TARGET_OS_IPHONE := TRUE} 113 {$setc TARGET_IPHONE_SIMULATOR := TRUE} 114 {$elsec} 115 {$setc TARGET_OS_MAC := TRUE} 116 {$setc TARGET_OS_IPHONE := FALSE} 117 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 118 {$endc} 119 {$setc TARGET_OS_EMBEDDED := FALSE} 120 {$elifc defined __x86_64__ and __x86_64__} 121 {$setc TARGET_CPU_PPC := FALSE} 122 {$setc TARGET_CPU_PPC64 := FALSE} 123 {$setc TARGET_CPU_X86 := FALSE} 124 {$setc TARGET_CPU_X86_64 := TRUE} 125 {$setc TARGET_CPU_ARM := FALSE} 126 {$setc TARGET_CPU_ARM64 := FALSE} 127 {$ifc defined iphonesim} 128 {$setc TARGET_OS_MAC := FALSE} 129 {$setc TARGET_OS_IPHONE := TRUE} 130 {$setc TARGET_IPHONE_SIMULATOR := TRUE} 131 {$elsec} 132 {$setc TARGET_OS_MAC := TRUE} 133 {$setc TARGET_OS_IPHONE := FALSE} 134 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 135 {$endc} 136 {$setc TARGET_OS_EMBEDDED := FALSE} 137 {$elifc defined __arm__ and __arm__} 138 {$setc TARGET_CPU_PPC := FALSE} 139 {$setc TARGET_CPU_PPC64 := FALSE} 140 {$setc TARGET_CPU_X86 := FALSE} 141 {$setc TARGET_CPU_X86_64 := FALSE} 142 {$setc TARGET_CPU_ARM := TRUE} 143 {$setc TARGET_CPU_ARM64 := FALSE} 144 {$setc TARGET_OS_MAC := FALSE} 145 {$setc TARGET_OS_IPHONE := TRUE} 146 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 147 {$setc TARGET_OS_EMBEDDED := TRUE} 148 {$elifc defined __arm64__ and __arm64__} 149 {$setc TARGET_CPU_PPC := FALSE} 150 {$setc TARGET_CPU_PPC64 := FALSE} 151 {$setc TARGET_CPU_X86 := FALSE} 152 {$setc TARGET_CPU_X86_64 := FALSE} 153 {$setc TARGET_CPU_ARM := FALSE} 154 {$setc TARGET_CPU_ARM64 := TRUE} 155 {$ifc defined ios} 156 {$setc TARGET_OS_MAC := FALSE} 157 {$setc TARGET_OS_IPHONE := TRUE} 158 {$setc TARGET_OS_EMBEDDED := TRUE} 159 {$elsec} 160 {$setc TARGET_OS_MAC := TRUE} 161 {$setc TARGET_OS_IPHONE := FALSE} 162 {$setc TARGET_OS_EMBEDDED := FALSE} 163 {$endc} 164 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 165 {$elsec} 166 {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.} 167 {$endc} 168 169 {$ifc defined __LP64__ and __LP64__ } 170 {$setc TARGET_CPU_64 := TRUE} 171 {$elsec} 172 {$setc TARGET_CPU_64 := FALSE} 173 {$endc} 174 175 {$ifc defined FPC_BIG_ENDIAN} 176 {$setc TARGET_RT_BIG_ENDIAN := TRUE} 177 {$setc TARGET_RT_LITTLE_ENDIAN := FALSE} 178 {$elifc defined FPC_LITTLE_ENDIAN} 179 {$setc TARGET_RT_BIG_ENDIAN := FALSE} 180 {$setc TARGET_RT_LITTLE_ENDIAN := TRUE} 181 {$elsec} 182 {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.} 183 {$endc} 184 {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE} 185 {$setc CALL_NOT_IN_CARBON := FALSE} 186 {$setc OLDROUTINENAMES := FALSE} 187 {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE} 188 {$setc OPAQUE_UPP_TYPES := TRUE} 189 {$setc OTCARBONAPPLICATION := TRUE} 190 {$setc OTKERNEL := FALSE} 191 {$setc PM_USE_SESSION_APIS := TRUE} 192 {$setc TARGET_API_MAC_CARBON := TRUE} 193 {$setc TARGET_API_MAC_OS8 := FALSE} 194 {$setc TARGET_API_MAC_OSX := TRUE} 195 {$setc TARGET_CARBON := TRUE} 196 {$setc TARGET_CPU_68K := FALSE} 197 {$setc TARGET_CPU_MIPS := FALSE} 198 {$setc TARGET_CPU_SPARC := FALSE} 199 {$setc TARGET_OS_UNIX := FALSE} 200 {$setc TARGET_OS_WIN32 := FALSE} 201 {$setc TARGET_RT_MAC_68881 := FALSE} 202 {$setc TARGET_RT_MAC_CFM := FALSE} 203 {$setc TARGET_RT_MAC_MACHO := TRUE} 204 {$setc TYPED_FUNCTION_POINTERS := TRUE} 205 {$setc TYPE_BOOL := FALSE} 206 {$setc TYPE_EXTENDED := FALSE} 207 {$setc TYPE_LONGLONG := TRUE} 208 uses MacTypes; 209 {$endc} {not MACOSALLINCLUDE} 210 211 212 {$ifc TARGET_OS_MAC} 213 214 {$ALIGN MAC68K} 215 216 { Creator and type of clipping files } 217 const 218 kClippingCreator = FourCharCode('drag'); 219 kClippingPictureType = FourCharCode('clpp'); 220 kClippingTextType = FourCharCode('clpt'); 221 kClippingSoundType = FourCharCode('clps'); 222 kClippingUnknownType = FourCharCode('clpu'); 223 224 225 { Creator and type of Internet Location files } 226 const 227 kInternetLocationCreator = FourCharCode('drag'); 228 kInternetLocationHTTP = FourCharCode('ilht'); 229 kInternetLocationFTP = FourCharCode('ilft'); 230 kInternetLocationFile = FourCharCode('ilfi'); 231 kInternetLocationMail = FourCharCode('ilma'); 232 kInternetLocationNNTP = FourCharCode('ilnw'); 233 kInternetLocationAFP = FourCharCode('ilaf'); 234 kInternetLocationAppleTalk = FourCharCode('ilat'); 235 kInternetLocationNSL = FourCharCode('ilns'); 236 kInternetLocationGeneric = FourCharCode('ilge'); 237 238 239 const 240 kCustomIconResource = -16455; { Custom icon family resource ID } 241 242 { In order to specify any of the information described in the } 243 { CustomBadgeResource data structure you must clear the kExtendedFlagsAreInvalid } 244 { and set kExtendedFlagHasCustomBadge of the FXInfo.fdXFlags or DXInfo.frXFlags field, } 245 { and add a resource of type kCustomBadgeResourceType and ID kCustomBadgeResourceID to } 246 { the file or to the "Icon/n" file for a folder } 247 const 248 kCustomBadgeResourceType = FourCharCode('badg'); 249 kCustomBadgeResourceID = kCustomIconResource; 250 kCustomBadgeResourceVersion = 0; 251 252 type 253 CustomBadgeResource = record 254 version: SInt16; { This is version kCustomBadgeResourceVersion} 255 customBadgeResourceID: SInt16; { If not 0, the ID of a resource to use on top} 256 { of the icon for this file or folder} 257 customBadgeType: OSType; { If not 0, the type and creator of an icon} 258 customBadgeCreator: OSType; { to use on top of the icon} 259 windowBadgeType: OSType; { If not 0, the type and creator of an icon} 260 windowBadgeCreator: OSType; { to display in the header of the window for this } 261 { file or folder} 262 overrideType: OSType; { If not 0, the type and creator of an icon to} 263 overrideCreator: OSType; { use INSTEAD of the icon for this file or folder} 264 end; 265 CustomBadgeResourcePtr = ^CustomBadgeResource; 266 type 267 CustomBadgeResourceHandle = ^CustomBadgeResourcePtr; 268 { You can specify routing information for a file by including a 'rout' 0 269 resource in it and setting the kExtendedFlagHasRoutingInfo bit in the extended 270 Finder flags. 271 The 'rout' resource is an array of RoutingResourceEntry. Each entry is considered 272 in turn. The first matching entry is used. 273 If the creator and fileType match the file being dropped and targetFolder match 274 the folder ID of the folder being dropped onto, then the file is rerouted 275 into the specified destination folder. 276 The only target folder currently supported is the system folder, 277 kSystemFolderType = 'macs'. 278 } 279 const 280 kRoutingResourceType = FourCharCode('rout'); 281 kRoutingResourceID = 0; 282 283 type 284 RoutingResourceEntryPtr = ^RoutingResourceEntry; 285 RoutingResourceEntry = record 286 creator: OSType; { Use '****' or 0 to match any creator } 287 fileType: OSType; { Use '****' or 0 to match any file type } 288 targetFolder: OSType; { Folder ID of the folder this file was dropped onto } 289 destinationFolder: OSType; { Folder that the source will be routed to } 290 reservedField: OSType; { Set to 0 } 291 end; 292 type 293 RoutingResourcePtr = RoutingResourceEntryPtr; 294 RoutingResourceHandle = ^RoutingResourcePtr; 295 296 { Types for special container aliases } 297 const 298 kContainerFolderAliasType = FourCharCode('fdrp'); { type for folder aliases } 299 kContainerTrashAliasType = FourCharCode('trsh'); { type for trash folder aliases } 300 kContainerHardDiskAliasType = FourCharCode('hdsk'); { type for hard disk aliases } 301 kContainerFloppyAliasType = FourCharCode('flpy'); { type for floppy aliases } 302 kContainerServerAliasType = FourCharCode('srvr'); { type for server aliases } 303 kApplicationAliasType = FourCharCode('adrp'); { type for application aliases } 304 kContainerAliasType = FourCharCode('drop'); { type for all other containers } 305 kDesktopPrinterAliasType = FourCharCode('dtpa'); { type for Desktop Printer alias } 306 kContainerCDROMAliasType = FourCharCode('cddr'); { type for CD-ROM alias } 307 kApplicationCPAliasType = FourCharCode('acdp'); { type for application control panel alias } 308 kApplicationDAAliasType = FourCharCode('addp'); { type for application DA alias } 309 kPackageAliasType = FourCharCode('fpka'); { type for plain package alias } 310 kAppPackageAliasType = FourCharCode('fapa'); { type for application package alias } 311 312 { Types for Special folder aliases } 313 const 314 kSystemFolderAliasType = FourCharCode('fasy'); 315 kAppleMenuFolderAliasType = FourCharCode('faam'); 316 kStartupFolderAliasType = FourCharCode('fast'); 317 kPrintMonitorDocsFolderAliasType = FourCharCode('fapn'); 318 kPreferencesFolderAliasType = FourCharCode('fapf'); 319 kControlPanelFolderAliasType = FourCharCode('fact'); 320 kExtensionFolderAliasType = FourCharCode('faex'); 321 322 { Types for AppleShare folder aliases } 323 const 324 kExportedFolderAliasType = FourCharCode('faet'); 325 kDropFolderAliasType = FourCharCode('fadr'); 326 kSharedFolderAliasType = FourCharCode('fash'); 327 kMountedFolderAliasType = FourCharCode('famn'); 328 329 { Finder flags (finderFlags, fdFlags and frFlags) } 330 { Any flag reserved or not specified should be set to 0. } 331 { If a flag applies to a file, but not to a folder, make sure to check } 332 { that the item is not a folder by checking ((ParamBlockRec.ioFlAttrib & ioDirMask) == 0) } 333 const 334 kIsOnDesk = $0001; { Files and folders (System 6) } 335 kColor = $000E; { Files and folders } 336 { bit 0x0020 was kRequireSwitchLaunch, but is now reserved for future use} 337 kIsShared = $0040; { Files only (Applications only) } 338 { If clear, the application needs to write to } 339 { its resource fork, and therefore cannot be } 340 { shared on a server } 341 kHasNoINITs = $0080; { Files only (Extensions/Control Panels only) } 342 { This file contains no INIT resource } 343 kHasBeenInited = $0100; { Files only } 344 { Clear if the file contains desktop database } 345 { resources ('BNDL', 'FREF', 'open', 'kind'...) } 346 { that have not been added yet. Set only by the Finder } 347 { Reserved for folders - make sure this bit is cleared for folders } 348 { bit 0x0200 was the letter bit for AOCE, but is now reserved for future use } 349 kHasCustomIcon = $0400; { Files and folders } 350 kIsStationery = $0800; { Files only } 351 kNameLocked = $1000; { Files and folders } 352 kHasBundle = $2000; { Files and folders } 353 { Indicates that a file has a BNDL resource } 354 { Indicates that a folder is displayed as a package } 355 kIsInvisible = $4000; { Files and folders } 356 kIsAlias = $8000; { Files only } 357 358 { Obsolete. Use names defined above. } 359 const 360 fOnDesk = kIsOnDesk; 361 fHasBundle = kHasBundle; 362 fInvisible = kIsInvisible; 363 364 { Obsolete } 365 const 366 fTrash = -3; 367 fDesktop = -2; 368 fDisk = 0; 369 370 {$ifc OLDROUTINENAMES} 371 const 372 kIsStationary = kIsStationery; 373 374 {$endc} {OLDROUTINENAMES} 375 376 { Extended flags (extendedFinderFlags, fdXFlags and frXFlags) } 377 { Any flag not specified should be set to 0. } 378 const 379 kExtendedFlagsAreInvalid = $8000; { If set the other extended flags are ignored } 380 kExtendedFlagHasCustomBadge = $0100; { Set if the file or folder has a badge resource } 381 kExtendedFlagObjectIsBusy = $0080; { Set if the object is marked as busy/incomplete } 382 kExtendedFlagHasRoutingInfo = $0004; { Set if the file contains routing info resource } 383 384 385 { Use a filetype in this range to indicate that a file is temporarily busy } 386 { (while it is being downloaded or installed, for example). This prevents } 387 { Finder 8.5 and later from trying to change the item's attributes before it } 388 { is fully created. -- If you provide a series of 'BNDL' icons for your creator } 389 { and some of these filetypes, you can achieve limited icon animation while } 390 { the file creation progresses. } 391 const 392 kFirstMagicBusyFiletype = FourCharCode('bzy '); 393 kLastMagicBusyFiletype = FourCharCode('bzy?'); 394 395 { Use this date as a file's or folder's creation date to indicate that it is } 396 { temporarily busy (while it is being downloaded or installed, for example). } 397 { This prevents Finder from trying to change the item's attributes before it } 398 { is fully created (Finder 8.5 and 8.6 check file creation dates; later Finders } 399 { may check folder creation dates as well). } 400 const 401 kMagicBusyCreationDate = $4F3AFDB0; 402 403 404 {------------------------------------------------------------------------} 405 { 406 The following data structures are binary compatible with FInfo, DInfo, 407 FXInfo and DXInfo but represent the Mac OS 8 semantic of the fields. 408 Use these data structures preferably to FInfo, etc... 409 } 410 {------------------------------------------------------------------------} 411 412 type 413 FileInfoPtr = ^FileInfo; 414 FileInfo = record 415 fileType: OSType; { The type of the file } 416 fileCreator: OSType; { The file's creator } 417 finderFlags: UInt16; { ex: kHasBundle, kIsInvisible... } 418 location: Point; { File's location in the folder } 419 { If set to (0, 0), the Finder will place the item automatically } 420 reservedField: UInt16; { (set to 0) } 421 end; 422 type 423 FolderInfoPtr = ^FolderInfo; 424 FolderInfo = record 425 windowBounds: Rect; { The position and dimension of the folder's window } 426 finderFlags: UInt16; { ex. kIsInvisible, kNameLocked, etc.} 427 location: Point; { Folder's location in the parent folder } 428 { If set to (0, 0), the Finder will place the item automatically } 429 reservedField: UInt16; { (set to 0) } 430 end; 431 type 432 ExtendedFileInfoPtr = ^ExtendedFileInfo; 433 ExtendedFileInfo = record 434 reserved1: array [0..3] of SInt16; { Reserved (set to 0) } 435 extendedFinderFlags: UInt16; { Extended flags (custom badge, routing info...) } 436 reserved2: SInt16; { Reserved (set to 0). Comment ID if high-bit is clear } 437 putAwayFolderID: SInt32; { Put away folder ID } 438 end; 439 type 440 ExtendedFolderInfoPtr = ^ExtendedFolderInfo; 441 ExtendedFolderInfo = record 442 scrollPosition: Point; { Scroll position (for icon views) } 443 reserved1: SInt32; { Reserved (set to 0) } 444 extendedFinderFlags: UInt16; { Extended flags (custom badge, routing info...) } 445 reserved2: SInt16; { Reserved (set to 0). Comment ID if high-bit is clear } 446 putAwayFolderID: SInt32; { Put away folder ID } 447 end; 448 {------------------------------------------------------------------------} 449 { 450 The following data structures are here for compatibility. 451 Use the new data structures replacing them if possible (i.e. FileInfo 452 instead of FInfo, etc...) 453 } 454 {------------------------------------------------------------------------} 455 { File info } 456 { 457 IMPORTANT: 458 In MacOS 8, the fdFldr field has become reserved for the Finder. 459 } 460 type 461 FInfoPtr = ^FInfo; 462 FInfo = record 463 fdType: OSType; { The type of the file } 464 fdCreator: OSType; { The file's creator } 465 fdFlags: UInt16; { Flags ex. kHasBundle, kIsInvisible, etc. } 466 fdLocation: Point; { File's location in folder. } 467 { If set to (0, 0), the Finder will place the item automatically } 468 fdFldr: SInt16; { Reserved (set to 0) } 469 end; 470 { Extended file info } 471 { 472 IMPORTANT: 473 In MacOS 8, the fdIconID and fdComment fields were changed 474 to become reserved fields for the Finder. 475 The fdScript has become an extended flag. 476 } 477 type 478 FXInfoPtr = ^FXInfo; 479 FXInfo = record 480 fdIconID: SInt16; { Reserved (set to 0) } 481 fdReserved: array [0..2] of SInt16; { Reserved (set to 0) } 482 fdScript: SInt8; { Extended flags. Script code if high-bit is set } 483 fdXFlags: SInt8; { Extended flags } 484 fdComment: SInt16; { Reserved (set to 0). Comment ID if high-bit is clear } 485 fdPutAway: SInt32; { Put away folder ID } 486 end; 487 { Folder info } 488 { 489 IMPORTANT: 490 In MacOS 8, the frView field was changed to become reserved 491 field for the Finder. 492 } 493 type 494 DInfoPtr = ^DInfo; 495 DInfo = record 496 frRect: Rect; { Folder's window bounds } 497 frFlags: UInt16; { Flags ex. kIsInvisible, kNameLocked, etc.} 498 frLocation: Point; { Folder's location in parent folder } 499 { If set to (0, 0), the Finder will place the item automatically } 500 frView: SInt16; { Reserved (set to 0) } 501 end; 502 { Extended folder info } 503 { 504 IMPORTANT: 505 In MacOS 8, the frOpenChain and frComment fields were changed 506 to become reserved fields for the Finder. 507 The frScript has become an extended flag. 508 } 509 type 510 DXInfoPtr = ^DXInfo; 511 DXInfo = record 512 frScroll: Point; { Scroll position } 513 frOpenChain: SInt32; { Reserved (set to 0) } 514 frScript: SInt8; { Extended flags. Script code if high-bit is set } 515 frXFlags: SInt8; { Extended flags } 516 frComment: SInt16; { Reserved (set to 0). Comment ID if high-bit is clear } 517 frPutAway: SInt32; { Put away folder ID } 518 end; 519 { ControlPanelDefProcPtr and cdev constants have all been moved to Processes.i} 520 521 {$endc} {TARGET_OS_MAC} 522 {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE} 523 524 end. 525 {$endc} {not MACOSALLINCLUDE} 526