Perl TK调整窗口大小

Question

是否可以自动将Tk窗口调整为文本图内文本的宽度和高度？

Answer 1

您可以轻松衡量特定字体中某些文字的宽度：

$font = $widget->Font(....);              # Get the font however you want
$lineWidth = $font->measure($text);       # Do this for each line; take the max
$lineHeight = $font->metrics(-linespace); # Get the height of a line; x # lines

为边框添加一些slop等，并用它来设置顶层的大小：

$toplevel->configure(-width=>$width, -height=>$height);

如果它不是你想要控制的顶层，最简单的方法是将内容放在一个框架中并控制该框架的大小（相同的方法，相同的选项）。另请注意，如果行太多或行太长，则无论如何都不适合屏幕。