From c84f42efe097a0d3c2662613c73e607479ee47ad Mon Sep 17 00:00:00 2001
From: root <root>
Date: Mon, 6 Feb 2006 05:47:06 +0000
Subject: [PATCH] *** empty log message ***

---
 Changes                      |  1 -
 src/perl/automove-background | 14 ++++----------
 2 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/Changes b/Changes
index 649b9301..6d6fa0f8 100644
--- a/Changes
+++ b/Changes
@@ -13,7 +13,6 @@ WISH: http://www120.pair.com/mccarthy/nextstep/intro.htmld/Workspace.html is the
 DUMB: support tex fonts
 
 TODO: option popup hook, make some exts switchable
-TODO: constant offste with automove
 TODO: rework colors and blabla section
 
 	- changed interpretation of [alpha] colour prefix.
diff --git a/src/perl/automove-background b/src/perl/automove-background
index b20ce9e1..7f7bb26c 100644
--- a/src/perl/automove-background
+++ b/src/perl/automove-background
@@ -3,16 +3,10 @@
 sub on_configure_notify {
    my ($self, $event) = @_;
    
-   my ($x, $y);
-
-   if ($event->{send_event}) {
-      ($x, $y) = ($event->{x}, $event->{y});
-   } else {
-      ($x, $y) = $self->XTranslateCoordinates (
-         $self->vt, $self->DefaultRootWindow,
-         0, 0
-      );
-   }
+   my ($x, $y) = $self->XTranslateCoordinates (
+      $self->vt, $self->DefaultRootWindow,
+      0, 0
+   );
 
    $self->cmd_parse ("\033]20;;=+$x+$y\007");
 }
-- 
2.34.1