15.16 Tkのサイズ変更イベントに応答する

  • Confiureイベントを捕捉することによって、ユーザがウィンドウのサイズを変更するのを防ぐ
use Tk;

$main = MainWindow->new();

$main->bind('<Configure>' => Sub {
  $xe = $main->XEvent;
  $main->maxsize($xe->w, $xe->h);
  $main->minsize($xe->w, $xe->h);
});