Generalized graphics images

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index eecdc8d87d085481f21e4d86a73bb397f0c546a2..c1ae70093f228c25bcfd6324e2ec46f4f2d649a6 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.192 1993/09/01 22:45:42 cph Exp $
+$Id: runtime.pkg,v 14.193 1993/09/15 04:07:38 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2104,6 +2104,7 @@ MIT in each case. |#
   (files "graphics")
   (parent ())
   (export ()
+         enumerate-graphics-device-types
          graphics-bind-drawing-mode
          graphics-bind-line-style
          graphics-clear
@@ -2130,7 +2131,16 @@ MIT in each case. |#
          graphics-set-line-style
          graphics-type-available?
          make-graphics-device
-         make-graphics-device-type))
+         make-graphics-device-type
+         image?
+         image/descriptor
+         image/destroy
+         image/width
+         image/height
+         image/draw
+         image/draw-subimage
+         image/fill-from-byte-vector
+))
 
 (define-package (runtime x-graphics)
   (files "x11graph")
@@ -2225,6 +2235,11 @@ MIT in each case. |#
          x-image/set-pixel
          x-image/width
          x-image?)
+  (import (runtime graphics)
+         register-graphics-device-type
+         make-image-type
+         image/create
+         )
   (initialization (initialize-package!)))
 
 (define-package (runtime starbase-graphics)
@@ -2232,6 +2247,8 @@ MIT in each case. |#
   (parent ())
   (export ()
          starbase-graphics-device-type)
+  (import (runtime graphics)
+         register-graphics-device-type)
   (initialization (initialize-package!)))
 
 (define-package (runtime state-space)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index eecdc8d87d085481f21e4d86a73bb397f0c546a2..c1ae70093f228c25bcfd6324e2ec46f4f2d649a6 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.192 1993/09/01 22:45:42 cph Exp $
+$Id: runtime.pkg,v 14.193 1993/09/15 04:07:38 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2104,6 +2104,7 @@ MIT in each case. |#
   (files "graphics")
   (parent ())
   (export ()
+         enumerate-graphics-device-types
          graphics-bind-drawing-mode
          graphics-bind-line-style
          graphics-clear
@@ -2130,7 +2131,16 @@ MIT in each case. |#
          graphics-set-line-style
          graphics-type-available?
          make-graphics-device
-         make-graphics-device-type))
+         make-graphics-device-type
+         image?
+         image/descriptor
+         image/destroy
+         image/width
+         image/height
+         image/draw
+         image/draw-subimage
+         image/fill-from-byte-vector
+))
 
 (define-package (runtime x-graphics)
   (files "x11graph")
@@ -2225,6 +2235,11 @@ MIT in each case. |#
          x-image/set-pixel
          x-image/width
          x-image?)
+  (import (runtime graphics)
+         register-graphics-device-type
+         make-image-type
+         image/create
+         )
   (initialization (initialize-package!)))
 
 (define-package (runtime starbase-graphics)
@@ -2232,6 +2247,8 @@ MIT in each case. |#
   (parent ())
   (export ()
          starbase-graphics-device-type)
+  (import (runtime graphics)
+         register-graphics-device-type)
   (initialization (initialize-package!)))
 
 (define-package (runtime state-space)