🚀 go-pugleaf

I have been trying to write code in Turbo Pascal which would COPY a
QuickDraw picture into the desk scrap (so that it could then be PASTEd
into any other application).  My QuickDraw picture consists of simple
MoveTo and LineTo commands.  I have tried calling the function
PutScrap, but this just does not work.  The exact syntax I have used
is as follows:

MyLongint:=Longint(MyPicture^^.picSize);
MyScrap:=PutScrap(MyLongint,'PICT',@MyPicture);

where MyPicture is the QuickDraw picture I am trying to COPY.  The
QuickDraw picture itself seems to be okay, since I am able to
reproduce it by a single call to the procedure DrawPicture.

Inside Macintosh (Vol I) makes this look pretty straightforward, but I
just cannot seem to get this to work.  Does anyone have any pointers
(no puns intended!) as to what might be my problem?

Thanks in advance.

Ameet Bhansali
(ameet@portia.stanford.edu)