perl - 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);

制御したいのがトップレベルでない場合は、コンテンツをフレームに入れてそのフレームのサイズを制御するのが最も簡単です (同じ方法、同じオプション)。また、行数が多すぎたり、行が長すぎたりすると、いずれにしても画面に収まらないことに注意してください。