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 51761dc5f0f6ed68d19a04e0414ae6f21850e0d1..5999a2c97246a85f1a4b04ad58331ed4befb9844 100644 (file)
--- 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>
 \f
@@ -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 49c0b4b2d7e4a2660ae18d5b26af551627f4f090..6bd283eaa6c119c450196205f46975d0f9c154af 100644 (file)
--- 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 f602d2a7d07d4a2bf6b85c627989b90e99fc7aab..6e5d2f31b614ba76c58a5182fac650aed7de546a 100644 (file)
--- 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 dde93ba3631c21bf6a28d68cfc4aab6fadf12623..4c98becbe57694764c26ed3313292de57dc1b08c 100644 (file)
--- 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