--- ISelect.pm 2007/10/25 19:32:15 17 +++ ISelect.pm 2007/10/25 20:21:43 20 @@ -80,6 +80,9 @@ my $cols = $self->screen->cols; my $t = shift; + + $t =~ s/{s}//; + $t = '' unless defined $t; $t = substr($t,0,$cols) if length($t) > $cols; return $t . (" " x ($cols - length($t))); @@ -176,18 +179,18 @@ if ( $pos > 0 ) { $top_screen_line--; $pos--; + $self->redraw_screen; } else { $self->error_text( "Already at Begin." ); } - $self->redraw_screen; } elsif ( $d > 0 && $screen_line == $last_screen_line ) { if ( $pos < $nr_lines ) { $top_screen_line++; $pos++; + $self->redraw_screen; } else { $self->error_text( "Already at End." ); } - $self->redraw_screen; } else { $pos += $d; }