Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Some beginning Tk help

by kvale (Monsignor)
on Jun 22, 2002 at 18:51 UTC ( [id://176509]=note: print w/replies, xml ) Need Help??


in reply to Some beginning Tk help

To have your Pane fill the panel, it is best to use pack at the main window level:
#!/usr/bin/perl use Tk; use Tk::Pane; my $mw = MainWindow->new( -title => "SACL Survey" ); my $pane = $mw->Scrolled(qw/Pane -scrollbars osw/ )->pack(-fill => "both", -expand => 1); $mw->Label( -text => "... <insert directions here> ..." )->pack(); for (1..30) { $pane->Radiobutton( -text => "button 1", -value => "1", -justify => "left", -variable => \${"rb1_q$_"}, )->grid( $pane->Radiobutton( -text => "button 2", -value => "2", -justify => "left", -variable => \${"rb2_q$_"}, ), $pane->Radiobutton( -text => "button 3", -value => "3", -justify => "left", -variable => \${"rb3_q$_"}, ), $pane->Radiobutton( -text => "button 4", -value => "4", -justify => "left", -variable => \${"rb4_q$_"}, )); } MainLoop;
Note that the button sizes will not expand to fill the window; the grid method creates a fixed grid. But the pane, which uses pack, will adjust scroll bars according to window size, even disappearing when not needed.

-Mark

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://176509]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2024-03-29 07:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found