in reply to Font difference
use Tk::Font; $font = $widget->Font('*-courier-medium-r-normal-*-*'); [download]
-------------------------------- SV* sv_bless(SV* sv, HV* stash);