/[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 23 by dpavlin, Thu Oct 25 21:27:58 2007 UTC
# Line 18  debug Line 18  debug
18  / );  / );
19    
20    
21  our $VERSION = '0.01';  our $VERSION = '0.02';
22    
23  =head1 NAME  =head1 NAME
24    
# 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 147  sub redraw_statusline { Line 150  sub redraw_statusline {
150          .$pos_txt)->normal();          .$pos_txt)->normal();
151    
152          $scr->at($scr->rows - $status_lines + 2,0)->puts(          $scr->at($scr->rows - $status_lines + 2,0)->puts(
153                  sprintf('%-'.$scr->cols.'s', $self->error_text)                  sprintf('%-'.$scr->cols.'s', $self->error_text )
154          ) if $self->error_text;          ) if $self->error_text;
155  }  }
156    
157  =head2 selected  =head2 selected
158    
159  Move selection (or refresh it)  Move selection to some line of document
160    
161    $iselect->selected( +1 );    $iselect->selected( 42 );
   $iselect->selected( -1 );  
   $iselect->selected( 0 );  
162    
163  =cut  =cut
164    
165  sub selected {  sub selected {
166          my $self = shift;          my $self = shift;
167    
168          my $d = shift || 0;          my $new_pos = shift;
169    
170          my $screen_line = $pos - $top_screen_line;          if ( defined $new_pos ) {
171    
172          $self->redraw_line( $screen_line, $self->lines->[$pos] );                  my $screen_line = $pos - $top_screen_line;
173                    $self->redraw_line( $screen_line, $self->lines->[$pos] );
174    
175          my $last_screen_line = $self->screen->rows - $status_lines;                  my $last_screen_line = $self->screen->rows - $status_lines;
176    
177          if ( $d < 0 && $screen_line == 0 ) {                  if ( $new_pos < $pos && $screen_line == 0 ) {
178                  if ( $pos > 0 ) {                          if ( $pos > 0 ) {
179                          $top_screen_line--;                                  $top_screen_line--;
180                          $pos--;                                  $pos--;
181                  } else {                                  $self->screen->at(0,0)->il;
182                          $self->error_text( "Already at Begin." );                                  $self->error_text( ' ' );
183                  }                          } else {
184                  $self->redraw_screen;                                  $self->error_text( "Already at Begin." );
185          } elsif ( $d > 0 && $screen_line == $last_screen_line ) {                          }
186                  if ( $pos < $nr_lines ) {                  } elsif ( $new_pos > $pos && $screen_line == $last_screen_line ) {
187                          $top_screen_line++;                          if ( $pos < $nr_lines ) {
188                          $pos++;                                  $top_screen_line++;
189                                    $pos++;
190                                    $self->screen->at(0,0)->dl;
191                            } else {
192                                    $self->error_text( "Already at End." );
193                            }
194                  } else {                  } else {
195                          $self->error_text( "Already at End." );                          $pos = $new_pos;
196                  }                  }
197                  $self->redraw_screen;          
         } else {  
                 $pos += $d;  
198          }          }
199    
200          my $line = $self->lines->[$pos];          my $line = $self->lines->[$pos];
# Line 221  sub loop { Line 226  sub loop {
226          my $callback = shift;          my $callback = shift;
227          confess "expect callback as first arg" unless ref($callback) eq 'CODE';          confess "expect callback as first arg" unless ref($callback) eq 'CODE';
228    
229          my @lines = $self->lines;          my @lines = @{ $self->lines };
230    
231          # find which lines are selectable in input file          # find which lines are selectable in input file
232          for my $l (0 .. $#lines) {          for my $l (0 .. $#lines) {
233                  if ($lines[$l] =~ s/^{s}//) {                  if ($lines[$l] =~ m/^{s}/) {
234                          $selectable_line->{$l}++;                          $selectable_line->{$l}++;
235                  }                  }
236          }          }
# Line 242  sub loop { Line 247  sub loop {
247          $self->redraw_screen;          $self->redraw_screen;
248          $self->selected;          $self->selected;
249    
250            my $lines_on_screen = $self->screen->rows - $status_lines;
251            my $max_top_screen_line =
252                            $nr_lines > $lines_on_screen ?  $nr_lines - $lines_on_screen : 0;      
253    
254          while(my $key = $self->screen->getch()) {          while(my $key = $self->screen->getch()) {
255    
256                  my $lines_on_screen = $self->screen->rows - $status_lines;                  $self->error_text('');
257    
258                  if ($key eq 'ku') {                  if ($key eq 'ku') {
259                          $self->selected( -1 );                          $self->selected( $pos - 1 );
260                  } elsif ($key eq 'kd') {                  } elsif ($key eq 'kd') {
261                          $self->selected( +1 );                          $self->selected( $pos + 1 );
262                  } elsif ($key eq 'pgup' ) {                  } elsif ($key eq 'pgup' ) {
263                          # first line on screen?                          # first line on screen?
264                          if ( $pos == $top_screen_line ) {                          if ( $pos == $top_screen_line ) {
# Line 257  sub loop { Line 266  sub loop {
266                                  $top_screen_line = 0 if $top_screen_line < 0;                                  $top_screen_line = 0 if $top_screen_line < 0;
267                                  $self->redraw_screen;                                  $self->redraw_screen;
268                          }                          }
269                          $self->selected( -( $pos - $top_screen_line ) );                          if ( $pos == $top_screen_line ) {
270                                    $self->error_text( "Already at top." );
271                            } else {
272                                    $self->selected( $top_screen_line );
273                            }
274                  } elsif ($key eq 'pgdn' ) {                  } elsif ($key eq 'pgdn' ) {
275                          # last line on screen?                          # last line on screen?
276                          if ( $pos - $top_screen_line == $lines_on_screen ) {                          if ( $pos - $top_screen_line == $lines_on_screen ) {
277                                  $top_screen_line += $lines_on_screen;                                  $top_screen_line += $lines_on_screen;
           
                                 my $max_top_screen_line =  
                                         $nr_lines > $lines_on_screen ?  $nr_lines - $lines_on_screen : 0;        
   
278                                  $top_screen_line = $max_top_screen_line if $top_screen_line > $max_top_screen_line;                                  $top_screen_line = $max_top_screen_line if $top_screen_line > $max_top_screen_line;
                                 warn "max_top_screen_line = $max_top_screen_line top_screen_line = $top_screen_line\n";  
279                                  $self->redraw_screen;                                  $self->redraw_screen;
280                          }                          }
281                          $self->selected( $top_screen_line + $lines_on_screen - $pos );                          if ( $pos == $nr_lines ) {
282                                    $self->error_text( "Already at bottom." );
283                            } else {
284                                    $self->selected( $top_screen_line + $lines_on_screen );
285                            }
286                    } elsif ($key eq 'g' ) {
287                            if ( $top_screen_line == 0 ) {
288                                    if ( $pos == 0 ) {
289                                            $self->error_text( "Already at top." );
290                                    } else {
291                                            $self->selected( 0 );
292                                    }
293                            } else {
294                                    $top_screen_line = 0;
295                                    $pos = 0;
296                                    $self->redraw_screen;
297                            }
298                    } elsif ($key eq 'G' ) {
299                            if ( $top_screen_line == $max_top_screen_line ) {
300                                    if ( $pos == $nr_lines ) {
301                                            $self->error_text( "Already at bottom." );
302                                    } else {
303                                            $self->selected( $nr_lines );
304                                    }
305                            } else {
306                                    $top_screen_line = $max_top_screen_line;
307                                    $pos = $nr_lines;
308                                    $self->redraw_screen;
309                            }
310                  }                  }
311    
312                  if ( length($key) > 1 ) {                  if ( length($key) > 1 ) {

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

  ViewVC Help
Powered by ViewVC 1.1.26