#!/usr/bin/perl
use strict;
use Tk;
use Tk::Pane;

my $mw = MainWindow->new;

$mw->geometry( '1000x600' );

my $mwf = $mw->Scrolled(
   'Pane',
   -scrollbars => 'ose',
   -sticky     => 'nwse',
)->pack( -expand => 1, -fill => 'both' );

# make some frames to contain items on same line
my $f1 = $mwf->Frame()->pack( -expand => 1, -fill => 'both' );
my $f2 = $mwf->Frame()->pack( -expand => 1, -fill => 'both' );
my $f3 = $mwf->Frame()->pack( -expand => 1, -fill => 'both' );
my $f4 = $mwf->Frame()->pack( -expand => 1, -fill => 'both' );
my $f5 = $mwf->Frame()->pack( -expand => 1, -fill => 'both' ); 

#  ----------------------------------
#  | 400x500 (write only) text area |
#  ----------------------------------
#   Label1: drop down 
#   (user's input echo'd from Label1)
#   Label2: drop down 
#   (user's input echo'd from Label2)
#   Select Directory
#   (Text are with user's input dir echo'd)
#   Label3: drop down
#   (User's input echo'd from Label3)

my $text1 = $f1->Text(-bg => 'white')->pack(-side => 'left');
my $label1 = $f2->Label(-bg => 'lightseagreen', -text => 'left')
                   ->pack( -side => 'left');

my $label2 = $f2->Label(-bg => 'lightyellow', -text => 'right')
                   ->pack( -side => 'right');

my $text2 = $f3->Text(-bg => 'black')->pack(-side => 'right');


my $label3 = $f4->Label(-bg => 'hotpink', -text => 'bottom')
                   ->pack();
MainLoop();