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


##</code><code>##


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


##</code><code>##

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

##</code><code>##

#pay attention to win32 doublequotes!

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