Acorn User 10/AU_CD10.iso/Updates/Perl/Non-RPC/!Perl/scripts/textareatest

Text File | 1998-07-14 | 476 b | 14 lines

#!perl -w
use RISCOS;
use RISCOS::DrawFile;
use RISCOS::File 'globlist';
$RISCOS::DrawFile::TextArea::Parser::cack = 1;
$RISCOS::DrawFile::TextArea::Parser::cack = 1;
require RISCOS::DrawFile::TextArea::Parser;

foreach $file (globlist (@ARGV)) {
    $draw = new RISCOS::DrawFile ($file,'+');
    $draw->Replace(sub {my $self=$_[0]; if ($self->isa('RISCOS::DrawFile::TextArea')) {@{new RISCOS::DrawFile::TextArea::Parser $self}} else {$self;}});
    $draw->Write("$file!");
}