ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection-autotransform
(Generate patch)

Comparing rxvt-unicode/src/perl/selection-autotransform (file contents):
Revision 1.14 by root, Sat May 17 13:38:23 2014 UTC vs.
Revision 1.15 by sf-exg, Thu Oct 30 09:44:58 2014 UTC

… …
46sub msg { 46sub msg {
47 my ($self, $msg) = @_; 47 my ($self, $msg) = @_;
48 48
49 my $overlay = $self->overlay (0, 0, $self->strwidth ($msg), 1); 49 my $overlay = $self->overlay (0, 0, $self->strwidth ($msg), 1);
50 $overlay->set (0, 0, $msg); 50 $overlay->set (0, 0, $msg);
51 my $iow; $iow = urxvt::timer->new->after (2)->cb (sub { 51 $self->{timer} = urxvt::timer->new->after (2)->cb (sub {
52 delete $self->{timer};
52 undef $overlay; 53 undef $overlay;
53 undef $iow;
54 }); 54 });
55} 55}
56 56
57sub on_init { 57sub on_init {
58 my ($self) = @_; 58 my ($self) = @_;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines