Select Code to Download

$mono_font = $mw->fontCreate('mono', -family => 'Courier', -size => 10
+);

$mw->Label(-text => "test monospaced font", -font => 'mono');
$mw->Label(-text => "test monospaced font bis", -font => $mono_font);

$mw->optionAdd('*font', 'Courier 12');

#pay attention to win32 doublequotes!

perl -MTk -e "$mw=tkinit;$t=$mw->Text(-font=>'Courier')->pack;$t->inse
+rt('end', $_.(' ' x (10 - length $_)).qq(xxx\n)) for qw (aaaa bbb ccc
+ccc);MainLoop"