Path: utzoo!attcan!uunet!ncrlnk!ncrcae!ece-csc!mcnc!duke!dukempd!fang
From: fang@dukempd.phy.duke.edu (Fang Zhong)
Newsgroups: comp.sys.mac.programmer
Subject: Copy to clipboard in MultiFinder
Message-ID: <737@dukempd.phy.duke.edu>
Date: 9 Nov 88 20:36:56 GMT
Organization: Duke University Physics Dept.; Durham, N.C.
Lines: 16


	The following codes put a PICT drawing into the clipboard.
It works fine in Finder, but it fails to do the job in
MultiFinder. Can any shed a light on this problem?  Thanks.


	PicHandle = toolbx (OPENPICTURE,rect)
	.../drawing commands/....
	call toolbx (CLOSEPICTURE)

	  clipboard = toolbx(ZEROSCRAP)	    !copy pict to clipboard
	  call toolbx(HLOCK,PicHandle)
	  ptrsize = toolbx(GETHANDLESIZE,PicHandle)
	  pictptr = LONG(PicHandle)
	  clipboard = toolbx(PUTSCRAP,ptrsize,'PICT',pictptr)
	  call toolbx(HUNLOCK,PicHandle)