#!/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=>"PSET"));
$tab1->Label(-text=>"BYTESWAP=")->grid($tab1->Entry(-textvariable=>"Y"));
$tab1->Label(-text=>"OUTPUTAUX=")->grid($tab1->Entry(-textvariable=>"N"));

################################


MainLoop;