Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!mit-eddie!bu-cs!purdue!decwrl!hplabs!hpda!hp-sde!hpcea!hpcilzb!tedj
From: tedj@hpcilzb.HP.COM (Ted Johnson)
Newsgroups: comp.sys.mac.programmer
Subject: Re: Pascal Question...
Message-ID: <730030@hpcilzb.HP.COM>
Date: 19 May 88 04:41:20 GMT
References: <226000012@uxe.cso.uiuc.edu>
Organization: HP Design Tech Center - Santa Clara, CA
Lines: 39

Here is the LSC version:

#include <WindowMgr.h>
#include <QuickDraw.h>
#include <MacTypes.h>
#include <EventMgr.h>
#include <StdFilePkg.h>
#include <MenuMgr.h>

SFReply	theReply;
SFTypeList myTypes;
Point	SFDialogOrigin;
OSErr ErrorCode

main()
{
	InitGraf(&thePort);
	InitFonts();
	InitWindows();
	InitMenus();
	TEInit();
	InitDialogs(0L);
	FlushEvents(everyEvent, 0);
	
	myTypes[0] = 'APPL';
	
	SetPt(&SFDialogOrigin, 80, 80);

	SFGetFile(SFDialogOrigin, "\p", 0L, 1, myTypes, 0L, &theReply);

	if (theReply.good == TRUE) {
		ErrorCode = SetVol(0L, theReply.vRefNum);
	
		Launch(0, &theReply.fName);
	}
}


-Ted