#!/usr/local/bin/perl5 -w

require Tk;
use Tk;
my $Version="1.0";

my @sernums=  ("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "");
my @partnums= ("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "");

# Create main window
my $width = 900;
my $height = 680;

my $main = MainWindow->new();
$main->minsize( ($width, $height));
$main->maxsize( ($width, $height));
$main->title(" SanDisk SFT1");
#$main->setIcon(-file => 'PliantLogo.ico');
$main->configure(-background=>'gray'); #cyan

my $menu_bar = $main->Frame(-relief=> 'groove',
	-borderwidth=> 3,
	-background=> 'blue', #purple
	)->pack('-side'=> 'top',-fill=> 'x');

my $file_mb = $menu_bar->Menubutton(-text => 'File',
	-background => 'blue', #purple
	-activebackground => 'blue',
	-foreground => 'white',
	)->pack(-side=> 'left');

$file_mb->command(-label => 'Exit',
	-activebackground => 'blue',
	-command => sub{$main->destroy});

my $help_mb = $menu_bar->Menubutton(-text=> 'Help',
	-background => 'blue', #purple
	-activebackground => 'cyan',
	-foreground => 'white',
	)->pack(-side=> 'right');

$help_mb->command(-label => 'About',
	-activebackground => 'blue',
	-command => \&about_txt);

$help_mb->separator();

$help_mb->command(-label => 'Help',
	-activebackground => 'blue',
	-command => \&help_txt);

#Build the innards
my $statusline = $main->Frame(-borderwidth => 3, -relief => 'groove',
	-background => 'purple')->pack(-side => 'top');

my $status = $statusline->Label(-width => $width, -height => 0,
	-foreground => 'white', -background => 'purple')->pack();

my $line1 = $main->Frame(-borderwidth => 3, -relief => 'groove',
	-background => 'gray')->pack(-side => 'top');

my $row1info = $line1->Label(-text => "Slots 01 - 04", -width => $width, -height => 0,
	-foreground => 'black', -background => 'gray')->pack();

my $row1 = $main->Frame(-background => 'cyan',)->pack(-side => 'top', -fill => 'x');