From: root <root>
Date: Sat, 4 Mar 2006 22:36:50 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=f6b5240e220962ec449b5de48a3215ebdf70a009;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/automove-background b/src/perl/automove-background
index 7f7bb26c..d6cc6d40 100644
--- a/src/perl/automove-background
+++ b/src/perl/automove-background
@@ -1,5 +1,25 @@
 #! perl
 
+sub on_osc_seq {
+   my ($self, $op, $args) = @_;
+
+   if ($op == 20) {
+      my ($pic, $commands) = split(/;/, $args, 2);
+      warn "   pic=$pic commands=$commands";
+      if ($pic !~ /^$/ && $commands !~ /[+\-]/) {
+         my ($x, $y) = $self->XTranslateCoordinates (
+            $self->vt, $self->DefaultRootWindow,
+            0, 0
+         );
+         warn "      $x $y \\033]20;$pic;=+$x+$y\\007";
+         $self->cmd_parse ("\033]20;$pic;=+$x+$y\007");
+         return 1;
+      }
+   }
+
+   ()
+}
+
 sub on_configure_notify {
    my ($self, $event) = @_;