From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 20 Dec 1991 16:04:41 +0000 (+0000)
Subject: Finish documenting the new X graphics operations COPY-AREA and
X-Git-Tag: 20090517-FFI~10025
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a88f934a8fdbda6e2f3ea384fbb3993954054f1;p=mit-scheme.git

Finish documenting the new X graphics operations COPY-AREA and
FONT-STRUCTURE and the extractor procedures associated with the latter.
---

diff --git a/v7/doc/ref-manual/scheme.texinfo b/v7/doc/ref-manual/scheme.texinfo
index 1809b5f2f..a34490f1d 100644
--- a/v7/doc/ref-manual/scheme.texinfo
+++ b/v7/doc/ref-manual/scheme.texinfo
@@ -12204,13 +12204,6 @@ must be a string that is a font name known to the X server.  This
 operation does not affect text drawn prior to its invocation.
 @end defop
 
-@defop {operation+} x-graphics-device font-structure font-name
-Returns a Scheme equivalent of the X font structure for the font named
-@var{font-name}.  If the string @var{Font-name} does not name a font
-known to the X server, or names a 16-bit font, the function returns
-false.
-@end defop
-
 @defop {operation+} x-graphics-device set-mouse-shape shape-number
 Changes the shape of the mouse cursor.  @var{Shape-number} is an exact
 non-negative integer that is used as an index into the mouse-shape font;
@@ -12260,6 +12253,52 @@ does not include support for Starbase --- you must rebuild the microcode
 to get this support.
 @end defop
 
+@defop {operation+} x-graphics-device source-x-left source-y-top width height destination-x-left destination-y-top
+This operation copies the contents of the rectangle specified by
+@var{source-x-left}, @var{source-y-top}, @var{width}, and @{height} to
+the rectangle of the same dimensions at @var{destination-x-left} and
+@var{destination-y-top}.
+@end defop
+
+@defop {operation+} x-graphics-device font-structure font-name
+Returns a Scheme equivalent of the X font structure for the font named
+@var{font-name}.  If the string @var{Font-name} does not name a font
+known to the X server, or names a 16-bit font, @code{#f} is returned.
+The following procedures extract the components of the returned structure:
+@end defop
+
+@deffn {procedure+} x-font-structure/name
+@deffnx {procedure+} x-font-structure/direction
+@deffnx {procedure+} x-font-structure/all-chars-exist
+@deffnx {procedure+} x-font-structure/default-char
+@deffnx {procedure+} x-font-structure/min-bounds
+@deffnx {procedure+} x-font-structure/max-bounds
+@deffnx {procedure+} x-font-structure/start-index
+@deffnx {procedure+} x-font-structure/character-bounds
+@deffnx {procedure+} x-font-structure/max-ascent
+@deffnx {procedure+} x-font-structure/max-descent
+These procedures extract the components of the font description
+structure returned by the X graphics operation @code{font-structure}.
+A more complete description of these components appears in
+documentation of the @code{XLoadQueryFont} Xlib call.
+@code{Start-index} is the index of the first character available in the
+font.  The @code{min-bounds} and @code{max-bounds} components are
+structures of type @code{x-character-bounds}, and the
+@code{character-bounds} component is a vector of the same type.  The
+following procedures extract components of objects of type
+@code{x-character-bounds}:
+@end deffn
+
+@deffn {procedure+} x-character-bounds/lbearing
+@deffnx {procedure+} x-character-bounds/rbearing
+@deffnx {procedure+} x-character-bounds/width
+@deffnx {procedure+} x-character-bounds/ascent
+@deffnx {procedure+} x-character-bounds/descent
+These procedures extract components of objects of type
+@code{x-character-bounds}.  A more complete description of them appears
+in documentation of the @code{XLoadQueryFont} Xlib call.
+@end deffn
+
 @node Starbase Graphics,  , X Graphics, Graphics
 @section Starbase Graphics
 @cindex starbase graphics