Add generic operation to determine the bit-depth of an image

associated with a window.

diff --git a/v7/src/win32/graphics.scm b/v7/src/win32/graphics.scm
index 738b83fc2c7d2d01fcb40b51bc65b2d5aa515bf1..cbc0d8228651526c04c2e36d1938e878b4433b55 100644 (file)
--- a/v7/src/win32/graphics.scm
+++ b/v7/src/win32/graphics.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: graphics.scm,v 1.10 1996/03/21 16:44:27 adams Exp $
+$Id: graphics.scm,v 1.11 1997/05/15 00:18:35 cph Exp $
 
-Copyright (c) 1993-96 Massachusetts Institute of Technology
+Copyright (c) 1993-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -764,6 +764,10 @@ MIT in each case. |#
   (implemented-primitive-procedure?
    (ucode-primitive set-general-scheme-wndproc 1)))
 
+(define (win32-graphics/image-depth device)
+  device
+  8)
+
 ;;----------------------------------------------------------------------------
 
 (define (win32-graphics/move-window device x y)
@@ -915,6 +919,7 @@ MIT in each case. |#
           (fill-polygon   ,win32-graphics/fill-polygon)
           (find-color   ,win32-graphics/find-color)
           (flush ,win32-graphics/flush)
+          (image-depth ,win32-graphics/image-depth)
           (load-bitmap ,win32-graphics/load-bitmap)
           (save-bitmap ,win32-graphics/save-bitmap)
           (move-cursor ,win32-graphics/move-cursor)