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.7 by root, Sat Mar 4 22:39:52 2006 UTC

1#! perl 1#! perl
2
3sub on_osc_seq {
4 my ($self, $op, $args) = @_;
5
6 if ($op == 20) {
7 my ($pic, $commands) = split(/;/, $args, 2);
8 if ($pic !~ /^$/ && $commands !~ /[+\-]/) {
9 my ($x, $y) = $self->XTranslateCoordinates (
10 $self->vt, $self->DefaultRootWindow,
11 0, 0
12 );
13 $self->cmd_parse ("\033]20;$pic;=+$x+$y\007");
14 return 1;
15 }
16 }
17
18 ()
19}
2 20
3sub on_configure_notify { 21sub on_configure_notify {
4 my ($self, $event) = @_; 22 my ($self, $event) = @_;
23
24 my ($x, $y) = $self->XTranslateCoordinates (
25 $self->vt, $self->DefaultRootWindow,
26 0, 0
27 );
5 28
6 $self->cmd_parse ("\033]20;;=+$event->{x}+$event->{y}\007"); 29 $self->cmd_parse ("\033]20;;=+$x+$y\007");
7} 30}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines