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

#! perl

=head1 NAME

selection-to-clipboard - copy the selection to the clipboard each time a selection 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 effect, 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.3
Committed:	Wed Jun 23 12:48:13 2021 UTC (2 years, 11 months ago) by root
Branch:	MAIN
CVS Tags:	rxvt-unicode-rel-9_29, rxvt-unicode-rel-9_30, HEAD
Changes since 1.2:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.3	#! perl
2	root	1.1
3			=head1 NAME
4
5	sf-exg	1.2	selection-to-clipboard - copy the selection to the clipboard each time a selection is made
6	root	1.1
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	sf-exg	1.2	time a selection is made. This, in effect, synchronises the clipboard with
15	root	1.1	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