From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 1 Dec 1996 17:11:07 +0000 (+0000)
Subject: Added graphics operation DRAW-TEXT-OPAQUE.
X-Git-Tag: 20090517-FFI~5318
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4526658c64c61bbcbe82b42e7942337125803a54;p=mit-scheme.git

Added graphics operation DRAW-TEXT-OPAQUE.
Removed duplicate X-GRAPHICS/FILL-POLYGON.
---

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index 2ff83fe7f..e503b0734 100644
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.44 1996/07/12 20:20:56 adams Exp $
+$Id: x11graph.scm,v 1.45 1996/12/01 17:11:07 adams Exp $
 
 Copyright (c) 1989-96 Massachusetts Institute of Technology
 
@@ -88,6 +88,7 @@ MIT in each case. |#
   (x-graphics-draw-point 3)
   (x-graphics-draw-points 3)
   (x-graphics-draw-string 4)
+  (x-graphics-draw-image-string 4)
   (x-graphics-fill-polygon 2)
   (x-graphics-map-x-coordinate 2)
   (x-graphics-map-y-coordinate 2)
@@ -171,6 +172,7 @@ MIT in each case. |#
 	   (draw-points ,x-graphics/draw-points)
 	   (draw-subimage ,image/draw-subimage)
 	   (draw-text ,x-graphics/draw-text)
+	   (draw-text-opaque ,x-graphics/draw-text-opaque)
 	   (fill-circle ,x-graphics/fill-circle)
 	   (fill-polygon ,x-graphics/fill-polygon)
 	   (flush ,x-graphics/flush)
@@ -581,6 +583,9 @@ MIT in each case. |#
 (define (x-graphics/draw-text device x y string)
   (x-graphics-draw-string (x-graphics-device/xw device) x y string))
 
+(define (x-graphics/draw-text-opaque device x y string)
+  (x-graphics-draw-image-string (x-graphics-device/xw device) x y string))
+
 (define (x-graphics/flush device)
   (if (and x-graphics:auto-raise?
 	   (x-graphics-device/mapped? device)
@@ -670,9 +675,6 @@ MIT in each case. |#
 (define (x-graphics/fill-polygon device point-vector)
   (x-graphics-fill-polygon (x-graphics-device/xw device) point-vector))
    
-(define (x-graphics/fill-polygon device point-vector)
-  (x-graphics-fill-polygon (x-graphics-device/xw device) point-vector))
-   
 (define (x-graphics/copy-area device
 			      source-x-left source-y-top
 			      width height