use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;

my $fsdb_tab     = $mw->Frame()->pack( -expand => 1, -fill => 'both' );
my $button_frame = $mw->Frame()->pack( -expand => 1, -fill => 'x' );

#### Label & Entry creation to select the test path
my $frm_name = $fsdb_tab->Frame()->pack( -side => 'left', -fill => 'both', -anchor => 'n' );
my $lab = $frm_name->Label( -text => "TEST PATH:" )->pack( -side => 'left' );
my $ent = $frm_name->Entry( -width => 80 )->pack( -side => 'left' );
$ent->focus;

#GUI building for Browser push buttons
my $but = $frm_name->Button(
    -text             => "Browse",
    -command          => \&browser_button,
    -activebackground => 'lightblue',
    -activeforeground => 'black',
    -relief           => 'raised',
    -borderwidth      => 8
)->pack( -side => 'right' );

#### Button for "Run FSDB"

my $final_frame =
  $button_frame->Frame( -borderwidth => '5', -relief => 'ridge' )
  ->grid( -row => 0, -column => 0 );
my $run_fsdb = $final_frame->Button(
    -text             => "Run FSDB",
    -command          => \&run_fsdb,
    -activebackground => 'lightblue',
    -activeforeground => 'black',
    -relief           => 'raised',
    -borderwidth      => 8,
    -width            => 10
)->pack( -side => 'left', -expand => 0 );
#### Button for "Refresh"
my $refresh_frame =
  $button_frame->Frame( -borderwidth => '5', -relief => 'ridge' )
  ->grid( -row => 0, -column => 1 );
my $refresh_fsdb = $refresh_frame->Button(
    -text             => "Refresh",
    -command          => \&refresh_fsdb,
    -activebackground => 'lightblue',
    -activeforeground => 'black',
    -relief           => 'raised',
    -borderwidth      => 8,
    -width            => 10
)->pack( -side => 'left', -expand => 0 );

#### Button for "EXIT"
my $exit_frame = $button_frame->Frame(
    -borderwidth => '5',
    -relief => 'ridge'
)->grid( -row => 0, -column => 2 );

my $exit_fsdb = $exit_frame->Button(
    -text             => "EXIT",
    -command          => sub { $mw->destroy; exit; },
    -activebackground => 'lightblue',
    -activeforeground => 'black',
    -relief           => 'raised',
    -borderwidth      => 8,
    -width            => 10
)->pack( -side => 'right' );

MainLoop;