Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rutgers!texbell!nuchat!moray!uhnix1!crcc!lavaca.uh.edu!zaphod.mps.ohio-state.edu!brutus.cs.uiuc.edu!psuvax1!psuvm!gfx
From: ** Sender Unknown **
Newsgroups: comp.sys.mac.hypercard
Subject: <None>
Message-ID: <2194@crcc.uh.edu>
Date: 10 Jan 90 06:37:15 GMT
Lines: 43

Subject:Graphic XCMD generates error 123453
Organization: Penn State University
Date: Tuesday, 9 Jan 1990 22:19:23 EST
From: <GFX@PSUVM.BITNET>
Message-ID: <90009.221923GFX@PSUVM.BITNET>

I am trying to put together a series of XCMDs to generate graphs from
within Hypercard.  Not very successful.  The pascal code works, but the
interface doesn't -- the following fragment draws a gary circle on top
of a card, but completes with an error 123453.  What does it mean?
Thanks.  Stephane

Program Circle;

{$R-} {$D PasXCMD}{U-}

USES MemTypes, QuickDraw, HyperXCmd;

{------------------------------------------------------------------------}
{                        Draws a Gray Circle (it should!)                }
{------------------------------------------------------------------------}
Procedure PasXCMD(paramPtr: XCmdPtr);

var
    myPort                                          :GrafPort;
    myRgn                                           :RgnHandle;
    r1                                              :rect;
    str                                             :Str255;

    {$I Documents:Hyper Card:XFCNs-XCMDs:XCmdGlue.inc }

begin
    InitGraf(@thePort);
    openPort(@myPort);

    r1.top := 100; r1.bottom := 200; r1.left := 100; r1.right := 200;
    FrameOval(r1); fillOval(r1,gray);

    closePort(@myPort);
end;

begin
end.