[ViewVC] Annotation of: cvs/rxvt-unicode/src/perl/selection-to-clipboard

#! perl -w

=head1 NAME

selection-to-clipboard - copy the selection to the clipboard each time a seletion is made

=head1 SYNOPSIS

   urxvt -pe selection-to-clipboard

=head1 DESCRIPTION

This very simple extension copies the selection to the clipboard every
time a selection is made. This, in effetc, synchronises the clipboard with
the selection for selections done by rxvt-unicode.

=cut

sub on_sel_grab {
   my ($self, $time) = @_;

   $self->selection ($self->selection, 1);
   $self->selection_grab ($time, 1);

   ()
}

Revision:	1.1
Committed:	Sun Apr 13 10:25:31 2014 UTC (10 years, 1 month ago) by root
Branch:	MAIN
Log Message:	selection to clipboard
#	User	Rev	Content
1	root	1.1	#! perl -w
2
3			=head1 NAME
4
5			selection-to-clipboard - copy the selection to the clipboard each time a seletion is made
6
7			=head1 SYNOPSIS
8
9			urxvt -pe selection-to-clipboard
10
11			=head1 DESCRIPTION
12
13			This very simple extension copies the selection to the clipboard every
14			time a selection is made. This, in effetc, synchronises the clipboard with
15			the selection for selections done by rxvt-unicode.
16
17			=cut
18
19			sub on_sel_grab {
20			my ($self, $time) = @_;
21
22			$self->selection ($self->selection, 1);
23			$self->selection_grab ($time, 1);
24
25			()
26			}
27