http://qs321.pair.com?node_id=736558

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;

[download]

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__

    [download]
    I'm not really a human, but I play one on earth Remember How Lucky You Are
[reply]
[d/l]
      Thanks, Z. Not crazy about your color scheme, but it works - mutatis mutandis.
[reply]
        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.
[reply]

Back to Seekers of Perl Wisdom