#!/usr/bin/perl
# a nearly trivial script to mount /mnt/camera on
# dev/ttyUSB1, create a target dir, and copy pics 
# from camera to dir.
# Note that mount stuff has been excised for brevity.
#---------------------------------------------------------------------
$| = 1;
use strict;
use Tk;
use Tk::Pane;
use Tk::ProgressBar;

my $message = 'Ready';
my $main = MainWindow->new();
$main->configure(-title=>'Camera 2 Disk', -background =>'blue');
$main->geometry('370x200+100+00');
my $label = $main->Label(-text =>"Digital Camera Tool\nCopy Images from Fuji FinePix to Disk",
            -relief => 'raised',
            -background =>'#42b4b4')
    ->pack(-side=>'top', -fill =>'both');

my $button_frame = $main->Frame(-relief=>'raised')
    ->pack(-side => 'top', -fill => 'x');
my $dump = $button_frame->Button(-text => 'Dump',
             -command => \&get_files)
    ->pack(-side =>'left', -anchor => 'w');

my $status_text = 'Ready';
my $status_label = $button_frame->Label(
            #-textvariable =>\$status_text,
            -relief => 'raised',
            -background =>'grey77')
    ->pack(-side=>'left',-fill=>'both', -expand=>'1');

my $exit = $button_frame->Button(-text => 'Exit', -command => 'exit')
    ->pack(-side =>'right');

my $status = $main->Scrolled('Pane', -scrollbars => 'se', -relief => 'flat')
    ->pack(-side=>'top', -fill=>'both', -expand=>'y');
#$status->Label(textvariable =>\$message,
            #-relief => 'flat');
    #->pack(-side=>'top', -fill =>'both');

my $percent_done;
my $position = '0';
my $progress = $main->ProgressBar(-troughcolor => 'grey70',
        -width => 20,
        -length => 370,
        -anchor => 'w',
        -from => 0,
        -to => 100,
        -blocks => 0.1,
        -colors => [0, 'blue', 100],
    )->pack(-side=>'left', -fill=>'both');

$progress->value($position);

MainLoop();
#---------------------------------------------------------------------
sub get_files {
my $i;
while ($i <= 10 ) {
    $percent_done = int(($i/10) * 100);
    $progress->value($percent_done);
    $progress->update;
    $i++;
    sleep(1);
    $message = "Loop number $i.";
    }
}