ba0k+@andrew.cmu.edu (Brian Patrick Arnold) (01/12/90)
Hello there,
I don't know what the error means, but I think you should avoid
InitGraf and port manipulations. Apple's Question & Answer Stack says
the following about drawing in HyperCard:
---------------------
The XCMD should do this:
...
hPic := OpenPicture(theRect);
ShowPen; { so you can see while drawing }
{ draw your picture here... }
HidePen;
ClosePicture;
HLock(hPic); { lock for de-reference }
{ put the picture on the clipboard }
err := ZeroScrap;
err := PutScrap( GetHandleSize(hPic), 'PICT', hPic^);
HUnlock(hPic);
DisposHandle(hPic);
...
From Hypertalk, call your drawing XCMD (above), then paste the picture
onto the card or background:
myDrawingXCMD -- leaves picture on the clipboard
lock screen -- to avoid flash from "paste"
doMenu "Paste Picture"
choose browse tool
unlock screen
--------------------
Try that and see if it works.
- Brian