# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768431001 0
# Node ID 65c133b66371240d3fa8af004d69c8142d2a69c5
# Parent  565b1e27c14cf44fffbbf90334e52a10d703c3e9
(x_real_positions): New function.

diff -r 565b1e27c14c -r 65c133b66371 src/xfns.c
--- a/src/xfns.c	Sun May 08 20:32:12 1994 +0000
+++ b/src/xfns.c	Sun May 08 21:03:21 1994 +0000
@@ -547,6 +547,47 @@
   }
 }
 
+/* Store the positions of frame F into XPTR and YPTR.
+   These are the positions of the containing window manager window,
+   not Emacs's own window.  */
+
+void
+x_real_positions (f, xptr, yptr)
+     FRAME_PTR f;
+     int *xptr, *yptr;
+{
+  int win_x = 0, win_y = 0;
+  Window child;
+
+  /* Find the position of the outside upper-left corner of
+     the inner window, with respect to the outer window.  */
+  if (f->display.x->parent_desc != ROOT_WINDOW)
+    {
+      BLOCK_INPUT;
+      XTranslateCoordinates (x_current_display,
+			       
+			     /* From-window, to-window.  */
+#ifdef USE_X_TOOLKIT
+			     XtWindow (f->display.x->widget),
+#else
+			     f->display.x->window_desc,
+#endif
+			     f->display.x->parent_desc,
+
+			     /* From-position, to-position.  */
+			     0, 0, &win_x, &win_y,
+
+			     /* Child of win.  */
+			     &child);
+      UNBLOCK_INPUT;
+
+      win_x += f->display.x->border_width;
+      win_y += f->display.x->border_width;
+    }
+  *xptr = f->display.x->left_pos - win_x;
+  *yptr = f->display.x->top_pos - win_y;
+}
+
 /* Insert a description of internally-recorded parameters of frame X
    into the parameter alist *ALISTPTR that is to be given to the user.
    Only parameters that are specific to the X window system