# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1139856339 0
# Node ID faf10626ffee49eacbc0a05eb3c99e3b270db2f9
# Parent  a9e7b9c525607a38409ef1b34703e3020c55dfd0
(xwindow): Update the code to show the window box.

diff -r a9e7b9c52560 -r faf10626ffee src/.gdbinit
--- a/src/.gdbinit	Mon Feb 13 16:18:46 2006 +0000
+++ b/src/.gdbinit	Mon Feb 13 18:45:39 2006 +0000
@@ -548,7 +548,16 @@
 define xwindow
   xgetptr $
   print (struct window *) $ptr
-  printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
+  set $window = (struct window *) $ptr
+  xgetint $window->total_cols
+  set $width=$int
+  xgetint $window->total_lines
+  set $height=$int
+  xgetint $window->left_col
+  set $left=$int
+  xgetint $window->top_line
+  set $top=$int
+  printf "%dx%d+%d+%d\n", $width, $height, $left, $top
 end
 document xwindow
 Print $ as a window pointer, assuming it is an Emacs Lisp window value.