xmltv/lib/ProgressBar None.pm, 1.3, 1.4 Term.pm, 1.2, 1.3 Tk.pm, 1.1, 1.2

Update of /cvsroot/xmltv/xmltv/lib/ProgressBar
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21723/lib/ProgressBar

Modified Files:
	None.pm Term.pm Tk.pm 
Log Message:
Whitespace: remove trailing whitespace

Index: Tk.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/ProgressBar/Tk.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tk.pm	7 Sep 2004 18:41:42 -0000	1.1
--- Tk.pm	12 Jul 2015 00:59:02 -0000	1.2
***************
*** 13,24 ****
  
  sub new {
!         
          my $class = shift;
          my $self = {};
!         
          bless $self, $class;
!         
          $self->_init(@_);
!         
  }
  
--- 13,24 ----
  
  sub new {
! 
          my $class = shift;
          my $self = {};
! 
          bless $self, $class;
! 
          $self->_init(@_);
! 
  }
  
***************
*** 26,33 ****
  
          my $self = shift;
!         
          # Term::ProgressBar V1 Compatibility
          if (@_==2) {
!                 
                  return $self->_init({count      => $_[1], name => $_[0],
                        term_width => 50,    bar_width => 50,
--- 26,33 ----
  
          my $self = shift;
! 
          # Term::ProgressBar V1 Compatibility
          if (@_==2) {
! 
                  return $self->_init({count      => $_[1], name => $_[0],
                        term_width => 50,    bar_width => 50,
***************
*** 35,45 ****
                        lbrack     => '',    rbrack     => '',
                        term       => 0, })
!                 
          }
!         
          my %params = %{$_[0]};
!         
          my $main_window = MainWindow->new;
!         
          $main_window->title("Please Wait");
          $main_window->minsize(qw(400 250));
--- 35,45 ----
                        lbrack     => '',    rbrack     => '',
                        term       => 0, })
! 
          }
! 
          my %params = %{$_[0]};
! 
          my $main_window = MainWindow->new;
! 
          $main_window->title("Please Wait");
          $main_window->minsize(qw(400 250));
***************
*** 49,57 ****
          my $middle_frame = $main_window->Frame()->pack( -fill => "x" );
          my $bottom_frame = $main_window->Frame()->pack(-side => 'bottom');
!   
          $top_frame->Label(-height => 2)->pack;
!   
          $top_frame->Label(-text => $params{name})->pack;
!         
          my $tk_progressbar = $middle_frame->ProgressBar(
                -width => 20,
--- 49,57 ----
          my $middle_frame = $main_window->Frame()->pack( -fill => "x" );
          my $bottom_frame = $main_window->Frame()->pack(-side => 'bottom');
! 
          $top_frame->Label(-height => 2)->pack;
! 
          $top_frame->Label(-text => $params{name})->pack;
! 
          my $tk_progressbar = $middle_frame->ProgressBar(
                -width => 20,
***************
*** 68,72 ****
  
          return $self;
!         
  }
  
--- 68,72 ----
  
          return $self;
! 
  }
  
***************
*** 74,90 ****
  
          my $self = shift;
!         
          my $set_to_value = shift;
!         
          if (not $set_to_value) {
!                 
                  $set_to_value = $self->{tk_progressbar}->value + 1;
!                 
          }
!         
          $self->{tk_progressbar}->value( $set_to_value );
!         
          $self->{main_window}->update();
!         
  }
  
--- 74,90 ----
  
          my $self = shift;
! 
          my $set_to_value = shift;
! 
          if (not $set_to_value) {
! 
                  $set_to_value = $self->{tk_progressbar}->value + 1;
! 
          }
! 
          $self->{tk_progressbar}->value( $set_to_value );
! 
          $self->{main_window}->update();
! 
  }
  
***************
*** 92,98 ****
  
          my $self = shift;
!         
          $self->{main_window}->destroy();
!         
  }
  
--- 92,98 ----
  
          my $self = shift;
! 
          $self->{main_window}->destroy();
! 
  }
  

Index: None.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/ProgressBar/None.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** None.pm	2 Jul 2006 19:36:34 -0000	1.3
--- None.pm	12 Jul 2015 00:59:02 -0000	1.4
***************
*** 12,18 ****
                  $args = { 'name' => $args };
          }
!         
          print STDERR $args->{"name"} . "\n";
!         
          return bless $self, $class;
  }
--- 12,18 ----
                  $args = { 'name' => $args };
          }
! 
          print STDERR $args->{"name"} . "\n";
! 
          return bless $self, $class;
  }

Index: Term.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/ProgressBar/Term.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Term.pm	9 Nov 2014 23:40:21 -0000	1.2
--- Term.pm	12 Jul 2015 00:59:02 -0000	1.3
***************
*** 8,34 ****
  
  sub new {
!         
          my $class = shift;
  		$ENV{LINES}=24   unless exists $ENV{LINES};
  		$ENV{COLUMNS}=80 unless exists $ENV{COLUMNS};
! 		
          return Term::ProgressBar->new(@_);
!         
  }
  
  sub close_bar() {
!         
          # Do nothing
!         
  }
  
  sub AUTOLOAD {
!         
          use vars qw($AUTOLOAD);
!         
          print STDERR "dog $AUTOLOAD\n";
!         
          #return Term::ProgressBar->$AUTOLOAD(@_);
!         
  }
  
--- 8,34 ----
  
  sub new {
! 
          my $class = shift;
  		$ENV{LINES}=24   unless exists $ENV{LINES};
  		$ENV{COLUMNS}=80 unless exists $ENV{COLUMNS};
! 
          return Term::ProgressBar->new(@_);
! 
  }
  
  sub close_bar() {
! 
          # Do nothing
! 
  }
  
  sub AUTOLOAD {
! 
          use vars qw($AUTOLOAD);
! 
          print STDERR "dog $AUTOLOAD\n";
! 
          #return Term::ProgressBar->$AUTOLOAD(@_);
! 
  }
  


------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/