From 2cfb358d50b5055b38af1c8c27287d0e103f8d0d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 25 Sep 1995 20:04:19 +0000 Subject: [PATCH] Add primitive to perform XSelectInput library call. --- v7/src/microcode/x11base.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c index da5e08af5..d240cb2d0 100644 --- a/v7/src/microcode/x11base.c +++ b/v7/src/microcode/x11base.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: x11base.c,v 1.59 1995/09/18 22:52:36 cph Exp $ +$Id: x11base.c,v 1.60 1995/09/25 20:04:19 cph Exp $ Copyright (c) 1989-95 Massachusetts Institute of Technology @@ -2381,3 +2381,12 @@ DEFINE_PRIMITIVE ("X-MAX-REQUEST-SIZE", Prim_x_max_request_size, 1, 1, 0) PRIMITIVE_RETURN (long_to_integer (XMaxRequestSize (XD_DISPLAY (x_display_arg (1))))); } + +DEFINE_PRIMITIVE ("X-SELECT-INPUT", Prim_x_select_input, 3, 3, 0) +{ + PRIMITIVE_HEADER (3); + XSelectInput ((XD_DISPLAY (x_display_arg (1))), + (arg_ulong_integer (2)), + (arg_integer (3))); + PRIMITIVE_RETURN (UNSPECIFIC); +} -- 2.25.1