Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 UW 5/3/83; site uw-beaver
Path: utzoo!watmath!clyde!burl!ulysses!mhuxj!houxm!vax135!cornell!uw-beaver!info-mac
From: info-mac@uw-beaver (info-mac)
Newsgroups: fa.info-mac
Subject: Re: MacPascal & the Clipboard
Message-ID: <2289@uw-beaver>
Date: Mon, 19-Nov-84 21:56:43 EST
Article-I.D.: uw-beave.2289
Posted: Mon Nov 19 21:56:43 1984
Date-Received: Wed, 21-Nov-84 00:15:31 EST
Sender: yenbut@uw-beave
Organization: U of Washington Computer Science
Lines: 40

From: singer@harvard.ARPA (Andrew Singer)
   MacPascal uses the standard ToolBox Scrap Manager to maintain the Clipboard.
All the information you need (and more than you probably want) is contained in the
Scrap Manager section of Inside Macintosh. The following sample program shows how
to read the contents of the Clipboard if it contains text. If you want to read
picture information out of the Clipboard, you're on your own...

   program ReadClipboard;
    const
     GetScrap = $A9FD;
    type
     Buffer = packed array[0..32767] of Char;
     BufferPtr = ^Buffer;
     BufferHandle = ^BufferPtr;
    var
     theBuffer : BufferHandle;
     Offset, BufferLength : Longint;
     Index : Integer;
     TypeRec : record
       theType : packed array[1..4] of Char
      end;
   begin
    theBuffer := NewHandle(0);
    TypeRec.theType := 'TEXT';
    BufferLength := LInLineF(GetScrap, theBuffer, TypeRec, @Offset);
    if BufferLength < 0 then
     if BufferLength = -102 then
      writeln('*** Clipboard empty or does not contain text')
     else
      writeln('*** Error #', BufferLength : 1)
    else
     begin
      for Index := 0 to BufferLength - 1 do
       write(theBuffer^^[Index]);
     end;
    DisposeHandle(theBuffer)
   end.

     Jon F. Hueras, Think Technologies, Inc.
     (singer@harvard)