Select Code to Download

use Tk;
$mainWin=MainWindow->new;
for(10,20,40,80,200){
        $mainWin->fontCreate("font$_",-family =>'lucidabright',-size=>
+$_);
        $mainWin->messageBox(-message=>"$_ The Quick Brown Fox Jumped 
+Over The Lazy Dog",-type=>'Ok',-font=>"font$_");
}