warn Dumper($w->fontActual($w->cget(-font)))