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);
}
