From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Sun, 5 Apr 1992 02:33:05 +0000 (+0000)
Subject: Make GLOBAL-WINDOW-MODELINE-EVENT! handle all windows, not just those
X-Git-Tag: 20090517-FFI~9520
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b9265028850b6629bd2a51724135c0c9638faf68;p=mit-scheme.git

Make GLOBAL-WINDOW-MODELINE-EVENT! handle all windows, not just those
in the selected screen.
---

diff --git a/v7/src/edwin/curren.scm b/v7/src/edwin/curren.scm
index fbdc15abe..2d46db3cb 100644
--- a/v7/src/edwin/curren.scm
+++ b/v7/src/edwin/curren.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/curren.scm,v 1.100 1992/03/13 10:06:39 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/curren.scm,v 1.101 1992/04/05 02:33:05 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -207,11 +207,14 @@
 		     (loop (window1+ window*)))))))))
 
 (define (global-window-modeline-event!)
-  (let ((window0 (window0)))
-    (let loop ((window (window1+ window0)))
-      (window-modeline-event! window 'GLOBAL-MODELINE)
-      (if (not (eq? window window0))
-	  (loop (window1+ window))))))
+  (for-each
+   (lambda (screen)
+     (let ((window0 (screen-window0 screen)))
+       (let loop ((window (window1+ window0)))
+	 (window-modeline-event! window 'GLOBAL-MODELINE)
+	 (if (not (eq? window window0))
+	     (loop (window1+ window))))))
+   (screen-list)))
 
 (define (other-window #!optional n)
   (let ((n (if (or (default-object? n) (not n)) 1 n))