You establish this vector before entering your event loop. When a file is dropped onto your application's icon or one of your applications files is double-clicked from the Finder, the specified routine is called with information on how to open the file.
The routines are set up to handle up to 1024 files at a time. If this number is insufficient, you will need to change the DIM statement in the header file named "Subs Files.Incl". There are three global values maintained for this vector.
gFBFndrInfoCount
The number of files pending in the queue.
gFBInfoSpec(1024) as FSSpec
An array of file spec records. There is one file spec record for each file that needs to be opened or printed.
gFBInfoAction%(1024)
A boolean value that is zero if the file is to be opened and non-zero if it is to be printed.
Example: This routine establishes a function that is called when a file is dropped onto the compiled version of the application. It also shows how to determine if a file is to be printed or opened.
/*
Build the application,
then drop a text file on to it
LOCAL FN MyOpenFile ( fs as ^FSSpec ) PRINT "FileName: ";fs.name END FN
LOCAL FN MyFinderInfo DIM AS FSSpec fs DIM AS SHORT<spacer type="horizontal" size="21">@ count, action, j DIM AS OSTYPE @ fType
count = 0 // set to ask "How many?"
action = FINDERINFO( count, fs, fType ) // FSSpec &
OSType LONG IF ( count > 0 ) // at least one file wants in FOR j = 1 TO count // process them all
count = -j
// FSSpec & OSType
action = FINDERINFO( count, fs, fType ) IF ( action == _finderInfoOpen ) AND ¬
( fType == _"TEXT" ) ¬ THEN FN MyOpenFile( fs ) NEXT FN ClearFinderInfo // in Subs Common.Incl END IF END FN
ON FINDERINFO FN MyFinderInfo
MENU 1,0,1, "File" MENU 1,1,1, "Quit/Q" WINDOW 1 DO HANDLEEVENTS UNTIL 0