my $label = $mw->Label(-bg => 'white',
                       -text => $string, 
                       -font => "-adobe-helvetica-regular-r-normal-*-12-*-*-*-*-*-*-*")->pack();