in reply to Want Tk to fully display 4x6 widget w/ grid instead of collapsing it

You need to change your gridColumnconfigure and gridRowconfigures to use the '-minsize' attribute. '-weight' just controls how the cells respond to the grid being resized. As an example: 
for (my $i = 0; $i < $rows; $i++) {
    $tl->gridRowconfigure($i, -weight => 1, -minsize => 80);
}

[download]
would make your cells always at least 80 pixels wide. All you have to do is make sure that minsize is greather than or equal to the largest widget.

I have used this (many times!) in TCL/Tk, but not in Perl/Tk. However, I can't see why it wouldn't work.

  • Comment on Re: Want Tk to fully display 4x6 widget w/ grid instead of collapsing it
  • Download Code

Replies are listed 'Best First'.
Re: Want Tk to fully display 4x6 widget w/ grid instead of collapsing it
by ff (Hermit) on Oct 25, 2002 at 14:11 UTC
    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]
[reply]
[d/l]

In Section Seekers of Perl Wisdom