Oh beautiful for spacious columns!

Thank you! I commented away the dummy cell creation and added a "-minsize => 13" to "gridRowconfigure". At first I played with "gridColumnconfigure" because I thought I had a "column" problem. But my "column" problem was actually stemming from the individual rows not having to maintain a minimum height. Code is now fixed per your suggestion. Thanks! :-)

P.S. I start the toplevel with a certain geometry, which I must adjust a bit (as you forsaw). Since the original geometry didn't leave enough space for each row to accomodate the new -minsize, some rows had widgets whose text/height was cropped. Enlarging geometry from 630x423+113+74 made all my widgets happy again.

for (my $i = 0; $i < $rows; $i++) {
    $tl->gridRowconfigure($i,
            -weight => 1,
            -minsize => 13
                );
}

$tl->geometry( 630x461+113+74 );
[download]