Change XTERM-RECONFIGURE primitive so that it's arguments are given in

character cells rather than in pixels.

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index f7a1d0f8e27f61da28515115a69a7898c9e79c62..94d2f5d436320c36e92abbc4857fc671d8c6eed6 100644 (file)
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,10 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: xterm.scm,v 1.74 2005/11/12 22:31:01 cph Exp $
+$Id: xterm.scm,v 1.75 2006/02/15 05:10:00 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1995 Massachusetts Institute of Technology
 Copyright 1996,1998,1999,2000,2001,2002 Massachusetts Institute of Technology
-Copyright 2003,2005 Massachusetts Institute of Technology
+Copyright 2003,2005,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -696,9 +696,9 @@ USA.
                        (let ((xterm (screen-xterm screen))
                              (x-size (vector-ref event 2))
                              (y-size (vector-ref event 3)))
-                         (xterm-reconfigure xterm x-size y-size)
                          (let ((x-size (xterm-map-x-size xterm x-size))
                                (y-size (xterm-map-y-size xterm y-size)))
+                           (xterm-reconfigure xterm x-size y-size)
                            (if (not (and (= x-size (screen-x-size screen))
                                          (= y-size (screen-y-size screen))))
                                (begin

diff --git a/v7/src/microcode/x11term.c b/v7/src/microcode/x11term.c
index 30ba60e6817deda7a0160f9aaf1dcadfef921269..169cde99a2776a3e5ce83b5037651f6cd76dbcb8 100644 (file)
--- a/v7/src/microcode/x11term.c
+++ b/v7/src/microcode/x11term.c
@@ -1,9 +1,9 @@
 /* -*-C-*-
 
-$Id: x11term.c,v 1.31 2005/11/13 03:45:59 cph Exp $
+$Id: x11term.c,v 1.32 2006/02/15 05:09:50 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1995 Massachusetts Institute of Technology
-Copyright 2000,2005 Massachusetts Institute of Technology
+Copyright 2000,2005,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -324,16 +324,11 @@ DEFUN (xterm_dump_rectangle, (xw, x, y, width, height),
 static void
 DEFUN (xterm_reconfigure, (xw, width, height),
        struct xwindow * xw AND
-       unsigned int width AND
-       unsigned int height)
+       unsigned int x_csize AND
+       unsigned int y_csize)
 {
-  unsigned int extra = (2 * (XW_INTERNAL_BORDER_WIDTH (xw)));
-  unsigned int x_size = ((width < extra) ? 0 : (width - extra));
-  unsigned int y_size = ((height < extra) ? 0 : (height - extra));
-  if ((x_size != (XW_X_SIZE (xw))) || (y_size != (XW_Y_SIZE (xw))))
+  if ((x_csize != (XW_X_CSIZE (xw))) || (y_csize != (XW_Y_CSIZE (xw))))
     {
-      unsigned int x_csize = (x_size / (FONT_WIDTH (XW_FONT (xw))));
-      unsigned int y_csize = (y_size / (FONT_HEIGHT (XW_FONT (xw))));
       char * new_char_map = (x_malloc (x_csize * y_csize));
       char * new_hl_map = (x_malloc (x_csize * y_csize));
       unsigned int old_x_csize = (XW_X_CSIZE (xw));
@@ -381,12 +376,16 @@ DEFUN (xterm_reconfigure, (xw, width, height),
        }
       free (XW_CHARACTER_MAP (xw));
       free (XW_HIGHLIGHT_MAP (xw));
-      (XW_X_SIZE (xw)) = x_size;
-      (XW_Y_SIZE (xw)) = y_size;
-      (XW_CLIP_X (xw)) = 0;
-      (XW_CLIP_Y (xw)) = 0;
-      (XW_CLIP_WIDTH (xw)) = x_size;
-      (XW_CLIP_HEIGHT (xw)) = y_size;
+      {
+       unsigned int x_size = (XTERM_X_PIXEL (xw, x_csize));
+       unsigned int y_size = (XTERM_Y_PIXEL (xw, x_csize));
+       (XW_X_SIZE (xw)) = x_size;
+       (XW_Y_SIZE (xw)) = y_size;
+       (XW_CLIP_X (xw)) = 0;
+       (XW_CLIP_Y (xw)) = 0;
+       (XW_CLIP_WIDTH (xw)) = x_size;
+       (XW_CLIP_HEIGHT (xw)) = y_size;
+      }
       (XW_X_CSIZE (xw)) = x_csize;
       (XW_Y_CSIZE (xw)) = y_csize;
       (XW_CHARACTER_MAP (xw))= new_char_map;