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

Text File | 1998-07-13 | 259b | 11 lines

use RISCOS;
use RISCOS::DrawFile;
use RISCOS::File 'globlist';

foreach $file (globlist (@ARGV)) {
    $draw = new RISCOS::DrawFile ($file,'+');
    $draw->ChangeString('Font','Homerton.Medium','English');
    $draw->Do('Width',0);
    $draw->Write($file);
}