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); });
use Tk; $main = MainWindow->new(); $main->bind('<Configure>' => Sub { $xe = $main->XEvent; $main->maxsize($xe->w, $xe->h); $main->minsize($xe->w, $xe->h); });