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

为边框等添加一点倾斜，并使用它来设置顶层的大小：

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

如果它不是您想要控制的顶层，这是最简单的通过将内容放入框架中并控制该框架的大小来实现此目的（相同的方法，相同的选项）。另请注意，如果行太多或太长，则无论如何它都无法适合屏幕。