Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...

MainLoop;

Select or download this

    $canvas{'text'}{$sel}->itemconfigure(
        -fill => '#0000FF',
        -font => "Courier $fontsize bold",
    );