Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Tk Notebook tab columns

by honyok (Sexton)
on Jan 15, 2009 at 14:47 UTC ( #736558=perlquestion: print w/replies, xml ) Need Help??

honyok has asked for the wisdom of the Perl Monks concerning the following question:

I'm an uber-newbie to Tk. My first query: I'm using a Notebook/Tab construct to build a simple gui. The following code produces 1 column of Label->Entry pairs; I would like 2 columns: Label->Entry Label->Entry any suggestions?
#!/usr/bin/perl -w use Tk; use Tk::NoteBook; use Time::HiRes qw(usleep); $mw = MainWindow->new(); $mw->geometry( "600x500" ); $book = $mw->NoteBook()->pack( -fill=>'both', -expand=>1 ); $tab1 = $book->add( "Sheet 1", -label=>"program1"); $tab2 = $book->add( "Sheet 2", -label=>"program2"); #==================form attempt 1========================= $tab1->Label(-text => "IN_DIR=")->grid($tab1->Entry(-textvariable => " +")); $tab1->Label(-text=>"IN_LIST=")->grid($tab1->Entry(-textvariable=>"")) +; $tab1->Label(-text=>"OUT_TYPE=")->grid($tab1->Entry(-textvariable=>"PS +ET")); $tab1->Label(-text=>"BYTESWAP=")->grid($tab1->Entry(-textvariable=>"Y" +)); $tab1->Label(-text=>"OUTPUTAUX=")->grid($tab1->Entry(-textvariable=>"N +")); ################################ MainLoop;

Replies are listed 'Best First'.
Re: Tk Notebook tab columns
by zentara (Archbishop) on Jan 15, 2009 at 16:09 UTC
    UPDATE: Fixed alignment problem

    I never mess with grid, but here is a way that I would do it. Make everything in a hash, so you can easily retreive values, by specifying page, and frame. (I may have made some logic errors in the frame setup...and the boxes can be aligned with padding your text with spaces). I'm in a hurry....so test,test,test, but it appears to work.

    #!/usr/bin/perl use warnings; use strict; use Tk; use Tk::NoteBook; require Tk::Pane; use Tk::LabEntry; my $mw = MainWindow->new(); $mw->geometry( "600x500" ); my $book = $mw->NoteBook()->pack( -fill=>'both', -expand=>1 ); my %hash; my @tabs = (1..5); foreach my $tab(@tabs){ $hash{$tab}{'frame'} = $book->add( "Sheet $tab", -label=>"program $tab +"); #$hash{$tab}{'frame'} = $book->add( "Sheet $tab", -label=>"program $ta +b"); } #make a Scolled Pane in every tab, with 2 frames for columns foreach my $tab(@tabs){ $hash{$tab}{'spane'}= $hash{$tab}{'frame'}->Scrolled('Pane',-bg=>'whi +te') ->pack(-expand=>1,-fill=>'both'); #now pack 2 side by side frames in the scrolled Pane $hash{$tab}{'f1'}= $hash{$tab}{'spane'}->Frame(-bg=>'hotpink', -padx +=>15) ->pack(-side=>'left',-expand=>1,-fill=>'both',-padx=>15); $hash{$tab}{'f2'}= $hash{$tab}{'spane'}->Frame(-bg=>'lightseagreen',- +padx=>15) ->pack(-side=>'right',-expand=>1,-fill=>'both'); } #now make columns foreach my $tab(@tabs){ foreach my $fr('f1','f2'){ #make frames for each pair $hash{$tab}{$fr}{'subframel'} = $hash{$tab}{$fr}->Frame() ->pack(-side=>'left',-expand=>1,-fill=>'both'); $hash{$tab}{$fr}{'subframer'} = $hash{$tab}{$fr}->Frame() ->pack(-side=>'right',-expand=>1,-fill=>'both'); } } #now fill columns foreach my $val qw(IN_DIR IN_LIST OUT_TYPE BYTESWAP OUTPUTAUX ){ foreach my $tab(@tabs){ foreach my $fr('f1','f2'){ $hash{$tab}{$fr}{'subframel'}{'labentry'} = $hash{$tab}{$fr}{'subframel'}->LabEntry(-label => "$val="); $hash{$tab}{$fr}{'subframel'}{$val}{'val'} = "$val-$tab-$fr"; $hash{$tab}{$fr}{'subframel'}{'labentry'}->Subwidget('entry')-> configure(-background=>'yellow', -width => 25, -textvariable => \$hash{$tab}{$fr}{'subframel'}{$val}{'val'} +); $hash{$tab}{$fr}{'subframel'}{'labentry'}->configure( -labelPack=>[-side=>'left',-anchor=>'w'], -width => 20, ); $hash{$tab}{$fr}{'subframel'}{'labentry'}->pack(-anchor=>'e'); + } } } MainLoop; __END__

    I'm not really a human, but I play one on earth Remember How Lucky You Are
      Thanks, Z. Not crazy about your color scheme, but it works - mutatis mutandis.
        Ok, now that I have this working and some degree of comprehension, I need more input. I'd like to call specific tabs from a main menu. I'd like a front page with tab choices, then the front page disappears and those specific tabs will come up. When I get a chance I will peruse the "code" section - I work quickest by hacking examples. Thanks for any input folks.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://736558]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2021-02-25 19:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?