🚀 go-pugleaf

This bit of code does it:

	PROCEDURE Transfer;
		TYPE
			pLaunchStruct = ^LaunchStruct;
			LaunchStruct = RECORD
					pfName : ^Str255;
					param : integer;
				END;  {LaunchStruct}

		VAR
			Reply : SFReply;
			ValidTypes : SFTypeList;
			volRef : Integer;
			Location : Point;
			prompt : Str255;
			pMyLaunch : pLaunchStruct;
			myLaunch : LaunchStruct;
			fName : Str255;
			err : OSErr;
	
		PROCEDURE LaunchIt (pLnch : pLaunchStruct);
		INLINE
			$205F, $A9F2;

	BEGIN
		SetPt(Location, 90, 90);
		validTypes[0] := 'APPL';
		SFGetFile(Location, prompt, NIL, 1, validTypes, NIL, Reply);

		IF Reply.good THEN
			BEGIN
				pMyLaunch := @myLaunch;
				WITH pMyLaunch^ DO
					BEGIN
						pfName := @Reply.fName;    {pointer to our fileName}
						param := 0;          {we don't want alternate screen or sound buffers}
					END;	 {With}
				err := SetVol(NIL, reply.vRefNum);
				LaunchIt(pMyLaunch);
			END;
	END;


This is the same technique used in Macintosh Technical Note #52.

		--Rich


Richard M. Siegel
Materials Characterization Instrumentation Section
Mail Stop 231
NASA/Langley Research Center
Hampton, Virginia 23665
(804) 865-3036

Arpanet: rs4u@andrew.cmu.edu
Uucp: {your fave gateway}!seismo!andrew.cmu.edu!rs4u

Disclaimer? I don't even KNOW 'er!