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