Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/Libraries/PNL Libraries/MyRequiredEventSupport.p

Text File | 1995-10-23 | 4.5 KB | 143 lines | [TEXT/CWIE]

unit MyRequiredEventSupport;

interface

    uses
        AppleEvents;

    const
        keyOdocOption = 'auto'; { optional parameter to open }
        keyOdocControl = 'autC'; { optional parameter to open }

    var
        odoc_with_option: boolean;
        odoc_with_control: boolean;

    type
        DocProc = function (var fs:FSSpec): OSErr;
        NoDocProc = function: OSErr;

    procedure InitAppleEvents (DoOpenApplication:NoDocProc; DoOpenDocuments:DocProc; DoPrintDocuments: DocProc; DoQuitApplication: NoDocProc);

implementation

    uses
        MyAEUtils;

    var
        gDoOpenApplication: NoDocProc;
        gDoOpenDocuments: DocProc;
        gDoPrintDocuments: DocProc;
        gDoQuitApplication: NoDocProc;

    function HandleNoDocs (var event, reply: AppleEvent; Doit:NoDocProc): OSErr;
        var
            err: OSErr;
    begin
        reply := reply; { UNUSED! }
        err := GotRequiredParams(event);
        if err = noErr then begin
            err := Doit;
        end;
        HandleNoDocs := err;
    end;

    function HandleDocs (var event, reply: AppleEvent; Doit:DocProc): OSErr;
        var
            myFSS: FSSpec;
            docList: AEDescList;
            index, itemsInList: longint;
            actualSize: Size;
            keywd: AEKeyword;
            typeCode: descType;
            err, oerr, junk: OSErr;
            pi: ProcessInfoRec;
            psn: ProcessSerialNumber;
            dummy: Boolean;
            er: EventRecord;
    begin
        reply := reply; { UNUSED! }

    { check if the event comes from the finder and honour the option/control keys }
        odoc_with_control := false;
        odoc_with_option := false;
        err := AEGetAttributePtr(event, keyAddressAttr, keyProcessSerialNumber, keywd, @psn, SizeOf(psn), actualSize);
        if err = noErr then begin
            pi.processInfoLength := sizeof(ProcessInfoRec);
            pi.processName := nil;
            pi.processAppSpec := nil;
            err := GetProcessInformation(psn, pi);
        end;
        if (err = noErr) & (pi.processSignature = 'MACS') then begin
            dummy := OSEventAvail(everyEvent, er);
            odoc_with_option := BAND(er.modifiers, optionKey) <> 0;
            odoc_with_control := BAND(er.modifiers, controlKey) <> 0;
        end;
        junk := GetBooleanFromAERecord(event, keyOdocOption, odoc_with_option);
        junk := GetBooleanFromAERecord(event, keyOdocControl, odoc_with_control);

        err := AEGetParamDesc(event, keyDirectObject, typeAEList, docList);
        if err = noErr then begin
            junk := GotRequiredParams(event);
(* now get each alias from the list (as an FSSSpec) and open the associated file. *)
            err := AECountItems(docList, itemsInList);
            for index := 1 to itemsInList do begin
                oerr := AEGetNthPtr(docList, index, typeFSS, keywd, typeCode, @myFSS, sizeof(myFSS), actualSize);
(* coercion does alias->fsspec *)
                if oerr = noErr then begin
                    oerr := Doit(myFSS);
                end;
            end;
            junk := AEDisposeDesc(docList);
        end;
        HandleDocs := err;
    end;

    function HandleOpenApplication(var event, reply: AppleEvent; ignored: longint): OSErr;
    begin
        ignored := ignored; { UNUSED! }
        HandleOpenApplication := HandleNoDocs(event, reply, gDoOpenApplication);
    end;

    function HandleOpenDocuments (var event, reply: AppleEvent; ignored: longint): OSErr;
    begin
        ignored := ignored; { UNUSED! }
        HandleOpenDocuments := HandleDocs(event, reply, gDoOpenDocuments);
    end;

    function HandlePrintDocuments(var event, reply: AppleEvent; ignored: longint): OSErr;
    begin
        ignored := ignored; { UNUSED! }
        HandlePrintDocuments := HandleDocs(event, reply, gDoPrintDocuments);
    end;

    function HandleQuitApplication(var event, reply: AppleEvent; ignored: longint): OSErr;
    begin
        ignored := ignored; { UNUSED! }
        HandleQuitApplication := HandleNoDocs(event, reply, gDoQuitApplication);
    end;

    procedure InitAppleEvents (DoOpenApplication:NoDocProc; DoOpenDocuments:DocProc; DoPrintDocuments: DocProc; DoQuitApplication: NoDocProc);
        var
            junk: OSErr;
    begin
        gDoOpenApplication := DoOpenApplication;
        gDoOpenDocuments := DoOpenDocuments;
        gDoPrintDocuments := DoPrintDocuments;
        gDoQuitApplication := DoQuitApplication;
        if (@gDoOpenApplication <> nil) then begin
            junk := AEInstallEventHandler(kCoreEventClass, kAEOpenApplication, NewAEEventHandlerProc(@HandleOpenApplication), 0, false);
        end;
        if (@gDoOpenDocuments <> nil) then begin
            junk := AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments, NewAEEventHandlerProc(@HandleOpenDocuments), 0, false);
        end;
        if (@gDoPrintDocuments <> nil) then begin
            junk := AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments, NewAEEventHandlerProc(@HandlePrintDocuments), 0, false);
        end;
        if (@gDoQuitApplication <> nil) then begin
            junk := AEInstallEventHandler(kCoreEventClass, kAEQuitApplication, NewAEEventHandlerProc(@HandleQuitApplication), 0, false);
        end;
    end;

end.