#-- Function to build progress windows --#
sub build_progress {
		my ($title,$value) = @_;
		my $window = new Gtk::Window( 'toplevel' );
		$window->title("-=[ " . $title . " ]=-");
		$window->set_default_size(300,40);
		my ($adj,$pbar);
		my $signals = $window->signal_connect( 'delete_event', sub{$window->destroy();} );
		$window->border_width( 5 );
		my $vbox = new Gtk::VBox( $false, 0 );
		$window->add( $vbox );
		$adj = new Gtk::Adjustment( 0, 1, 100, 0, 0, 0 );
		$pbar = new_with_adjustment Gtk::ProgressBar( $adj );
		$vbox->pack_start( $pbar, $true, $true, 2 );
		$pbar->set_format_string( "%p%%" );
		$pbar->set_show_text( 1 );
		$pbar->set_value( 1 );
		$pbar->show();
		$vbox->show();
		Gtk->main_iteration while ( Gtk->events_pending );
		$window->show();
	   	 my $timer = Gtk->timeout_add(500,sub{$pbar->set_value($$value);return($true);});
}
