my $hlfont = $hl->cget(-font);
my $size = $mw->fontActual($hlfont, '-size');
print "size $size\n";   # liefert size -11 (negativ, da Pixel)