From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Jul 1988 07:20:07 +0000 (+0000)
Subject: Correctly implement closing of graphics device.  Make everyone close
X-Git-Tag: 20090517-FFI~12655
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c610678005934f4c540cb8dfa9c910947b13ffed;p=mit-scheme.git

Correctly implement closing of graphics device.  Make everyone close
an open device before opening the next one.
---

diff --git a/v7/src/microcode/sgraph.h b/v7/src/microcode/sgraph.h
index 51761dc5f..5999a2c97 100644
--- a/v7/src/microcode/sgraph.h
+++ b/v7/src/microcode/sgraph.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgraph.h,v 1.3 1988/07/15 09:03:46 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgraph.h,v 1.4 1988/07/16 07:19:59 cph Rel $ */
 
 #include <starbase.c.h>
 
@@ -58,6 +58,8 @@ extern float sb_ymax;
 extern float sb_zmin;
 extern float sb_zmax;
 
+extern void sb_close_device ();
+
 /* Generic dispatch of coordinates. No BIGNUM support yet. */
 
 #define Make_Flonum(pointer, flonum, integer, error)			\
diff --git a/v7/src/microcode/sgx.c b/v7/src/microcode/sgx.c
index 49c0b4b2d..6bd283eaa 100644
--- a/v7/src/microcode/sgx.c
+++ b/v7/src/microcode/sgx.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgx.c,v 1.1 1988/07/15 09:04:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgx.c,v 1.2 1988/07/16 07:19:41 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -139,6 +139,7 @@ DEFINE_PRIMITIVE ("X-GRAPHICS-OPEN-WINDOW", Prim_x_graphics_open_window, 5)
 		    BlackPixmap));
   if (window == 0)
     error_external_return ();
+  XStoreName (window, "scheme-graphics");
   XFlush ();
   (filename [0]) = '\0';
   raster_state = 0;
@@ -166,6 +167,7 @@ DEFINE_PRIMITIVE ("X-GRAPHICS-CLOSE-WINDOW", Prim_x_graphics_close_window, 0)
 static void
 close_window ()
 {
+  sb_close_device ();
   if ((filename [0]) != '\0')
     {
       XhpDestroy (filename);
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index f602d2a7d..6e5d2f31b 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.45 1988/07/15 09:05:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.46 1988/07/16 07:20:07 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	45
+#define SUBVERSION	46
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index dde93ba36..4c98becbe 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.45 1988/07/15 09:05:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.46 1988/07/16 07:20:07 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	45
+#define SUBVERSION	46
 #endif
 
 #ifndef UCODE_TABLES_FILENAME