/*
 * This is a test program for PDCurses. Originally by John Burnell 
 * (johnb@kea.am.dsir.govt.nz).
 *
 *  wrs(5/28/93) -- modified to be consistent (perform identically) with
 *                  either PDCurses or under Unix System V, R4
 *
 *  $Id: testcurs.c,v 1.83 2007/05/15 20:10:49 wmcbrine Exp $
 */

#ifndef _XOPEN_SOURCE_EXTENDED
# define _XOPEN_SOURCE_EXTENDED 1
#endif

#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <curses.h>

#ifdef WACS_S1
# define HAVE_WIDE 1
#else
# define HAVE_WIDE 0
#endif

#include <locale.h>

#if HAVE_WIDE
# include <wchar.h>
#endif

#if defined(PDCURSES) && !defined(XCURSES)
# define HAVE_RESIZE 1
#else
# define HAVE_RESIZE 0
#endif

#ifdef A_COLOR
# define HAVE_COLOR 1
#else
# define HAVE_COLOR 0
#endif

/* Set to non-zero if you want to test the PDCurses clipboard */

#define HAVE_CLIPBOARD 0

void inputTest(WINDOW *);
void scrollTest(WINDOW *);
void introTest(WINDOW *);
int initTest(WINDOW **, int, char **);
void outputTest(WINDOW *);
void padTest(WINDOW *);
void acsTest(WINDOW *);

#if HAVE_COLOR
void colorTest(WINDOW *);
#endif

#if HAVE_RESIZE
void resizeTest(WINDOW *);
#endif

#if HAVE_CLIPBOARD
void clipboardTest(WINDOW *);
#endif

#if HAVE_WIDE
void wideTest(WINDOW *);
#endif

void display_menu(int, int);

struct commands
{
	const char *text;
	void (*function)(WINDOW *);
};

typedef struct commands COMMAND;

#define MAX_OPTIONS (6 + HAVE_COLOR + HAVE_RESIZE + HAVE_CLIPBOARD + HAVE_WIDE)

COMMAND command[MAX_OPTIONS] =
{
	{"Intro Test", introTest},
	{"Pad Test", padTest},
#if HAVE_RESIZE
	{"Resize Test", resizeTest},
#endif
	{"Scroll Test", scrollTest},
	{"Input Test", inputTest},
	{"Output Test", outputTest},
	{"ACS Test", acsTest},
#if HAVE_COLOR
	{"Color Test", colorTest},
#endif
#if HAVE_CLIPBOARD
	{"Clipboard Test", clipboardTest},
#endif
#if HAVE_WIDE
	{"Wide Input", wideTest}
#endif
};

int width, height;

int main(int argc, char *argv[])
{
	WINDOW *win;
	int key, old_option = -1, new_option = 0;
	bool quit = FALSE;

	setlocale(LC_ALL, "");

	if (initTest(&win, argc, argv))
		return 1;

#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(1, COLOR_WHITE, COLOR_BLUE);
		wbkgd(win, COLOR_PAIR(1));
	}
	else
#endif
		wbkgd(win, A_REVERSE);

	erase();
	display_menu(old_option, new_option);

	while (1)
	{
		noecho();
		keypad(stdscr, TRUE);
		raw();

		key = getch();

		switch(key)
		{
		case 10:
		case 13:
		case KEY_ENTER:
			old_option = -1;
			erase();
			refresh();
			(*command[new_option].function)(win);
			erase();
			display_menu(old_option, new_option);
			break;

		case KEY_PPAGE:
		case KEY_HOME:
			old_option = new_option;
			new_option = 0;
			display_menu(old_option, new_option);
			break;

		case KEY_NPAGE:
		case KEY_END:
			old_option = new_option;
			new_option = MAX_OPTIONS - 1;
			display_menu(old_option, new_option);
			break;

		case KEY_UP:
			old_option = new_option;
			new_option = (new_option == 0) ?
				new_option : new_option - 1;
			display_menu(old_option, new_option);
			break;

		case KEY_DOWN:
			old_option = new_option;
			new_option = (new_option == MAX_OPTIONS - 1) ?
				new_option : new_option + 1;
			display_menu(old_option, new_option);
			break;
#ifdef KEY_RESIZE
		case KEY_RESIZE:
# ifdef PDCURSES
			resize_term(0, 0);
# endif
			old_option = -1;
			erase();
			display_menu(old_option, new_option);
			break;
#endif
		case 'Q':
		case 'q':
			quit = TRUE;
		}

		if (quit == TRUE)
			break;
	}

	delwin(win);
	endwin();

	return 0;
}

void Continue(WINDOW *win)
{
	mvwaddstr(win, 10, 1, " Press any key to continue");
	wrefresh(win);
	raw();
	wgetch(win);
}

void Continue2(void)
{
	move(LINES - 1, 1);
	clrtoeol();
	mvaddstr(LINES - 2, 1, " Press any key to continue");
	refresh();
	raw();
	getch();
}

int initTest(WINDOW **win, int argc, char *argv[])
{
#ifdef XCURSES
	Xinitscr(argc, argv);
#else
	initscr();
#endif
#ifdef A_COLOR
	if (has_colors())
		start_color();
#endif
	/* Create a drawing window */

	width  = 60;
	height = 13;

	*win = newwin(height, width, (LINES - height) / 2, (COLS - width) / 2);

	if (*win == NULL)
	{
		endwin();
		return 1;
	}

	return 0;
}

void introTest(WINDOW *win)
{
	werase(win);
	wmove(win, height / 2 - 5, width / 2);
	wvline(win, ACS_VLINE, 10);
	wmove(win, height / 2, width / 2 - 10);
	whline(win, ACS_HLINE, 20);
	Continue(win);

	beep();
	werase(win);

	box(win, ACS_VLINE, ACS_HLINE);
	wrefresh(win);

	cbreak();
	mvwaddstr(win, 1, 1,
		"You should have a rectangle in the middle of the screen");
	mvwaddstr(win, 2, 1, "You should have heard a beep");
	Continue(win);

	flash();
	mvwaddstr(win, 3, 1, "You should have seen a flash");
	Continue(win);
}

void scrollTest(WINDOW *win)
{
	int i, OldY;
#ifndef PDCURSES
	int OldX;
#endif
	werase(win);
	mvwaddstr(win, height - 2, 1, "The window will now scroll slowly");
	box(win, ACS_VLINE, ACS_HLINE);
	wrefresh(win);
	scrollok(win, TRUE);
	napms(500);

	for (i = 1; i <= height; i++)
	{
		napms(150);
		scroll(win);
		wrefresh(win);
	};

#ifdef PDCURSES
	OldY = getmaxy(win);
#else
	getmaxyx(win, OldY, OldX);
#endif
	mvwaddstr(win, 6, 1, "The top of the window will scroll");
	wmove(win, 1, 1);
	wsetscrreg(win, 0, 4);
	box(win, ACS_VLINE, ACS_HLINE);
	wrefresh(win);

	for (i = 1; i <= 5; i++)
	{
		napms(500);
		scroll(win);
		wrefresh(win);
	}

	mvwaddstr(win, 3, 1, "The bottom of the window will scroll");
	wmove(win, 8, 1);
	wsetscrreg(win, 5, --OldY);
	box(win, ACS_VLINE, ACS_HLINE);
	wrefresh(win);

	for (i = 5; i <= OldY; i++)
	{
		napms(300);
		wscrl(win, -1);
		wrefresh(win);
	}

	wsetscrreg(win, 0, OldY);
}

void inputTest(WINDOW *win)
{
	int w, h, bx, by, sw, sh, i, c, num = 0;
	char buffer[80];
	WINDOW *subWin;
	static const char spinner[4] = "/-\\|";
	int spinner_count = 0;

	wclear(win);

	getmaxyx(win, h, w);
	getbegyx(win, by, bx);

	sw = w / 3;
	sh = h / 3;

	if ((subWin = subwin(win, sh, sw, by + h - sh - 2, bx + w - sw - 2)) 
	    == NULL)
		return;

#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(2, COLOR_WHITE, COLOR_RED);
		wbkgd(subWin, COLOR_PAIR(2) | A_BOLD);
	}
	else
#endif
		wbkgd(subWin, A_BOLD);

	box(subWin, ACS_VLINE, ACS_HLINE);
	wrefresh(win);

	nocbreak();

	wclear (win);
	mvwaddstr(win, 1, 1,
		"Press keys (or mouse buttons) to show their names");
	mvwaddstr(win, 2, 1, "Press spacebar to finish");
	wrefresh(win);

	keypad(win, TRUE);
	raw();
	noecho();

	wtimeout(win, 200);

#ifdef PDCURSES
	mouse_set(ALL_MOUSE_EVENTS);
	PDC_save_key_modifiers(TRUE);
	PDC_return_key_modifiers(TRUE);
#endif
	curs_set(0);		/* turn cursor off */

	while (1)
	{
		while (1)
		{
			c = wgetch(win);

			if (c == ERR)
			{
				spinner_count++;
				if (spinner_count == 4)
					spinner_count = 0;
				mvwaddch(win, 3, 3, spinner[spinner_count]);
				wrefresh(win);
			}
			else
				break;
		}
#ifdef PDCURSES
		wmove(win, 4, 18);
		wclrtoeol(win);
#endif
		mvwaddstr(win, 3, 5, "Key Pressed: ");
		wclrtoeol(win);

		if (c >= KEY_MIN)
			wprintw(win, "%s", keyname(c));
		else if (isprint(c))
			wprintw(win, "%c", c);
		else
			wprintw(win, "%s", unctrl(c));
#ifdef PDCURSES
		if (c == KEY_MOUSE)
		{
			int button = 0;
			request_mouse_pos();

			if (BUTTON_CHANGED(1))
				button = 1;
			else if (BUTTON_CHANGED(2))
				button = 2;
			else if (BUTTON_CHANGED(3))
				button = 3;

			if (button && (BUTTON_STATUS(button) & 
				BUTTON_MODIFIER_MASK))
			{
				waddstr(win, " Modifier(s):");
             
				if (BUTTON_STATUS(button) & BUTTON_SHIFT)
					waddstr(win, " SHIFT");

				if (BUTTON_STATUS(button) & BUTTON_CONTROL)
					waddstr(win, " CONTROL");

				if (BUTTON_STATUS(button) & BUTTON_ALT)
					waddstr(win, " ALT");
			}

			wmove(win, 4, 18);
			wclrtoeol(win);
			wprintw(win, "Button %d: ", button);

			if (MOUSE_MOVED)
				waddstr(win, "moved: ");
			else if (MOUSE_WHEEL_UP)
				waddstr(win, "wheel up: ");
			else if (MOUSE_WHEEL_DOWN)
				waddstr(win, "wheel dn: ");
			else if ((BUTTON_STATUS(button) & 
			    BUTTON_ACTION_MASK) == BUTTON_PRESSED)
				waddstr(win, "pressed: ");
			else if ((BUTTON_STATUS(button) & 
			    BUTTON_ACTION_MASK) == BUTTON_CLICKED)
				waddstr(win, "clicked: ");
			else if ((BUTTON_STATUS(button) & 
			    BUTTON_ACTION_MASK) == BUTTON_DOUBLE_CLICKED)
				waddstr(win, "double: ");
			else
				waddstr(win, "released: ");

			wprintw(win, "Position: Y: %d X: %d", 
				MOUSE_Y_POS, MOUSE_X_POS);
		}
		else if (PDC_get_key_modifiers())
		{
			waddstr(win, " Modifier(s):");
			if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_SHIFT)
				waddstr(win, " SHIFT");

			if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_CONTROL)
				waddstr(win, " CONTROL");

			if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_ALT)
				waddstr(win, " ALT");

			if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_NUMLOCK)
				waddstr(win, " NUMLOCK");
		}
#endif
		wrefresh(win);

		if (c == ' ')
			break;
	}

	wtimeout(win, -1);	/* turn off timeout() */
	curs_set(1);		/* turn cursor back on */

#ifdef PDCURSES
	mouse_set(0L);
	PDC_save_key_modifiers(FALSE);
	PDC_return_key_modifiers(FALSE);
#endif
	wclear(win);
	mvwaddstr(win, 2, 1, "Press some keys for 5 seconds");
	mvwaddstr(win, 1, 1, "Pressing ^C should do nothing");
	wrefresh(win);

	werase(subWin);
	box(subWin, ACS_VLINE, ACS_HLINE);

	for (i = 0; i < 5; i++)
	{
		mvwprintw(subWin, 1, 1, "Time = %d", i);
		wrefresh(subWin);
		napms(1000);
		flushinp();
	}

	delwin(subWin);
	werase(win);
	flash();
	wrefresh(win);
	napms(500);
	flushinp();

	mvwaddstr(win, 2, 1, "Press a key, followed by ENTER");
	wmove(win, 9, 10);
	wrefresh(win);
	echo();

	keypad(win, TRUE);
	raw();
	wgetnstr(win, buffer, 3);
	flushinp();

	wmove(win, 9, 10);
	wdelch(win);
	mvwaddstr(win, 4, 1, "The character should now have been deleted");
	Continue(win);

	refresh();
	wclear(win);
	echo();
	buffer[0] = '\0';
	mvwaddstr(win, 3, 2, "The window should have moved");
	mvwaddstr(win, 4, 2,
		"This text should have appeared without you pressing a key");
	mvwaddstr(win, 6, 2, "Enter a number then a string seperated by space");
	mvwin(win, 2, 1);
	wrefresh(win);
	mvwscanw(win, 7, 6, "%d %s", &num, buffer);
	mvwprintw(win, 8, 6, "String: %s Number: %d", buffer, num);
	Continue(win);

	refresh();
	wclear(win);
	echo();
	mvwaddstr(win, 3, 2, "Enter a 5 character string: ");
	wgetnstr(win, buffer, 5);
	mvwprintw(win, 4, 2, "String: %s", buffer);
	Continue(win);
}

void outputTest(WINDOW *win)
{
	WINDOW *win1;
	char Buffer[80];
	chtype ch;
	int by, bx;

	nl();
	wclear(win);
	mvwaddstr(win, 1, 1, "You should now have a screen in the upper "
			     "left corner, and this text should have wrapped");
	waddstr(win,"\nThis text should be down\n");
	waddstr(win,  "and broken into two here ^");
	Continue(win);

	wclear(win);
	wattron(win, A_BOLD);
	mvwaddstr(win, 1, 1, "A new window will appear with this text in it");
	mvwaddstr(win, 8, 1, "Press any key to continue");
	wrefresh(win);
	wgetch(win);

	getbegyx(win, by, bx);

	if (LINES < 24 || COLS < 75)
	{
		mvwaddstr(win, 5, 1,
			"Some tests have been skipped as they require a");
		mvwaddstr(win, 6, 1,
			"display of at least 24 LINES by 75 COLUMNS");
		Continue(win);
	}
	else
	{
		win1 = newwin(10, 50, 14, 25);

		if (win1 == NULL)
		{
			endwin();
			return;
		}

#ifdef A_COLOR
		if (has_colors())
		{
			init_pair(3, COLOR_BLUE, COLOR_WHITE);
			wbkgd(win1, COLOR_PAIR(3));
		}
		else
#endif
			wbkgd(win1, A_NORMAL);

		wclear(win1);
		mvwaddstr(win1, 5, 1,
			"This text should appear; using overlay option");
		copywin(win, win1, 0, 0, 0, 0, 9, 49, TRUE);
		box(win1, ACS_VLINE, ACS_HLINE);
		wmove(win1, 8, 26);
		wrefresh(win1);
		wgetch(win1);
       
		wclear(win1);

		wattron(win1, A_BLINK);
		mvwaddstr(win1, 4, 1,
		"This blinking text should appear in only the second window");
		wattroff(win1, A_BLINK);

		mvwin(win1, by, bx);
		overlay(win, win1);
		mvwin(win1, 14, 25);
		wmove(win1, 8, 26);
		wrefresh(win1);
		wgetch(win1);

		delwin(win1);
	}

	clear();
	wclear(win);
	wrefresh(win);
	mvwaddstr(win, 6, 2, "This line shouldn't appear");
	mvwaddstr(win, 4, 2, "Only half of the next line is visible");
	mvwaddstr(win, 5, 2, "Only half of the next line is visible");
	wmove(win, 6, 1);
	wclrtobot(win);
	wmove(win, 5, 20);
	wclrtoeol(win);
	mvwaddstr(win, 8, 2, "This line also shouldn't appear");
	wmove(win, 8, 1);
	winsdelln(win, -1);
	Continue(win);

	wmove(win, 5, 9);
	ch = winch(win);

	wclear(win);
	wmove(win, 6, 2);
	waddstr(win, "The next char should be l:  ");
	winsch(win, ch);
	Continue(win);

	mvwinsstr(win, 6, 2, "A1B2C3D4E5");
	Continue(win);

	wmove(win, 5, 1);
	winsdelln(win, 1);
	mvwaddstr(win, 5, 2, "The lines below should have moved down");
	Continue(win);

	wclear(win);
	wmove(win, 2, 2);
	wprintw(win, "This is a formatted string in a window: %d %s\n",
		42, "is it");
	mvwaddstr(win, 10, 1, "Enter a string: ");
	wrefresh(win);
	echo();
	wscanw(win, "%s", Buffer);

	printw("This is a formatted string in stdscr: %d %s\n", 42, "is it");
	mvaddstr(10, 1, "Enter a string: ");
	scanw("%s", Buffer);

	wclear(win);
	curs_set(2);
	mvwaddstr(win, 1, 1, "The cursor should be in high-visibility mode");
	Continue(win);

	wclear(win);
	curs_set(0);
	mvwaddstr(win, 1, 1, "The cursor should have disappeared");
	Continue(win);

	wclear(win);
	curs_set(1);
	mvwaddstr(win, 1, 1, "The cursor should be normal");
	Continue(win);

#ifdef A_COLOR
	if (has_colors())
	{
		wclear(win);
		mvwaddstr(win, 1, 1,
			"Colors should change after you press a key");
		Continue(win);

		init_pair(1, COLOR_RED, COLOR_WHITE);
		wrefresh(win);
	}
#endif
	werase(win);
	mvwaddstr(win, 1, 1, "Information About Your Terminal");
	mvwaddstr(win, 3, 1, termname());
	mvwaddstr(win, 4, 1, longname());

	if (termattrs() & A_BLINK)
		mvwaddstr(win, 5, 1,
			"This terminal claims to support blinking.");
	else
		mvwaddstr(win, 5, 1,
			"This terminal does NOT support blinking.");

	mvwaddnstr(win, 7, 5, "Have a nice day!ok", 16);
	wrefresh(win);

	mvwinnstr(win, 7, 5, Buffer, 18);
	mvaddstr(LINES - 2, 10, Buffer);
	refresh();
	Continue(win);
}

#if HAVE_RESIZE
void resizeTest(WINDOW *dummy)
{
	WINDOW *win1;
	int nwidth = 135, nheight = 52;
	int owidth = COLS, oheight = LINES;

	savetty();

	resize_term(nheight, nwidth);

	clear();
	refresh();

	win1 = newwin(10, 50, 14, 25);

	if (win1 == NULL)
	{
		endwin();
		return;
	}

#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(3, COLOR_BLUE, COLOR_WHITE);
		wattrset(win1, COLOR_PAIR(3));
	}

	wclear(win1);
#endif
	mvwaddstr(win1, 0, 0, "The screen may now be resized");
	mvwprintw(win1, 1, 4, "Given size: %d by %d", nwidth, nheight);
	mvwprintw(win1, 2, 4, "Actual size: %d by %d", COLS, LINES);
	Continue(win1);

	wclear(win1);
	resetty();

	mvwaddstr(win1, 0, 0, "The screen should now be reset");
	mvwprintw(win1, 1, 6, "Old size: %d by %d", owidth, oheight);
	mvwprintw(win1, 2, 6, "Size now: %d by %d", COLS, LINES);
	Continue(win1);

	delwin(win1);

	clear();
	refresh();
}
#endif /* HAVE_RESIZE */

void padTest(WINDOW *dummy)
{
	WINDOW *pad, *spad;

	pad = newpad(50, 100);
	wattron(pad, A_REVERSE);
	mvwaddstr(pad, 5, 2, "This is a new pad");
	wattrset(pad, 0);
	mvwaddstr(pad, 8, 0,
		"The end of this line should be truncated here:except  now");
	mvwaddstr(pad, 11, 1, "This line should not appear.It will now");
	wmove(pad, 10, 1);
	wclrtoeol(pad);
	mvwaddstr(pad, 10, 1, " Press any key to continue");
	prefresh(pad, 0, 0, 0, 0, 10, 45);
	keypad(pad, TRUE);
	raw();
	wgetch(pad);

	spad = subpad(pad, 12, 25, 7, 52);
	mvwaddstr(spad, 2, 2, "This is a new subpad");
	box(spad, 0, 0);
	prefresh(pad, 0, 0, 0, 0, 15, 75);
	keypad(pad, TRUE);
	raw();
	wgetch(pad);

	mvwaddstr(pad, 35, 2, "This is displayed at line 35 in the pad");
	mvwaddstr(pad, 40, 1, " Press any key to continue");
	prefresh(pad, 30, 0, 0, 0, 10, 45);
	keypad(pad, TRUE);
	raw();
	wgetch(pad);

	delwin(pad);
}

#if HAVE_CLIPBOARD
void clipboardTest(WINDOW *win)
{
	static const char *text =
	"This string placed in clipboard by PDCurses test program, testcurs.";
	char *ptr = NULL;
	long i, length = 0;

	mvaddstr(1, 1,
		"This test will display the contents of the system clipboard");

	Continue2();

	scrollok(stdscr, TRUE);
	i = PDC_getclipboard(&ptr, &length);

	switch(i)
	{
	case PDC_CLIP_ACCESS_ERROR:
		mvaddstr(3, 1, "There was an error accessing the clipboard");
		refresh();
		break;

	case PDC_CLIP_MEMORY_ERROR:
		mvaddstr(3, 1,
			"Unable to allocate memory for clipboard contents");
		break;

	case PDC_CLIP_EMPTY:
		mvaddstr(3, 1, "There was no text in the clipboard");
		break;

	default:
		wsetscrreg(stdscr, 0, LINES - 1);
		clear();
		mvaddstr(1, 1, "Clipboard contents...");
		mvprintw(2, 1, "%s\n", ptr);
	}

	Continue2();

	clear();
	mvaddstr(1, 1,
	"This test will place the following string in the system clipboard:");
	mvaddstr(2, 1, text);

	i = PDC_setclipboard(text, strlen(text));

	switch(i)
	{
	case PDC_CLIP_ACCESS_ERROR:
		mvaddstr(3, 1, "There was an error accessing the clipboard");
		break;

	case PDC_CLIP_MEMORY_ERROR:
		mvaddstr(3, 1,
			"Unable to allocate memory for clipboard contents");
		break;

	default:
		mvaddstr(3, 1,
			"The string was placed in the clipboard successfully");
	}

	Continue2();
}
#endif /* HAVE_CLIPBOARD */

void acsTest(WINDOW *win)
{
#ifdef ACS_S3
# define ACSNUM 32
#else
# define ACSNUM 25
#endif
	static const char *acs_names[] =
	{
		"ACS_ULCORNER", "ACS_URCORNER", "ACS_LLCORNER", 
		"ACS_LRCORNER", "ACS_LTEE", "ACS_RTEE", "ACS_TTEE", 
		"ACS_BTEE", "ACS_HLINE", "ACS_VLINE", "ACS_PLUS",

		"ACS_S1", "ACS_S9", "ACS_DIAMOND", "ACS_CKBOARD", 
		"ACS_DEGREE", "ACS_PLMINUS", "ACS_BULLET",

		"ACS_LARROW", "ACS_RARROW", "ACS_UARROW", "ACS_DARROW", 
		"ACS_BOARD", "ACS_LANTERN", "ACS_BLOCK"
#ifdef ACS_S3
		, "ACS_S3", "ACS_S7", "ACS_LEQUAL", "ACS_GEQUAL", 
		"ACS_PI", "ACS_NEQUAL", "ACS_STERLING"
#endif
	};

	chtype acs_values[ACSNUM];

#if HAVE_WIDE
	cchar_t *wacs_values[] =
	{
		WACS_ULCORNER, WACS_URCORNER, WACS_LLCORNER, WACS_LRCORNER, 
		WACS_LTEE, WACS_RTEE, WACS_TTEE, WACS_BTEE, WACS_HLINE, 
		WACS_VLINE, WACS_PLUS,

		WACS_S1, WACS_S9, WACS_DIAMOND, WACS_CKBOARD, WACS_DEGREE, 
		WACS_PLMINUS, WACS_BULLET,

		WACS_LARROW, WACS_RARROW, WACS_UARROW, WACS_DARROW, 
		WACS_BOARD, WACS_LANTERN, WACS_BLOCK
# ifdef WACS_S3
		, WACS_S3, WACS_S7, WACS_LEQUAL, WACS_GEQUAL, WACS_PI, 
		WACS_NEQUAL, WACS_STERLING
# endif
	};

	static const wchar_t russian[] = {0x0420, 0x0443, 0x0441,
		0x0441, 0x043a, 0x0438, 0x0439, L' ', 0x044f, 0x0437,
		0x044b, 0x043a, 0};

	static const wchar_t greek[] = {0x0395, 0x03bb, 0x03bb, 0x03b7,
		0x03bd, 0x03b9, 0x03ba, 0x03ac, 0};

	static const wchar_t georgian[] = {0x10e5, 0x10d0, 0x10e0, 
		0x10d7, 0x10e3, 0x10da, 0x10d8, L' ', 0x10d4, 0x10dc, 
		0x10d0, 0};
#endif

	int i, tmarg = (LINES - 22) / 2;

	attrset(A_BOLD);
	mvaddstr(tmarg, (COLS - 23) / 2, "Alternate Character Set");
	attrset(A_NORMAL);

	tmarg += 3;

#define A(b,c) acs_values[b] = ACS_##c

	A(0,ULCORNER);	A(1,URCORNER);	A(2,LLCORNER);	A(3,LRCORNER);
	A(4,LTEE);	A(5,RTEE);	A(6,TTEE);	A(7,BTEE);
	A(8,HLINE);	A(9,VLINE);	A(10,PLUS);	A(11,S1);
	A(12,S9);	A(13,DIAMOND);	A(14,CKBOARD);	A(15,DEGREE);

	A(16,PLMINUS);	A(17,BULLET);	A(18,LARROW);	A(19,RARROW);
	A(20,UARROW);	A(21,DARROW);	A(22,BOARD);	A(23,LANTERN);
	A(24,BLOCK);
#ifdef ACS_S3
	A(25,S3);	A(26,S7);	A(27,LEQUAL);	A(28,GEQUAL);
	A(29,PI);	A(30,NEQUAL);	A(31,STERLING);
#endif

#undef A

	for (i = 0; i < ACSNUM; i++)
	{
		move((i % 8) * 2 + tmarg, (i / 8) * (COLS / 4) +
			(COLS / 8 - 7));

		addch(acs_values[i]);
		printw(" %s", acs_names[i]);
	}

	mvaddstr(tmarg + 18, 3, "Press any key to continue");
	getch();

#if HAVE_WIDE
	clear();

	attrset(A_BOLD);
	mvaddstr(tmarg - 3, (COLS - 28) / 2, "Wide Alternate Character Set");
	attrset(A_NORMAL);

	for (i = 0; i < ACSNUM; i++)
	{
		move((i % 8) * 2 + tmarg, (i / 8) * (COLS / 4) +
			(COLS / 8 - 7));

		add_wch(wacs_values[i]);
		printw(" W%s", acs_names[i]);
	}

	/* Spanish, Russian, Greek, Georgian */

	mvaddwstr(tmarg + 16, COLS / 8 - 5, L"Espa\xf1ol");
	mvaddwstr(tmarg + 16, 3 * (COLS / 8) - 5, russian);
	mvaddwstr(tmarg + 16, 5 * (COLS / 8) - 5, greek);
	mvaddwstr(tmarg + 16, 7 * (COLS / 8) - 5, georgian);

	mvaddstr(tmarg + 18, 3, "Press any key to continue");
	getch();
#endif
}

#if HAVE_COLOR
void colorTest(WINDOW *win)
{
	static const short colors[] =
	{
		COLOR_BLACK, COLOR_RED, COLOR_GREEN, COLOR_BLUE, 
		COLOR_CYAN, COLOR_MAGENTA, COLOR_YELLOW, COLOR_WHITE
	};

	static const char *colornames[] =
	{
		"COLOR_BLACK", "COLOR_RED", "COLOR_GREEN", "COLOR_BLUE", 
		"COLOR_CYAN", "COLOR_MAGENTA", "COLOR_YELLOW", "COLOR_WHITE"
	};

	chtype fill = ACS_BLOCK;

	int i, j, tmarg, col1, col2, col3;

	if (!has_colors())
		return;

	tmarg = (LINES - 19) / 2;
	col1 = (COLS - 60) / 2;
	col2 = col1 + 20;
	col3 = col2 + 20;

	attrset(A_BOLD);
	mvaddstr(tmarg, (COLS - 22) / 2, "Color Attribute Macros");
	attrset(A_NORMAL);

	mvaddstr(tmarg + 3, col2 + 4, "A_NORMAL");
	mvaddstr(tmarg + 3, col3 + 5, "A_BOLD");

	for (i = 0; i < 8; i++)
	{
		init_pair(i + 4, colors[i], COLOR_BLACK);

		mvaddstr(tmarg + i + 5, col1, colornames[i]);

		for (j = 0; j < 16; j++)
		{
			mvaddch(tmarg + i + 5, col2 + j,
				fill | COLOR_PAIR(i + 4));
			mvaddch(tmarg + i + 5, col3 + j,
				fill | COLOR_PAIR(i + 4) | A_BOLD);
		}
	}

	mvprintw(tmarg + 15, col1, "COLORS = %d", COLORS);
	mvprintw(tmarg + 16, col1, "COLOR_PAIRS = %d", COLOR_PAIRS);

	mvaddstr(tmarg + 19, 3, "Press any key to continue");
	getch();

	if (can_change_color())
	{
		struct
		{
			short red, green, blue;
		} orgcolors[16];

		int MAXCOL = (COLORS >= 16) ? 16 : 8;

		if (MAXCOL < 8)
			return;

		for (i = 0; i < MAXCOL; i++)
			color_content(i, &(orgcolors[i].red),
				&(orgcolors[i].green),
				&(orgcolors[i].blue));

		attrset(A_BOLD);
		mvaddstr(tmarg, (COLS - 22) / 2, " init_color() Example ");
		attrset(A_NORMAL);

		refresh();

		for (i = 0; i < 8; i++)
		{
			init_color(colors[i], i * 125, 0, i * 125);

			if (MAXCOL == 16)
				init_color(colors[i] + 8, 0, i * 125, 0);
		}

		mvaddstr(tmarg + 19, 3, "Press any key to continue");
		getch();

		for (i = 0; i < MAXCOL; i++)
			init_color(i, orgcolors[i].red,
				orgcolors[i].green,
				orgcolors[i].blue);
	}
}
#endif

#if HAVE_WIDE
void wideTest(WINDOW *win)
{
	wchar_t tmp[513];
	size_t i;

	attrset(A_BOLD);
	mvaddstr(1, (COLS - 25) / 2, "Wide Character Input Test");
	attrset(A_NORMAL);

	mvaddstr(4, 1, "Enter a string: ");

	echo();

	get_wstr((wint_t *)tmp);
	addstr("\n\n String:\n\n ");
	addwstr(tmp);
	addstr("\n\n\n Hex:\n\n ");

	for (i = 0; i < wcslen(tmp); i++)
	{
		printw("%04x ", tmp[i]);
		addnwstr(tmp + i, 1);
		addstr("  ");
	}

	noecho();

	Continue2();
}
#endif

void display_menu(int old_option, int new_option)
{
	int lmarg = (COLS - 14) / 2,
		tmarg = (LINES - (MAX_OPTIONS + 2)) / 2;

	if (old_option == -1)
	{
		int i;

		attrset(A_BOLD);
		mvaddstr(tmarg - 3, lmarg - 5, "PDCurses Test Program");
		attrset(A_NORMAL);

		for (i = 0; i < MAX_OPTIONS; i++)
			mvaddstr(tmarg + i, lmarg, command[i].text);
	}
	else
		mvaddstr(tmarg + old_option, lmarg, command[old_option].text);

	attrset(A_REVERSE);
	mvaddstr(tmarg + new_option, lmarg, command[new_option].text);
	attrset(A_NORMAL);

	mvaddstr(tmarg + MAX_OPTIONS + 2, lmarg - 23,
		"Use Up and Down Arrows to select - Enter to run - Q to quit");
	refresh();
}