From 5b8788ce5549d8396faac55eaab71547ee13bd40 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 28 Jan 1994 04:04:47 +0000 Subject: [PATCH] Add handlers for page-up, page-down, and insert keys. --- v7/src/microcode/ntscreen.c | 30 ++++++++++++++++++++---------- 1 file changed, 20 insertions(+), 10 deletions(-) diff --git a/v7/src/microcode/ntscreen.c b/v7/src/microcode/ntscreen.c index 30f008cb7..136e7566e 100644 --- a/v7/src/microcode/ntscreen.c +++ b/v7/src/microcode/ntscreen.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: ntscreen.c,v 1.19 1993/09/16 22:44:33 adams Exp $ +$Id: ntscreen.c,v 1.20 1994/01/28 04:04:47 gjr Exp $ -Copyright (c) 1993 Massachusetts Institute of Technology +Copyright (c) 1993-1994 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -3208,6 +3208,7 @@ MIT_post_char_message (CONST MSG * lpmsg, WPARAM the_char) #define VK_UNDERSCORE 189 #define ASCII_CONTROLIFY(ascii) ((ascii) - '@') +#define ASCII_METAFY(ascii) ((ascii) | 0200) static BOOL _fastcall MIT_controlify (WPARAM virtual_key, WPARAM * control_char) @@ -3249,29 +3250,38 @@ MIT_TranslateMessage (CONST MSG * lpmsg) switch (virtual_key) { case VK_LEFT: - return (MIT_post_char_message (lpmsg, ((WPARAM) 'B'-64))); + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('B')))); case VK_RIGHT: - return (MIT_post_char_message (lpmsg, ((WPARAM) 'F'-64))); + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('F')))); case VK_UP: - return (MIT_post_char_message (lpmsg, ((WPARAM) 'P'-64))); + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('P')))); case VK_DOWN: - return (MIT_post_char_message (lpmsg, ((WPARAM) 'N'-64))); + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('N')))); case VK_HOME: - return (MIT_post_char_message (lpmsg, ((WPARAM) 'A'-64))); + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('A')))); case VK_END: - return (MIT_post_char_message (lpmsg, ((WPARAM) 'E'-64))); + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('E')))); case VK_BACK: - return (MIT_post_char_message (lpmsg, ((WPARAM) ASCII_DEL))); + return (MIT_post_char_message (lpmsg, ASCII_DEL)); case VK_DELETE: - return (MIT_post_char_message (lpmsg, ((WPARAM) 'D'-64))); + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('D')))); + case VK_PRIOR: + return (MIT_post_char_message (lpmsg, (ASCII_METAFY ('v')))); + + case VK_NEXT: + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('V')))); + + case VK_INSERT: + return (MIT_post_char_message (lpmsg, (ASCII_CONTROLIFY ('O')))); + case VK_SPACE: if ((((DWORD) (GetKeyState (VK_CONTROL))) & 0x8000) != 0) return (MIT_post_char_message (lpmsg, ((WPARAM) '\0'))); -- 2.25.1