use Tk::Font;

$font = $widget->Font('*-courier-medium-r-normal-*-*');