ORCA-Pascal/Tool.Interface/Finder.pas

{$keep 'Finder'}
unit Finder;
interface

{********************************************************
*
*  Finder data structures and constants
*
*  Other USES Files Needed:  Common
*
*  Copyright 1992
*  By the Byte Works, Inc.
*  All Rights Reserved
*
*********************************************************}

uses
   Common;
   
const

   name_of_finder = 'Apple~Finder~';    {target name for SendRequest to Finder}

                                        {SendRequest codes sent by the Finder}
   finderSaysHello            = $0100;
   finderSaysGoodbye          = $0101;
   finderSaysSelectionChanged = $0102;
   finderSaysMItemSelected    = $0103;
   finderSaysBeforeOpen       = $0104;
   finderSaysOpenFailed       = $0105;
   finderSaysBeforeCopy       = $0106;
   finderSaysBeforeIdle       = $0107;
   finderSaysExtrasChosen     = $0108;
   finderSaysBeforeRename     = $0109;
   finderSaysKeyHit           = $010A;
   
                                        {SendRequest codes sent to the Finder}
   tellFinderGetDebugInfo      = $8000;
   askFinderAreYouThere        = $8001;
   tellFinderAreYouThere       = $8001;
   tellFinderOpenWindow        = $8002;
   tellFinderCloseWindow       = $8003;
   tellFinderGetSelectedIcons  = $8004;
   tellFinderSetSelectedIcons  = $8005;
   tellFinderLaunchThis        = $8006;
   tellFinderShutDown          = $8007;
   tellFinderMItemSelected     = $8008;
   tellFinderMatchFileToIcon   = $800A;
   tellFinderAddBundle         = $800B;
   tellFinderAboutChange       = $800C;
   tellFinderCheckDatabase     = $800D;
   tellFinderColorSelection    = $800E;
   tellFinderAddToExtras       = $800F;
   askFinderIdleHowLong        = $8011;
   tellFinderIdleHowLong       = $8011;
   tellFinderGetWindowIcons    = $8012;
   tellFinderGetWindowInfo     = $8013;
   tellFinderRemoveFromExtras  = $8014;
   tellFinderSpecialPreference = $8015;

type
   finderSaysHelloIn = record
      pCount: integer;
      version: longint;
      finderID: integer;
      iconObjJize: integer;
      end;
   finderSaysHelloInPtr = ^finderSaysHelloIn;

   finderSaysMItemSelectedIn = record
      pCount: integer;
      menuItemID: integer;
      menuID: integer;
      modifiers: integer;
      end;
   finderSaysMItemSelectedInPtr = ^finderSaysMItemSelectedIn;

   finderSaysMItemSelectedOut = record
      recvCount: integer;
      abortIt: integer;
      end;
   finderSaysMItemSelectedOutPtr = ^finderSaysMItemSelectedOut;

   finderSaysBeforeOpenIn = record
      pCount: integer;
      pathname: gsosInStringPtr;
      zoomRect: rectPtr;
      fileType: integer;
      auxType: longint;
      modifiers: integer;
      theIconObj: ptr;
      printFlag: boolean;
      end;
   finderSaysBeforeOpenInPtr = ^finderSaysBeforeOpenIn;
   finderSaysOpenFailedIn = finderSaysBeforeOpenIn;
   finderSaysOpenFailedInPtr = ^finderSaysOpenFailedIn;

   finderSaysBeforeCopyIn = record
      pCount: integer;
      inpath: gsosInStringPtr;
      outpath: gsosOutStringPtr;
      end;
   finderSaysBeforeCopyInPtr = ^finderSaysBeforeCopyIn;

   finderSaysBeforeCopyOut = record
      recvCount: integer;
      abortFlag: integer;
      end;
   finderSaysBeforeCopyOutPtr = ^finderSaysBeforeCopyOut;

   finderSaysBeforeRenameIn = record
      pCount: integer;
      oldpath,
      newpath: gsosInStringPtr;
      fileType: integer;
      auxType: longint;
      end;
   finderSaysBeforeRenameInPtr = ^finderSaysBeforeRenameIn;

   finderSaysBeforeRenameOut = record
      recvCount: integer;
      abortFlag: integer;
      end;
   finderSaysBeforeRenameOutPtr = ^finderSaysBeforeRenameOut;

   finderSaysKeyHitIn = record
      pCount: integer;
      message: integer;
      modifiers: integer;
      end;
   finderSaysKeyHitInPtr = ^finderSaysKeyHitIn;

   tellFinderGetDebugInfoOut = record
      recvCount: integer;
      finderResult: integer;
      reserved: integer;
      directPage: integer;
      deskIcon: handle;
      nameChainH: handle;
      filetypeBlock: ptr;
      deviceBlock: ptr;
      masterChainH: handle;
      finderPathsH: handle;
      finderPathsCount: integer;
      nameChainInsert: longint;
      reserved2: longint;
      masterChainInsert: longint;
      reserved3: longint;
      chainTable: handle;
      iconOffsetArray: handle;
      iconHandleArray: handle;
      iconArrayUsed: integer;
      iconArraySize: integer;
      reserved4: array[0..64] of byte;
      end;
   tellFinderGetDebugInfoOutPtr = ^tellFinderGetDebugInfoOut;

   tellFinderAreYouThereOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderAreYouThereOutPtr = ^tellFinderAreYouThereOut;

   tellFinderOpenWindowOut = record
      recvCount: integer;
      finderResult: integer;
      windowPtr: grafPortPtr;
      end;
   tellFinderOpenWindowOutPtr = ^tellFinderOpenWindowOut;

   tellFinderCloseWindowOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderCloseWindowOutPtr = ^tellFinderCloseWindowOut;

   tellFinderGetSelectedIconsOut = record
      recvCount: integer;
      finderResult: integer;
      windowPtr: grafPortPtr;
      stringListHandle: handle;
      end;
   tellFinderGetSelectedIconsOutPtr = ^tellFinderGetSelectedIconsOut;

   tellFinderSetSelectedIconsOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderSetSelectedIconsOutPtr = ^tellFinderSetSelectedIconsOut;

   tellFinderLaunchThisIn = record
      reserved: integer;
      pathname: gsosInStringPtr;
      end;
   tellFinderLaunchThisInPtr = ^tellFinderLaunchThisIn;

   tellFinderLaunchThisOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderLaunchThisOutPtr = ^tellFinderLaunchThisOut;

   tellFinderShutDownOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderShutDownOutPtr = ^tellFinderShutDownOut;

   tellFinderMItemSelectedIn = record
      menuItemID: integer;
      modifiers: integer;
      flags: integer;
      end;
   tellFinderMItemSelectedInPtr = ^tellFinderMItemSelectedIn;

   tellFinderMItemSelectedOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderMItemSelectedOutPtr = ^tellFinderMItemSelectedOut;

   swapLong = record
      msw,lsw: integer;
      end;

   tellFinderMatchFileToIconIn = record
      pCount: integer;
      vote: integer;
      match: integer;
      fileType: integer;
      auxType: swapLong;
      fileNamePtr: swapLong;
      createDateTimePtr: swapLong;
      modDateTimePtr: swapLong;
      access: integer;
      flags: integer;
      optionPtr: swapLong;
      combinedEOF: swapLong;
      end;
   tellFinderMatchFileToIconInPtr = ^tellFinderMatchFileToIconIn;

   tellFinderMatchFileToIconOut = record
      recvCount: integer;
      finderResult: integer;
      offset: longint;
      matches: handle;
      smallIcon: longint;
      largeIcon: longint;
      finderPath: handle;
      end;
   tellFinderMatchFileToIconOutPtr = ^tellFinderMatchFileToIconOut;

   tellFinderAddBundleIn = record
      reserved: integer;
      path1: gsosInStringPtr;
      path2: gsosInStringPtr;
      rBundleID: longint;
      end;
   tellFinderAddBundleInPtr = ^tellFinderAddBundleIn;

   tellFinderAddBundleOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderAddBundleOutPtr = ^tellFinderAddBundleOut;

   tellFinderAboutChangeOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderAboutChangeOutPtr = ^tellFinderAboutChangeOut;

   ptr68000 = record
      b3,b2,b1,b0: byte;
      end;

   tellFinderCheckDatabaseIn = record
      update: integer;
      pathName: ptr68000;
      rVersion: ptr68000;
      end;
   tellFinderCheckDatabaseInPtr = ^tellFinderCheckDatabaseIn;
      
   tellFinderCheckDatabaseOut = record
      recvCount: integer;
      finderResult: integer;
      found: integer;
      end;
   tellFinderCheckDatabaseOutPtr = ^tellFinderCheckDatabaseOut;

   tellFinderColorSelectionOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderColorSelectionOutPtr = ^tellFinderColorSelectionOut;
   
   tellFinderAddToExtrasOut = record
      recvCount: integer;
      finderResult: integer;
      menuItemID: integer;
      menuID: integer;
      end;
   tellFinderAddToExtrasOutPtr = ^tellFinderAddToExtrasOut;

   askFinderIdleHowLongOut = record
      recvCount: integer;
      finderResult: integer;
      tickCount: longint;
      end;
   askFinderIdleHowLongOutPtr = ^askFinderIdleHowLongOut;
   tellFinderIdleHowLongOut = askFinderIdleHowLongOut;
   tellFinderIdleHowLongOutPtr = ^tellFinderIdleHowLongOut;

   tellFinderGetWindowIconsOut = record
      recvCount: integer;
      finderResult: integer;
      stringListHandle: handle;
      end;
   tellFinderGetWindowIconsOutPtr = ^tellFinderGetWindowIconsOut;

   tellFinderGetWindowInfoOut = record
      recvCount: integer;
      finderResult: integer;
      windType: integer;
      windView: integer;
      windFST: integer;
      windTitle: pStringPtr;
      windPath: gsosInStringPtr;
      reserved1: longint;
      reserved2: longint;
      end;
   tellFinderGetWindowInfoOutPtr = ^tellFinderGetWindowInfoOut;

   tellFinderRemoveFromExtrasOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderRemoveFromExtrasOutPtr = ^tellFinderRemoveFromExtrasOut;

   tellFinderSpecialPreferencesIn = record
      pCount: integer;
      allowDrag: boolean;
      end;
   tellFinderSpecialPreferencesInPtr = ^tellFinderSpecialPreferencesIn;

   tellFinderSpecialPreferencesOut = record
      recvCount: integer;
      finderResult: integer;
      end;
   tellFinderSpecialPreferencesOutPtr = ^tellFinderSpecialPreferencesOut;

implementation
end.