Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!julius.cs.uiuc.edu!apple!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!news.funet.fi!uta!majamu
From: majamu@uta.fi (Jari Multisilta)
Newsgroups: comp.sys.mac.hypercard
Subject: Re: Writing XCMDS in THINK Pascal
Message-ID: <2001@kielo.uta.fi>
Date: 17 Jan 91 07:48:13 GMT
Reply-To: majamu@uta.fi (Jari Multisilta)
Organization: University of Tampere, Finland
Lines: 28

To: patnaik@SNUFFLEUPAGUS.NRL.NAVY.MIL
Subject: Re: Writing XCMDS in THINK Pascal
Newsgroups: comp.sys.mac.hypercard
In-Reply-To: <9101161554.AA23593@snuffleupagus.nrl.navy.mil>
Organization: University of Tampere, Finland
Cc: 
Bcc: 

Files what you got from apple.com will work almost as they are.
Library file (HyperXLib.o) will work as it is and interface file
will need only minor replacements. You must replace following three
lines (object -> Xobject) if you are using THINK Pascal 3.0.x.

procedure GetObjectName (paramPtr: XCmdPtr; Xobject: XTalkObjectPtr;
 var objName: Str255);

procedure GetObjectScript (paramPtr: XCmdPtr; Xobject: XTalkObjectPtr;
var scriptHndl: Handle);

procedure SetObjectScript (paramPtr: XCmdPtr; Xobject: XTalkObjectPtr; 
scriptHndl: Handle);

Regards,

Jari Multisilta
Tampere Univ. of Tech.

E-Mail: multisil@rapola.tut.fi
        majamu@kielo.uta.fi