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.2 by root, Fri Jan 20 14:41:07 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 5
6 my ($x, $y) = $self->XTranslateCoordinates (
7 $self->parent, $self->DefaultRootWindow,
8 0, 0
9 );
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