use threads;
use threads::shared;


my $dummy1downloadgo : shared = 0;
my $dummy1downloadvalue : shared = "IDLE";
my $dummy1uploadgo : shared = 0;
my $dummy1uploadvalue : shared = "IDLE";
### dummy2 SHARED####
my $dummy2downloadgo : shared = 0;
my $dummy2downloadvalue : shared = "IDLE";
my $dummy2uploadgo : shared = 0;
my $dummy2uploadvalue : shared = "IDLE";


my $dummy3downloadgo : shared = 0;
my $dummy3downloadvalue : shared = "IDLE";
my $dummy3uploadgo : shared = 0;
my $dummy3uploadvalue : shared = "IDLE";


##### dummy1 THREAD #####
my $dummy1downloadThread = threads->new( \&dummy1downloadthread );
my $dummy1uploadThread = threads->new( \&dummy1uploadthread );
##### dummy2 THREAD #####
my $dummy2downloadThread = threads->new( \&dummy2downloadthread );
my $dummy2uploadThread = threads->new( \&dummy2uploadthread );
##### dummy3 THREAD #####
my $dummy3downloadThread = threads->new( \&dummy3downloadthread );
my $dummy3uploadThread = threads->new( \&dummy3uploadthread );


##### dummy1 DOWNLOAD PROCESS #####
sub dummy1downloadthread {
while (1) {
if ($dummy1downloadgo == 0)
{
sleep 2;
$dummy1downloadvalue = "IDLE" ;
}
else {
#$dummy1downloadvalue++;
$dummy1downloadvalue = "dummy1 Download Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy1downloadvalue = "dummy1 Download Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy1 UPLOAD PROCESS #####
sub dummy1uploadthread {
while (1) {
if ($dummy1uploadgo == 0)
{
sleep 2;
$dummy1uploadvalue = "IDLE" ;
}
else {
#$dummy1uploadvalue++;
$dummy1uploadvalue = "dummy1 Upload Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy1uploadvalue = "dummy1 Upload Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy2 DOWNLOAD PROCESS #####
sub dummy2downloadthread {
while (1) {
if ($dummy2downloadgo == 0)
{
sleep 2;
$dummy2downloadvalue = "IDLE" ;
}
else {
#$dummy2downloadvalue++;
$dummy2downloadvalue = "dummy2 Download Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy2downloadvalue = "dummy2 Download Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy2 DOWNLOAD PROCESS #####
sub dummy2uploadthread {
while (1) {
if ($dummy2uploadgo == 0)
{
sleep 2;
$dummy2uploadvalue = "IDLE" ;
}
else {
#$dummy2uploadvalue++;
$dummy2uploadvalue = "dummy2 Upload Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy2uploadvalue = "dummy2 Upload Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy3 DOWNLOAD PROCESS #####
sub dummy3downloadthread {
while (1) {
if ($dummy3downloadgo == 0)
{
sleep 2;
$dummy3downloadvalue = "IDLE" ;
}
else {
#$dummy3downloadvalue++;
$dummy3downloadvalue = "dummy3 Download Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy3downloadvalue = "dummy3 Download Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy3 DOWNLOAD PROCESS #####
sub dummy3uploadthread {
while (1) {
if ($dummy3uploadgo == 0)
{
sleep 2;
$dummy3uploadvalue = "IDLE" ;
}
else {
#$dummy3uploadvalue++;
$dummy3uploadvalue = "dummy3 Upload Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy3uploadvalue = "dummy3 Upload Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}


use Tk;
use Tk::dialog;
require Tk::NoteBook;
require Tk::LabFrame;
use Tk::LabFrame;

my $mw = MainWindow->new(-background => 'gray50');

#my $lframe = $mw->Frame( -background => 'gray50',-borderwidth=>10 )->pack(-side =>'left' ,-fill=>'y');
#my $rframe = $mw->Frame( -background => 'gray50',-borderwidth=>10 )->pack(-side =>'right',-fill =>'both' );
my $mbar = $mw -> Menu();
$mw -> configure(-menu => $mbar);

my %actives = (); #hash to hold reusable numbered widgets used for downloads
my @ready = (); #array to hold markers indicating activity is needed

my $file = $mbar -> cascade(-label=>"File", -underline=>0, -tearoff => 0);
my $help = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);

$file -> command(-label =>"Exit", -underline => 1,
		-command => sub { exit } );

$help -> command(-label =>"About", -underline => 0,
		-command => [\&menuClicked, "About"]);
		
$mw->geometry("200x200");
$mw->title( 'dummy check' );

$nb = $mw->NoteBook(-borderwidth => 2 )->pack(-expand => 1, -fill => 'both',);
$p1 = $nb->add('page1', -label => 'dummy1');

my $dummy1downloadframe = $p1->LabFrame(-label => "dummy1 Download",
                                   -labelside => "acrosstop")->pack();
$dummy1downloadframe->Button( -text => 'Start', -command => \&dummy1downloadstart )->pack( -side =>'left' );
$dummy1downloadframe->Button( -text => 'Stop', -command => \&dummy1downloadstop )->pack( -side =>'left' );
$dummy1downloadstatus = $dummy1downloadframe->Label(-text => $dummy1downloadvalue, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 'left' );


my $dummy1uploadframe = $p1->LabFrame(-label => "dummy1 upload",
                                   -labelside => "acrosstop")->pack();
$dummy1uploadframe->Button( -text => 'Start', -command => \&dummy1uploadstart )->pack( -side =>'left' );
$dummy1uploadframe->Button( -text => 'Stop', -command => \&dummy1uploadstop )->pack( -side =>'left' );
$dummy1uploadstatus = $dummy1uploadframe->Label(-text => $dummy1uploadvalue, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 'left' );


$p2 = $nb->add('page2', -label => 'dummy2');

my $dummy2downloadframe = $p2->LabFrame(-label => "dummy2 Download",
                                   -labelside => "acrosstop")->pack();
$dummy2downloadframe->Button( -text => 'Start', -command => \&dummy2downloadstart )->pack( -side =>'left' );
$dummy2downloadframe->Button( -text => 'Stop', -command => \&dummy2downloadstop )->pack( -side =>'left' );
$dummy2downloadstatus = $dummy2downloadframe->Label(-text => $dummy2downloadvalue, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 'left' );


my $dummy2uploadframe = $p2->LabFrame(-label => "dummy2 upload",
                                   -labelside => "acrosstop")->pack();
$dummy2uploadframe->Button( -text => 'Start', -command => \&dummy2uploadstart )->pack( -side =>'left' );
$dummy2uploadframe->Button( -text => 'Stop', -command => \&dummy2uploadstop )->pack( -side =>'left' );
$dummy2uploadstatus = $dummy2uploadframe->Label(-text => $dummy2uploadvalue, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 'left' );





$mw->MainLoop;
###################################################################


sub dummy1downloadstart {
$dummy1downloadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy1downloadstatus->configure(-text => $dummy1downloadvalue);
$dummy1downloadstatus->update;
$mw->update;});
}

sub dummy1downloadstop {
$timer->cancel;
$dummy1downloadvalue = "IDLE";
$dummy1downloadstatus->configure(-text => $dummy1downloadvalue);
$dummy1downloadstatus->update;
$dummy1downloadgo = 0;
}


sub dummy1uploadstart {
$dummy1uploadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy1uploadstatus->configure(-text => $dummy1uploadvalue);
$dummy1uploadstatus->update;
$mw->update;});
}

sub dummy1uploadstop {
$timer->cancel;
$dummy1uploadvalue = "IDLE";
$dummy1uploadstatus->configure(-text => $dummy1uploadvalue);
$dummy1uploadstatus->update;
$dummy1uploadgo = 0;
}


##### dummy2 DOWNLOAD START #####
sub dummy2downloadstart {
$dummy2downloadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy2downloadstatus->configure(-text => $dummy2downloadvalue);
$dummy2downloadstatus->update;
$mw->update;});
}
##### dummy2 DOWNLOAD STOP #####
sub dummy2downloadstop {
$timer->cancel;
$dummy2downloadvalue = "IDLE";
$dummy2downloadstatus->configure(-text => $dummy2downloadvalue);
$dummy2downloadstatus->update;
$dummy2downloadgo = 0;
}

##### dummy2 UPLOAD START #####
sub dummy2uploadstart {
$dummy2uploadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy2uploadstatus->configure(-text => $dummy2uploadvalue);
$dummy2uploadstatus->update;
$mw->update;});
}
##### dummy2 UPLOAD STOP #####
sub dummy2uploadstop {
$timer->cancel;
$dummy2uploadvalue = "IDLE";
$dummy2uploadstatus->configure(-text => $dummy2uploadvalue);
$dummy2uploadstatus->update;
$dummy2uploadgo = 0;
}

##### dummy3 DOWNLOAD START #####
sub dummy3downloadstart {
$dummy3downloadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy3downloadstatus->configure(-text => $dummy3downloadvalue);
$dummy3downloadstatus->update;
$mw->update;});
}
##### dummy3 DOWNLOAD STOP #####
sub dummy3downloadstop {
$timer->cancel;
$dummy3downloadvalue = "IDLE";
$dummy3downloadstatus->configure(-text => $dummy3downloadvalue);
$dummy3downloadstatus->update;
$dummy3downloadgo = 0;
}

##### dummy3 UPLOAD START #####
sub dummy3uploadstart {
$dummy3uploadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy3uploadstatus->configure(-text => $dummy3uploadvalue);
$dummy3uploadstatus->update;
$mw->update;});
}
##### dummy3 UPLOAD STOP #####
sub dummy3uploadstop {
$timer->cancel;
$dummy3uploadvalue = "IDLE";
$dummy3uploadstatus->configure(-text => $dummy3uploadvalue);
$dummy3uploadstatus->update;
$dummy3uploadgo = 0;
}