From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 Apr 2000 21:52:50 +0000 (+0000)
Subject: Disable automatic repainting when setting size or position.
X-Git-Tag: 20090517-FFI~3961
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=363d133a89d936fe8aadf0a68a18f8fd3cab102c;p=mit-scheme.git

Disable automatic repainting when setting size or position.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 0918849a4..13b6b0b25 100644
--- 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 12853353b..4f440acda 100644
--- 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)))