Disable automatic repainting when setting size or position.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 0918849a46dc10a57702078107b21412040b50cc..13b6b0b25e9d7c73c18d3a43e75a15a0fb6ffb47 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.252 2000/04/15 02:42:32 cph Exp $
+$Id: edwin.pkg,v 1.253 2000/04/30 21:52:50 cph Exp $
 
 Copyright (c) 1989-2000 Massachusetts Institute of Technology
 
@@ -1193,6 +1193,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
            sm_cymenu
            sw_showminnoactive
            swp_nomove
+           swp_noredraw
            swp_nosize
            swp_nozorder
            update-window

diff --git a/v7/src/edwin/win32.scm b/v7/src/edwin/win32.scm
index 12853353bd9bc682da80564075884cafb027b372..4f440acda0ece28ac02fb38119837563a2d04ca6 100644 (file)
--- a/v7/src/edwin/win32.scm
+++ b/v7/src/edwin/win32.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: win32.scm,v 1.11 2000/04/15 02:42:25 cph Exp $
+;;; $Id: win32.scm,v 1.12 2000/04/30 21:52:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -275,11 +275,11 @@
       (set-window-pos handle 0 0 0
                      (- (rect/right rect) (rect/left rect))
                      (- (rect/bottom rect) (rect/top rect))
-                     (+ SWP_NOMOVE SWP_NOZORDER)))))
+                     (+ SWP_NOMOVE SWP_NOZORDER SWP_NOREDRAW)))))
 
 (define (win32-screen/set-position! screen x y)
   (set-window-pos (screen->handle screen) 0 x y 0 0
-                 (+ SWP_NOSIZE SWP_NOZORDER)))
+                 (+ SWP_NOSIZE SWP_NOZORDER SWP_NOREDRAW)))
 
 (define (win32-screen/get-position screen)
   (let ((rect (make-rect 0 0 0 0)))