Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Tk Notebook tab columns

by zentara (Archbishop)
on Jan 15, 2009 at 16:09 UTC ( #736575=note: print w/replies, xml ) Need Help??


in reply to Tk Notebook tab columns

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

Replies are listed 'Best First'.
Re^2: Tk Notebook tab columns
by honyok (Sexton) on Jan 15, 2009 at 20:41 UTC
    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: note [id://736575]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (10)
As of 2021-01-21 20:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?