Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
    $rec1->dchars($txt_tag,0);
    $rec1->insert($txt_tag,0,$n);
}

Select or download this

# set up timed updates here:
my $timer = $mw->repeat(500,\&delay_type);
...
    $rec1->dchars($txt_tag,0);
    $rec1->insert($txt_tag,0,$n);
}