[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-Toolbox] Oops (Getting/setting clipboard)



At 9.25 +0100 2000.04.14, Alan Fry wrote:
>Use Mac::LowMem;
>my $lmh = LMGetScraphandle;
>...
>my $cbs = $lmh->get;

BTW, here is what I came up with:

#!perl -w
# get
use Mac::LowMem;
my $lmh = LMGetScrapHandle();
my $type = $lmh->get(0, 4);
my $len = unpack 'l', $lmh->get(4, 8);
print $lmh->get(8, $len) if $type eq 'TEXT';


#!perl -w
# set
use Mac::LowMem;
my $lmh = LMGetScrapHandle();
my $text = 'fooooo';
my $hand = 'TEXT' . pack('l', length($text)) . $text;
$lmh->set(0, length($hand), $hand);

-- 
Chris Nandor       |     pudge@pobox.com      |     http://pudge.net/
Andover.Net        | chris.nandor@andover.net | http://slashcode.com/

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-toolbox-request@macperl.org