/[iselect]/ISelect.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /ISelect.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 16 by dpavlin, Thu Oct 25 19:21:12 2007 UTC revision 20 by dpavlin, Thu Oct 25 20:21:43 2007 UTC
# Line 80  sub full_line { Line 80  sub full_line {
80          my $cols = $self->screen->cols;          my $cols = $self->screen->cols;
81    
82          my $t = shift;          my $t = shift;
83    
84            $t =~ s/{s}//;
85    
86          $t = '' unless defined $t;          $t = '' unless defined $t;
87          $t = substr($t,0,$cols) if length($t) > $cols;          $t = substr($t,0,$cols) if length($t) > $cols;
88          return $t . (" " x ($cols - length($t)));          return $t . (" " x ($cols - length($t)));
# Line 176  sub selected { Line 179  sub selected {
179                  if ( $pos > 0 ) {                  if ( $pos > 0 ) {
180                          $top_screen_line--;                          $top_screen_line--;
181                          $pos--;                          $pos--;
182                            $self->redraw_screen;
183                  } else {                  } else {
184                          $self->error_text( "Already at Begin." );                          $self->error_text( "Already at Begin." );
185                  }                  }
                 $self->redraw_screen;  
186          } elsif ( $d > 0 && $screen_line == $last_screen_line ) {          } elsif ( $d > 0 && $screen_line == $last_screen_line ) {
187                  if ( $pos < $nr_lines ) {                  if ( $pos < $nr_lines ) {
188                          $top_screen_line++;                          $top_screen_line++;
189                          $pos++;                          $pos++;
190                            $self->redraw_screen;
191                  } else {                  } else {
192                          $self->error_text( "Already at End." );                          $self->error_text( "Already at End." );
193                  }                  }
                 $self->redraw_screen;  
194          } else {          } else {
195                  $pos += $d;                  $pos += $d;
196          }          }
# Line 221  sub loop { Line 224  sub loop {
224          my $callback = shift;          my $callback = shift;
225          confess "expect callback as first arg" unless ref($callback) eq 'CODE';          confess "expect callback as first arg" unless ref($callback) eq 'CODE';
226    
227          my @lines = $self->lines;          my @lines = @{ $self->lines };
228    
229          # find which lines are selectable in input file          # find which lines are selectable in input file
230          for my $l (0 .. $#lines) {          for my $l (0 .. $#lines) {

Legend:
Removed from v.16  
changed lines
  Added in v.20

  ViewVC Help
Powered by ViewVC 1.1.26