Вы можете взять ширину в пикселях и сделать оценку:
set width [expr {round($pwidth/[font measure TkTextFont 0])}]
Высота будет что-то вроде:
set height [expr {round($pheight/[font metrics TkTextFont -linespace])}]
Замените TkTextFont
фактическим используемым шрифтом.