56 |
my $selectable_line; |
my $selectable_line; |
57 |
|
|
58 |
for my $l (0 .. $#lines) { |
for my $l (0 .. $#lines) { |
59 |
if ($lines[$l] !~ s/^{s}//) { |
if ($lines[$l] =~ s/^{s}//) { |
60 |
$selectable_line->{$l}++; |
$selectable_line->{$l}++; |
61 |
} |
} |
62 |
} |
} |
83 |
sub redraw_line { |
sub redraw_line { |
84 |
my ($l,$line) = @_; |
my ($l,$line) = @_; |
85 |
|
|
86 |
if ( defined $selectable_line->{ $l } ) { |
if ( defined $selectable_line->{ $l + $top_screen_line } ) { |
87 |
$scr->at($l,0)->bold()->puts( full_line( chunk($line) ) )->normal(); |
$scr->at($l,0)->bold()->puts( full_line( chunk($line) ) )->normal(); |
88 |
} else { |
} else { |
89 |
$scr->at($l,0)->puts( full_line( chunk($line) ) ); |
$scr->at($l,0)->puts( full_line( chunk($line) ) ); |