home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
RPC
/
!Perl
/
scripts
/
textareatest
< prev
next >
Wrap
Text File
|
1998-07-14
|
476b
|
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!");
}