Select Code to Download

use Tk;
$mw = MainWindow->new;
...
})->pack;

MainLoop;

$mw->optionAdd("*font", "-*-arial-normal-r-*-*-*-120-*-*-*-*-*-*");
$mw->optionAdd("*borderWidth", 1);