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

#! perl

sub on_osc_seq_perl {
   my ($self, $osc, $resp) = @_;

   return unless $osc =~ s/^clipboard;([^;]+)//;

   if ($1 eq "copy") {
      my $text = $self->selection ();
      $self->selection ($text, 1);
      $self->selection_grab (urxvt::CurrentTime, 1);
   }

   1
}
Revision:	1.1
Committed:	Wed Jul 21 08:58:50 2010 UTC (13 years, 10 months ago) by sf-exg
Branch:	MAIN
CVS Tags:	rel-9_09, rxvt-unicode-rel-9_15, rel-9_14, rel-9_12, rel-9_10, rel-9_11
Log Message:	Add clipboard-osc script.
#	User	Rev	Content
1	sf-exg	1.1	#! perl
2
3			sub on_osc_seq_perl {
4			my ($self, $osc, $resp) = @_;
5
6			return unless $osc =~ s/^clipboard;([^;]+)//;
7
8			if ($1 eq "copy") {
9			my $text = $self->selection ();
10			$self->selection ($text, 1);
11			$self->selection_grab (urxvt::CurrentTime, 1);
12			}
13
14			1
15			}