[ViewVC] Contents 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
#	Content
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