🚀 go-pugleaf

Here is a small Lightspeed Pascal program which demonstrates the problems I am
having getting MultiFinder to recognize that I have changed the contents of the
clipboard:

program testClipboard;
 var
  thePicture : PicHandle;
  bounds : Rect;
  pictureSize : Size;
  result : longint;

begin
 SetRect(bounds, 0, 0, 100, 100);
 ClipRect(bounds);
 thePicture := OpenPicture(bounds);
 MoveTo(0, 0);
 LineTo(100, 100);
 ClosePicture;
 HLock(Handle(thePicture));
 pictureSize := GetHandleSize(Handle(thePicture));
 result := ZeroScrap;
 if result = NoErr then
  begin
   result := PutScrap(pictureSize, 'PICT', Ptr(thePicture^));
   if result = NoErr then
    result := LoadScrap;
  end;
 HUnlock(Handle(thePicture));
 KillPicture(thePicture);
end.

This is probably the simplest program possible which puts anything into the
clipboard, but it does not work with MultiFinder. It DOES work will all other
systems that I tried it on, including System 4.2 running without the 
MultiFinder. Tracing through the program under MultiFinder with LSP (a risky
proposition, admittedly) revealed that the clipboard routines did not report
an error. In fact, the clipboard was updated inside LSP, but once I quit back
to the Finder, the clipboard reverted to its old state. Is this my error or
some devious bug?

Bill Lipa
-------