applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

url-select: new selection method

Browse Source 
see: https://github.com/muennich/urxvt-perls/issues/18
This commit is contained in:
Wojciech Siewierski 2012-04-02 11:20:44 +02:00
parent c3977f5565
commit 21ed78a650
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
url-select
View File

@ -185,8 +185,12 @@ sub select_next {
$self->{n} += $dir; $self->{n} += $dir;
hilight($self); hilight($self);
if ($self->{copy}) { if ($self->{copy}) {
$self->selection($self->{found}->[$self->{n}]->[4]); my $found = $self->{found}[$self->{n}];
$self->selection_grab($event->{time}); $self->selection_beg(${$found}[0], ${$found}[1]);
$self->selection_end(${$found}[2], ${$found}[3]);
$self->selection_make($event->{time});
$self->selection_beg(1, 0);
$self->selection_end(1, 0);
} }
return; return;
} }
@ -212,8 +216,12 @@ sub select_next {
$self->{n} = $dir < 0 ? $#{$self->{found}} : 0; $self->{n} = $dir < 0 ? $#{$self->{found}} : 0;
hilight($self); hilight($self);
if ($self->{copy}) { if ($self->{copy}) {
$self->selection($self->{found}->[$self->{n}]->[4]); my $found = $self->{found}[$self->{n}];
$self->selection_grab($event->{time}); $self->selection_beg(${$found}[0], ${$found}[1]);
$self->selection_end(${$found}[2], ${$found}[3]);
$self->selection_make($event->{time});
$self->selection_beg(1, 0);
$self->selection_end(1, 0);
} }
return; return;
} }
@ -334,4 +342,3 @@ sub deactivate {
() ()
} }