From 79bcc192ebe1ff46ef050f647bb80f1892e1c31b Mon Sep 17 00:00:00 2001
From: "nethack.allison" <nethack.allison>
Date: Thu, 14 Aug 2003 11:23:33 +0000
Subject: [PATCH] win ce keypad (from <Someone>)

> I had some reports similar to "#U574: 3.4.1 On PocketPC, screwed
> up message area font" but regarding the keypad window. Since
> there is no separate option for keypad font, this patch makes it
> use message font option if it is set.
---
 sys/wince/mhcmd.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/sys/wince/mhcmd.c b/sys/wince/mhcmd.c
index 8d63a80cc..0ff3b7622 100644
--- a/sys/wince/mhcmd.c
+++ b/sys/wince/mhcmd.c
@@ -800,7 +800,13 @@ void LayoutCmdWindow(HWND hWnd)
 	lgfnt.lfOutPrecision	=	OUT_DEFAULT_PRECIS;  // output precision
 	lgfnt.lfClipPrecision	=	CLIP_CHARACTER_PRECIS; // clipping precision
 	lgfnt.lfQuality			=	DEFAULT_QUALITY;     // output quality
-	lgfnt.lfPitchAndFamily	=	VARIABLE_PITCH;		 // pitch and family
+	if( iflags.wc_font_message &&
+		*iflags.wc_font_message ) {
+		lgfnt.lfPitchAndFamily	= DEFAULT_PITCH;		 // pitch and family
+		NH_A2W( iflags.wc_font_message, lgfnt.lfFaceName, LF_FACESIZE);
+	} else {
+		lgfnt.lfPitchAndFamily	= VARIABLE_PITCH;		 // pitch and family
+	}
 	data->font[NH_CMDPAD_FONT_NORMAL] = CreateFontIndirect(&lgfnt);
 
 	InvalidateRect(hWnd, NULL, TRUE);
-- 
2.40.0