#!/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;
In reply to Tk Notebook tab columns by honyok
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |