From 17c6c2dcf971e12357d3450e990466f448c43d07 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 16 Mar 1993 05:12:32 +0000
Subject: [PATCH] After disk-restore, the display list must be flushed.

---
 v7/src/runtime/x11graph.scm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index fd1679cbd..96374b0c5 100644
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.26 1993/01/12 21:42:01 cph Exp $
+$Id: x11graph.scm,v 1.27 1993/03/16 05:12:32 gjr Exp $
 
-Copyright (c) 1989-93 Massachusetts Institute of Technology
+Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -143,6 +143,13 @@ MIT in each case. |#
 (define (make-protection-list)
   (list 'PROTECTION-LIST))
 
+;; This is used after a disk-restore, to remove invalid information.
+
+(define (drop-all-protected-objects list)
+  (with-absolutely-no-interrupts
+    (lambda ()
+      (set-cdr! list '()))))
+
 (define (add-to-protection-list! list scheme-object microcode-object)
   (with-absolutely-no-interrupts
    (lambda ()
@@ -242,6 +249,7 @@ MIT in each case. |#
 	   (withdraw-window ,x-graphics/withdraw-window))))
   (set! display-list (make-protection-list))
   (add-gc-daemon! close-lost-displays-daemon)
+  (add-event-receiver! event:after-restore drop-all-displays)
   (initialize-image-datatype)
   (initialize-colormap-datatype))
 
@@ -313,6 +321,9 @@ MIT in each case. |#
     (clean-lost-protected-objects
      (x-display/window-list (weak-car (car associations)))
      x-close-window)))
+
+(define (drop-all-displays)
+  (drop-all-protected-objects display-list))
 
 (define (make-event-previewer display)
   (lambda ()
-- 
2.25.1