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

Comparing rxvt-unicode/src/perl/automove-background (file contents):
Revision 1.1 by root, Wed Jan 18 17:58:54 2006 UTC vs.
Revision 1.5 by root, Mon Feb 6 05:47:06 2006 UTC

1#! perl 1#! perl
2 2
3sub on_configure_notify { 3sub on_configure_notify {
4 my ($self, $event) = @_; 4 my ($self, $event) = @_;
5
6 my ($x, $y) = $self->XTranslateCoordinates (
7 $self->vt, $self->DefaultRootWindow,
8 0, 0
9 );
5 10
6 $self->cmd_parse ("\033]20;;=+$event->{x}+$event->{y}\007"); 11 $self->cmd_parse ("\033]20;;=+$x+$y\007");
7} 12}

Diff Legend

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