From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 May 1995 08:07:34 +0000 (+0000)
Subject: Implement OS2PS-GET-FONT-METRICS primitive.
X-Git-Tag: 20090517-FFI~6289
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7995de098cda5a12d6fec68b5ea27f3a9f1b9537;p=mit-scheme.git

Implement OS2PS-GET-FONT-METRICS primitive.
---

diff --git a/v7/src/microcode/os2msg.h b/v7/src/microcode/os2msg.h
index 70290981c..9cc0a5cee 100644
--- a/v7/src/microcode/os2msg.h
+++ b/v7/src/microcode/os2msg.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2msg.h,v 1.10 1995/05/16 09:20:22 cph Exp $
+$Id: os2msg.h,v 1.11 1995/05/20 08:07:18 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -125,8 +125,9 @@ typedef enum
   mt_ps_text_width_request,	/* compute pel width of text string */
   mt_ps_text_width_reply,
   mt_ps_clear,			/* clear a PS rectangle */
-  mt_ps_set_font_request,	/* change the text font in a PS */
-  mt_ps_set_font_reply,
+  mt_ps_get_font_metrics_request, /* get metrics for current PS font */
+  mt_ps_get_font_metrics_reply,
+  mt_ps_set_font,		/* change the text font in a PS */
   mt_ps_set_colors,		/* set fg/bg colors of PS */
   mt_ps_move_gcursor,		/* move graphics cursor */
   mt_ps_draw_line,		/* draw line from graphics cursor to point */
diff --git a/v7/src/microcode/os2pm.h b/v7/src/microcode/os2pm.h
index c37f5360c..3b3c04352 100644
--- a/v7/src/microcode/os2pm.h
+++ b/v7/src/microcode/os2pm.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pm.h,v 1.8 1995/05/16 09:20:15 cph Exp $
+$Id: os2pm.h,v 1.9 1995/05/20 08:07:34 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -218,6 +218,7 @@ extern bid_t OS2_ps_set_bitmap (psid_t, bid_t);
 extern void OS2_ps_bitblt (psid_t, psid_t, LONG, PPOINTL, LONG, ULONG);
 extern void OS2_ps_draw_text
   (psid_t, short, short, const char *, unsigned short);
+extern font_metrics_t * OS2_ps_get_font_metrics (psid_t);
 extern font_metrics_t * OS2_ps_set_font (psid_t, unsigned short, const char *);
 extern void OS2_ps_clear (psid_t, short, short, short, short);
 extern void OS2_ps_set_colors (psid_t, COLOR, COLOR);