Thanks in advance for any insights!

See Tk::pack, read the source

see resizing problem with Tk appl using PackForget

use

    $mw->geometry( undef ); # natural geometry ( no smaller than $upda
+te
    $mw->update;
[download]