From ea15ee886789a31160f5e87ae466adadbb1e5815 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Tue, 6 Nov 2007 14:14:16 +0000 Subject: 24069: add zcurses_keycodes --- Src/Modules/curses.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'Src/Modules') diff --git a/Src/Modules/curses.c b/Src/Modules/curses.c index c9e4ec134..08fe0099b 100644 --- a/Src/Modules/curses.c +++ b/Src/Modules/curses.c @@ -1209,6 +1209,16 @@ static const struct gsu_array zcurses_attrs_gsu = { zcurses_attrgetfn, arrsetfn, stdunsetfn }; +static char ** +zcurses_keycodesgetfn(UNUSED(Param pm)) +{ + return zcurses_pairs_to_array(keypad_names); +} + +static const struct gsu_array zcurses_keycodes_gsu = +{ zcurses_keycodesgetfn, arrsetfn, stdunsetfn }; + + static char ** zcurses_windowsgetfn(UNUSED(Param pm)) { @@ -1254,6 +1264,8 @@ static struct paramdef partab[] = { &zcurses_colorsarr_gsu, NULL, NULL), SPECIALPMDEF("zcurses_attrs", PM_ARRAY|PM_READONLY, &zcurses_attrs_gsu, NULL, NULL), + SPECIALPMDEF("zcurses_keycodes", PM_ARRAY|PM_READONLY, + &zcurses_keycodes_gsu, NULL, NULL), SPECIALPMDEF("zcurses_windows", PM_ARRAY|PM_READONLY, &zcurses_windows_gsu, NULL, NULL), SPECIALPMDEF("ZCURSES_COLORS", PM_INTEGER|PM_READONLY, -- cgit 1.4.1