← Back to branch summary

~kklimonda/ubuntu/lucid/rxvt-unicode/lp-514821

« back to all changes in this revision

Viewing changes to src/perl/automove-background

  • Committer: Bazaar Package Importer
  • Author(s): Decklin Foster
  • Date: 2006-09-01 14:44:58 UTC
  • mfrom: (1.1.8 upstream) (3.1.1 etch)
  • Revision ID: james.westby@ubuntu.com-20060901144458-98hrz8zg01w8a3vy
Tags: 7.9-2
http://bugs.debian.org/385481
* Edit the comments in the app-defaults file, and disable all settings by
  default. If font autoselection fails, I would prefer to open a new bug
  specifically for that. (Closes: #385481)
* Reorganize and edit README.Debian, pushing as much as possible into FAQ
  format (with resource setting issues first).

Show diffs side-by-side

added added

removed removed

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