aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSterling Camden <sterling@camdensoftware.com>2010-12-19 13:15:54 -0800
committerSterling Camden <sterling@camdensoftware.com>2010-12-19 13:15:54 -0800
commit031430d343dc58392d08486db01aeeef89cad121 (patch)
tree92f4e78412528a2772e608d8e6b051e9f1b46bf6
parent06c5fddfb0bf6538fa2c3b080c640d6725a5b087 (diff)
Use $term->view_start instead of on_view_change
-rw-r--r--url-picker15
1 files changed, 2 insertions, 13 deletions
diff --git a/url-picker b/url-picker
index 2dc520c..0895e1d 100644
--- a/url-picker
+++ b/url-picker
@@ -14,16 +14,6 @@ my $url =
)+
}x;
-sub on_view_change {
- my ($self, $offset) = @_;
- $self->{view_offset} = $offset;
-}
-
-sub on_scroll_back {
- my ($self, $lines, $saved) = @_;
- $self->{view_offset} = 0;
-}
-
sub on_user_command {
my ($self, $cmd) = @_;
if ($cmd =~ s/^url-picker\b//) {
@@ -49,10 +39,9 @@ sub on_user_command {
};
my ($brow, $bcol) = $self->selection_beg();
my ($erow, $ecol) = $self->selection_end();
- my $offset = $self->{view_offset} || 0;
my $issel = ($ecol > $bcol) || ($erow > $brow);
if ($issel) { # restrict to selection if one exists
- ($row, $base_col) = ($brow - $offset, $bcol);
+ ($row, $base_col) = ($brow - $self->view_start, $bcol);
for (split(/\n/, $self->selection())) {
$text = $_;
$label_urls->() if $row >= 0; # must be visible
@@ -62,7 +51,7 @@ sub on_user_command {
} else { # no selection, use visible terminal
for (0..($self->nrow - 1)) {
$row = $_;
- $text = $self->ROW_t($row + $offset);
+ $text = $self->ROW_t($row + $self->view_start);
$label_urls->();
}
}