Look at the base Widget code in man TK::Widget.
$widget->geometry gives widthxheight+x+y in pixels. Even a brute-force examination of this should allow you to re-size the font or re-configure the text string for the size of the button as displayed. While it would be nice to use the exact pixel-used count, most apps don't need that fine a control and can't waste the time.