its simple, create a "label" widget using the same "system" font with the sane font size as used for the title, let the size be automatic, then "get" the dimensions of the "label"

kinda like this Re^3: Query the height of Tk::Text widget with word wrap, Re^7: Query the height of Tk::Text widget with word wrap