ncurses 6.0 - patch 20150822
[ncurses.git] / test / ncurses.c
index 0abf571d59363decb10ed4a22ee1a153c322313d..59a88c457402cc0a4ab43325e750246a0634ee56 100644 (file)
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1998-2013,2014 Free Software Foundation, Inc.              *
+ * Copyright (c) 1998-2014,2015 Free Software Foundation, Inc.              *
  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *
@@ -40,7 +40,7 @@ AUTHOR
    Author: Eric S. Raymond <esr@snark.thyrsus.com> 1993
            Thomas E. Dickey (beginning revision 1.27 in 1996).
 
-$Id: ncurses.c,v 1.398 2014/05/03 19:38:16 juergen Exp $
+$Id: ncurses.c,v 1.420 2015/05/23 23:41:25 tom Exp $
 
 ***************************************************************************/
 
@@ -303,9 +303,9 @@ wGetstring(WINDOW *win, char *buffer, int limit)
 
 #if USE_WIDEC_SUPPORT
 static wchar_t
-fullwidth_of(int ch)
+fullwidth_digit(int ch)
 {
-    return (ch + 0xff10 - '0');
+    return (wchar_t) (ch + 0xff10 - '0');
 }
 
 static void
@@ -313,7 +313,7 @@ make_fullwidth_text(wchar_t *target, const char *source)
 {
     int ch;
     while ((ch = *source++) != 0) {
-       *target++ = fullwidth_of(ch);
+       *target++ = fullwidth_digit(ch);
     }
     *target = 0;
 }
@@ -323,7 +323,7 @@ make_narrow_text(wchar_t *target, const char *source)
 {
     int ch;
     while ((ch = *source++) != 0) {
-       *target++ = ch;
+       *target++ = (wchar_t) ch;
     }
     *target = 0;
 }
@@ -334,7 +334,7 @@ make_fullwidth_digit(cchar_t *target, int digit)
 {
     wchar_t source[2];
 
-    source[0] = fullwidth_of(digit + '0');
+    source[0] = fullwidth_digit(digit + '0');
     source[1] = 0;
     setcchar(target, source, A_NORMAL, 0, 0);
 }
@@ -943,7 +943,7 @@ begin_getch_test(void)
     refresh();
 
 #ifdef NCURSES_MOUSE_VERSION
-    mousemask(ALL_MOUSE_EVENTS, (mmask_t *) 0);
+    mousemask(ALL_MOUSE_EVENTS | REPORT_MOUSE_POSITION, (mmask_t *) 0);
 #endif
 
     (void) printw("Delay in 10ths of a second (<CR> for blocking input)? ");
@@ -1252,8 +1252,13 @@ my_termattrs(void)
 #define termattrs() my_termattrs()
 #endif
 
-#define MAX_ATTRSTRING 31
-#define LEN_ATTRSTRING 26
+#define ATTRSTRING_1ST 32      /* ' ' */
+#define ATTRSTRING_END 126     /* '~' */
+
+#define COL_ATTRSTRING 25
+#define MARGIN_4_ATTRS (COL_ATTRSTRING + 8)
+#define LEN_ATTRSTRING (COLS - MARGIN_4_ATTRS)
+#define MAX_ATTRSTRING (ATTRSTRING_END + 1 - ATTRSTRING_1ST)
 
 static char attr_test_string[MAX_ATTRSTRING + 1];
 
@@ -1287,6 +1292,10 @@ attr_legend(WINDOW *helpwin)
              "  a/A     toggle ACS (alternate character set) mapping");
     MvWPrintw(helpwin, row, col,
              "  v/V     toggle video attribute to combine with each line");
+#if USE_WIDEC_SUPPORT
+    MvWPrintw(helpwin, row, col,
+             "  w/W     toggle normal/wide (double-width) test-characters");
+#endif
 }
 
 static void
@@ -1352,12 +1361,14 @@ cycle_color_attr(int ch, NCURSES_COLOR_T *fg, NCURSES_COLOR_T *bg, NCURSES_COLOR
 static void
 adjust_attr_string(int adjust)
 {
-    int first = ((int) UChar(attr_test_string[0])) + adjust;
-    int last = first + LEN_ATTRSTRING;
+    char save = attr_test_string[0];
+    int first = ((int) UChar(save)) + adjust;
+    int j, k;
 
-    if (first >= ' ' && last <= '~') { /* 32..126 */
-       int j, k;
-       for (j = 0, k = first; j < MAX_ATTRSTRING && k <= last; ++j, ++k) {
+    if (first >= ATTRSTRING_1ST) {
+       for (j = 0, k = first; j < MAX_ATTRSTRING; ++j, ++k) {
+           if (k > ATTRSTRING_END)
+               break;
            attr_test_string[j] = (char) k;
            if (((k + 1 - first) % 5) == 0) {
                if (++j >= MAX_ATTRSTRING)
@@ -1365,23 +1376,40 @@ adjust_attr_string(int adjust)
                attr_test_string[j] = ' ';
            }
        }
-       while (j < MAX_ATTRSTRING)
-           attr_test_string[j++] = ' ';
-       attr_test_string[j] = '\0';
-    } else {
-       beep();
+       if ((LEN_ATTRSTRING - j) > 5) {
+           attr_test_string[0] = save;
+           adjust_attr_string(adjust - 1);
+       } else {
+           while (j < MAX_ATTRSTRING)
+               attr_test_string[j++] = ' ';
+           attr_test_string[j] = '\0';
+       }
     }
 }
 
+/*
+ * Prefer the right-end of the string for starting, since that maps to the
+ * VT100 line-drawing.
+ */
+static int
+default_attr_string(void)
+{
+    int result = (ATTRSTRING_END - LEN_ATTRSTRING);
+    result += (LEN_ATTRSTRING / 5);
+    if (result < ATTRSTRING_1ST)
+       result = ATTRSTRING_1ST;
+    return result;
+}
+
 static void
 init_attr_string(void)
 {
-    attr_test_string[0] = 'a';
+    attr_test_string[0] = (char) default_attr_string();
     adjust_attr_string(0);
 }
 
 static int
-show_attr(int row, int skip, bool arrow, chtype attr, const char *name)
+show_attr(WINDOW *win, int row, int skip, bool arrow, chtype attr, const char *name)
 {
     int ncv = get_ncv();
     chtype test = attr & (chtype) (~A_ALTCHARSET);
@@ -1389,7 +1417,7 @@ show_attr(int row, int skip, bool arrow, chtype attr, const char *name)
     if (arrow)
        MvPrintw(row, 5, "-->");
     MvPrintw(row, 8, "%s mode:", name);
-    MvPrintw(row, 24, "|");
+    MvPrintw(row, COL_ATTRSTRING - 1, "|");
     if (skip)
        printw("%*s", skip, " ");
     /*
@@ -1397,22 +1425,24 @@ show_attr(int row, int skip, bool arrow, chtype attr, const char *name)
      * character at a time (to pass its rendition directly), and use the
      * string operation for the other attributes.
      */
+    wmove(win, 0, 0);
+    werase(win);
     if (attr & A_ALTCHARSET) {
        const char *s;
        chtype ch;
 
        for (s = attr_test_string; *s != '\0'; ++s) {
            ch = UChar(*s);
-           addch(ch | attr);
+           (void) waddch(win, ch | attr);
        }
     } else {
-       (void) attrset(attr);
-       addstr(attr_test_string);
-       attroff(attr);
+       (void) wattrset(win, AttrArg(attr, 0));
+       (void) waddstr(win, attr_test_string);
+       (void) wattroff(win, (int) attr);
     }
     if (skip)
        printw("%*s", skip, " ");
-    printw("|");
+    MvPrintw(row, COL_ATTRSTRING + LEN_ATTRSTRING, "|");
     if (test != A_NORMAL) {
        if (!(termattrs() & test)) {
            printw(" (N/A)");
@@ -1570,10 +1600,18 @@ attr_test(void)
     NCURSES_COLOR_T tx = -1;
     int ac = 0;
     unsigned j, k;
+    WINDOW *my_wins[SIZEOF(attrs_to_test)];
     ATTR_TBL my_list[SIZEOF(attrs_to_test)];
     unsigned my_size = init_attr_list(my_list, termattrs());
 
     if (my_size > 1) {
+       for (j = 0; j < my_size; ++j) {
+           my_wins[j] = subwin(stdscr,
+                               1, LEN_ATTRSTRING,
+                               2 + (int) (2 * j), COL_ATTRSTRING);
+           scrollok(my_wins[j], FALSE);
+       }
+
        if (skip < 0)
            skip = 0;
 
@@ -1602,6 +1640,7 @@ attr_test(void)
                        beep();
                    } else {
                        extras |= (chtype) COLOR_PAIR(pair);
+                       normal &= ~A_COLOR;
                    }
                }
            }
@@ -1614,7 +1653,8 @@ attr_test(void)
 
            for (j = 0; j < my_size; ++j) {
                bool arrow = (j == k);
-               row = show_attr(row, n, arrow,
+               row = show_attr(my_wins[j], row, n, arrow,
+                               normal |
                                extras |
                                my_list[j].attr |
                                my_list[k].attr,
@@ -1640,36 +1680,81 @@ attr_test(void)
 }
 
 #if USE_WIDEC_SUPPORT
+static bool use_fullwidth;
 static wchar_t wide_attr_test_string[MAX_ATTRSTRING + 1];
 
+#define FULL_LO 0xff00
+#define FULL_HI 0xff5e
+#define HALF_LO 0x20
+
+#define isFullWidth(ch)   ((int)(ch) >= FULL_LO && (int)(ch) <= FULL_HI)
+#define ToNormalWidth(ch) (wchar_t) (((int)(ch) - FULL_LO) + HALF_LO)
+#define ToFullWidth(ch)   (wchar_t) (((int)(ch) - HALF_LO) + FULL_LO)
+
+/*
+ * Returns an ASCII code in [32..126]
+ */
+static wchar_t
+normal_wchar(int ch)
+{
+    wchar_t result = (wchar_t) ch;
+    if (isFullWidth(ch))
+       result = ToNormalWidth(ch);
+    return result;
+}
+
+/*
+ * Returns either an ASCII code in in [32..126] or full-width in
+ * [0xff00..0xff5e], according to use_fullwidth setting.
+ */
+static wchar_t
+target_wchar(int ch)
+{
+    wchar_t result = (wchar_t) ch;
+    if (use_fullwidth) {
+       if (!isFullWidth(ch))
+           result = ToFullWidth(ch);
+    } else {
+       if (isFullWidth(ch))
+           result = ToNormalWidth(ch);
+    }
+    return result;
+}
+
 static void
 wide_adjust_attr_string(int adjust)
 {
-    int first = ((int) UChar(wide_attr_test_string[0])) + adjust;
-    int last = first + LEN_ATTRSTRING;
+    wchar_t save = wide_attr_test_string[0];
+    int first = ((int) normal_wchar(save)) + adjust;
+    int j, k;
 
-    if (first >= ' ' && last <= '~') { /* 32..126 */
-       int j, k;
-       for (j = 0, k = first; j < MAX_ATTRSTRING && k <= last; ++j, ++k) {
-           wide_attr_test_string[j] = k;
+    if (first >= ATTRSTRING_1ST) {
+       for (j = 0, k = first; j < MAX_ATTRSTRING; ++j, ++k) {
+           if (k > ATTRSTRING_END)
+               break;
+           wide_attr_test_string[j] = target_wchar(k);
            if (((k + 1 - first) % 5) == 0) {
                if (++j >= MAX_ATTRSTRING)
                    break;
                wide_attr_test_string[j] = ' ';
            }
        }
-       while (j < MAX_ATTRSTRING)
-           wide_attr_test_string[j++] = ' ';
-       wide_attr_test_string[j] = '\0';
-    } else {
-       beep();
+       if ((LEN_ATTRSTRING - j) > 5) {
+           wide_attr_test_string[0] = save;
+           wide_adjust_attr_string(adjust - 1);
+       } else {
+           while (j < MAX_ATTRSTRING)
+               wide_attr_test_string[j++] = ' ';
+           wide_attr_test_string[j] = '\0';
+       }
     }
 }
 
 static void
 wide_init_attr_string(void)
 {
-    wide_attr_test_string[0] = 'a';
+    use_fullwidth = FALSE;
+    wide_attr_test_string[0] = (wchar_t) default_attr_string();
     wide_adjust_attr_string(0);
 }
 
@@ -1705,7 +1790,8 @@ get_wide_background(void)
 }
 
 static int
-wide_show_attr(int row,
+wide_show_attr(WINDOW *win,
+              int row,
               int skip,
               bool arrow,
               chtype attr,
@@ -1718,7 +1804,7 @@ wide_show_attr(int row,
     if (arrow)
        MvPrintw(row, 5, "-->");
     MvPrintw(row, 8, "%s mode:", name);
-    MvPrintw(row, 24, "|");
+    MvPrintw(row, COL_ATTRSTRING - 1, "|");
     if (skip)
        printw("%*s", skip, " ");
 
@@ -1727,6 +1813,8 @@ wide_show_attr(int row,
      * character at a time (to pass its rendition directly), and use the
      * string operation for the other attributes.
      */
+    wmove(win, 0, 0);
+    werase(win);
     if (attr & WA_ALTCHARSET) {
        const wchar_t *s;
        cchar_t ch;
@@ -1736,20 +1824,20 @@ wide_show_attr(int row,
            fill[0] = *s;
            fill[1] = L'\0';
            setcchar(&ch, fill, attr, pair, 0);
-           add_wch(&ch);
+           (void) wadd_wch(win, &ch);
        }
     } else {
        attr_t old_attr = 0;
        NCURSES_PAIRS_T old_pair = 0;
 
-       (void) (attr_get) (&old_attr, &old_pair, 0);
-       (void) attr_set(attr, pair, 0);
-       addwstr(wide_attr_test_string);
-       (void) attr_set(old_attr, old_pair, 0);
+       (void) (wattr_get) (win, &old_attr, &old_pair, 0);
+       (void) wattr_set(win, attr, pair, 0);
+       (void) waddwstr(win, wide_attr_test_string);
+       (void) wattr_set(win, old_attr, old_pair, 0);
     }
     if (skip)
        printw("%*s", skip, " ");
-    printw("|");
+    MvPrintw(row, COL_ATTRSTRING + LEN_ATTRSTRING, "|");
     if (test != A_NORMAL) {
        if (!(term_attrs() & test)) {
            printw(" (N/A)");
@@ -1832,6 +1920,14 @@ wide_attr_getc(int *skip,
                if (*kc >= limit)
                    *kc = 0;
                break;
+           case 'w':
+               use_fullwidth = FALSE;
+               wide_adjust_attr_string(0);
+               break;
+           case 'W':
+               use_fullwidth = TRUE;
+               wide_adjust_attr_string(0);
+               break;
            case '<':
                wide_adjust_attr_string(-1);
                break;
@@ -1862,9 +1958,17 @@ wide_attr_test(void)
     int ac = 0;
     unsigned j, k;
     ATTR_TBL my_list[SIZEOF(attrs_to_test)];
+    WINDOW *my_wins[SIZEOF(attrs_to_test)];
     unsigned my_size = init_attr_list(my_list, term_attrs());
 
     if (my_size > 1) {
+       for (j = 0; j < my_size; ++j) {
+           my_wins[j] = subwin(stdscr,
+                               1, LEN_ATTRSTRING,
+                               2 + (int) (2 * j), COL_ATTRSTRING);
+           scrollok(my_wins[j], FALSE);
+       }
+
        if (skip < 0)
            skip = 0;
 
@@ -1900,7 +2004,7 @@ wide_attr_test(void)
            MvAddStr(0, 20, "Character attribute test display");
 
            for (j = 0; j < my_size; ++j) {
-               row = wide_show_attr(row, n, j == k,
+               row = wide_show_attr(my_wins[j], row, n, (j == k),
                                     ((attr_t) ac |
                                      my_list[j].attr |
                                      my_list[k].attr),
@@ -1998,6 +2102,10 @@ color_legend(WINDOW *helpwin, bool wide)
              "  a/A     toggle altcharset off/on");
     MvWPrintw(helpwin, row++, col,
              "  b/B     toggle bold off/on");
+    if (has_colors()) {
+       MvWPrintw(helpwin, row++, col,
+                 "  c/C     cycle used-colors through 8,16,...,COLORS");
+    }
     MvWPrintw(helpwin, row++, col,
              "  n/N     toggle text/number on/off");
     MvWPrintw(helpwin, row++, col,
@@ -2018,6 +2126,35 @@ color_legend(WINDOW *helpwin, bool wide)
 
 #define set_color_test(name, value) if (name != value) { name = value; base_row = 0; }
 
+static int
+color_cycle(int current, int step)
+{
+    int result = current;
+    if (step < 0) {
+       if (current <= 8) {
+           result = COLORS;
+       } else {
+           result = 8;
+           if ((result * 2) > COLORS) {
+               result = COLORS;
+           } else {
+               while ((result * 2) < current) {
+                   result *= 2;
+               }
+           }
+       }
+    } else {
+       if (current >= COLORS) {
+           result = 8;
+       } else {
+           result *= 2;
+       }
+       if (result > COLORS)
+           result = COLORS;
+    }
+    return result;
+}
+
 /* generate a color test pattern */
 static void
 color_test(void)
@@ -2027,7 +2164,8 @@ color_test(void)
     int base_row = 0;
     int grid_top = top + 3;
     int page_size = (LINES - grid_top);
-    int pairs_max = PAIR_NUMBER(A_COLOR) + 1;
+    int pairs_max;
+    int colors_max = COLORS;
     int row_limit;
     int per_row;
     char numbered[80];
@@ -2040,23 +2178,24 @@ color_test(void)
     bool opt_wide = FALSE;
     WINDOW *helpwin;
 
-    if (COLORS * COLORS == COLOR_PAIRS) {
-       int limit = (COLORS - min_colors) * (COLORS - min_colors);
-       if (pairs_max > limit)
-           pairs_max = limit;
-    } else {
-       if (pairs_max > COLOR_PAIRS)
-           pairs_max = COLOR_PAIRS;
-    }
-
     while (!done) {
        int shown = 0;
 
+       pairs_max = PAIR_NUMBER(A_COLOR) + 1;
+       if (colors_max * colors_max <= COLOR_PAIRS) {
+           int limit = (colors_max - min_colors) * (colors_max - min_colors);
+           if (pairs_max > limit)
+               pairs_max = limit;
+       } else {
+           if (pairs_max > COLOR_PAIRS)
+               pairs_max = COLOR_PAIRS;
+       }
+
        /* this assumes an 80-column line */
        if (opt_wide) {
            width = 4;
            hello = "Test";
-           per_row = (COLORS > 8) ? 16 : 8;
+           per_row = (colors_max > 8) ? 16 : 8;
        } else {
            width = 8;
            hello = "Hello";
@@ -2067,9 +2206,12 @@ color_test(void)
        row_limit = (pairs_max + per_row - 1) / per_row;
 
        move(0, 0);
-       (void) printw("There are %d color pairs and %d colors%s\n",
-                     pairs_max, COLORS,
-                     min_colors ? " besides 'default'" : "");
+       (void) printw("There are %d color pairs and %d colors",
+                     pairs_max, COLORS);
+       if (colors_max != COLORS)
+           (void) printw(" (using %d colors)", colors_max);
+       if (min_colors)
+           (void) addstr(" besides 'default'");
 
        clrtobot();
        MvPrintw(top + 1, 0,
@@ -2088,20 +2230,20 @@ color_test(void)
            int col = (i % per_row + 1) * width;
            NCURSES_PAIRS_T pair = i;
 
-#define InxToFG(i) (NCURSES_COLOR_T) ((i % (COLORS - min_colors)) + min_colors)
-#define InxToBG(i) (NCURSES_COLOR_T) ((i / (COLORS - min_colors)) + min_colors)
+#define InxToFG(i) (NCURSES_COLOR_T) ((i % (colors_max - min_colors)) + min_colors)
+#define InxToBG(i) (NCURSES_COLOR_T) ((i / (colors_max - min_colors)) + min_colors)
            if (row >= 0 && move(row, col) != ERR) {
                NCURSES_COLOR_T fg = InxToFG(i);
                NCURSES_COLOR_T bg = InxToBG(i);
 
                init_pair(pair, fg, bg);
-               attron((attr_t) COLOR_PAIR(pair));
+               attron(COLOR_PAIR(pair));
                if (opt_acsc)
-                   attron((attr_t) A_ALTCHARSET);
+                   attron(A_ALTCHARSET);
                if (opt_bold)
-                   attron((attr_t) A_BOLD);
+                   attron(A_BOLD);
                if (opt_revs)
-                   attron((attr_t) A_REVERSE);
+                   attron(A_REVERSE);
 
                if (opt_nums) {
                    sprintf(numbered, "{%02X}", (int) i);
@@ -2132,6 +2274,12 @@ color_test(void)
        case 'B':
            opt_bold = TRUE;
            break;
+       case 'c':
+           colors_max = color_cycle(colors_max, -1);
+           break;
+       case 'C':
+           colors_max = color_cycle(colors_max, 1);
+           break;
        case 'n':
            opt_nums = FALSE;
            break;
@@ -2221,6 +2369,7 @@ wide_color_test(void)
     int grid_top = top + 3;
     int page_size = (LINES - grid_top);
     int pairs_max = (unsigned short) (-1);
+    int colors_max = COLORS;
     int row_limit;
     int per_row;
     char numbered[80];
@@ -2235,23 +2384,24 @@ wide_color_test(void)
     wchar_t buffer[80];
     WINDOW *helpwin;
 
-    if (COLORS * COLORS == COLOR_PAIRS) {
-       int limit = (COLORS - min_colors) * (COLORS - min_colors);
-       if (pairs_max > limit)
-           pairs_max = limit;
-    } else {
-       if (pairs_max > COLOR_PAIRS)
-           pairs_max = COLOR_PAIRS;
-    }
-
     while (!done) {
        int shown = 0;
 
+       pairs_max = (unsigned short) (-1);
+       if (colors_max * colors_max <= COLOR_PAIRS) {
+           int limit = (colors_max - min_colors) * (colors_max - min_colors);
+           if (pairs_max > limit)
+               pairs_max = limit;
+       } else {
+           if (pairs_max > COLOR_PAIRS)
+               pairs_max = COLOR_PAIRS;
+       }
+
        /* this assumes an 80-column line */
        if (opt_wide) {
            width = 4;
            hello = "Test";
-           per_row = (COLORS > 8) ? 16 : 8;
+           per_row = (colors_max > 8) ? 16 : 8;
        } else {
            width = 8;
            hello = "Hello";
@@ -2270,9 +2420,12 @@ wide_color_test(void)
        row_limit = (pairs_max + per_row - 1) / per_row;
 
        move(0, 0);
-       (void) printw("There are %d color pairs and %d colors%s\n",
-                     pairs_max, COLORS,
-                     min_colors ? " besides 'default'" : "");
+       (void) printw("There are %d color pairs and %d colors",
+                     pairs_max, COLORS);
+       if (colors_max != COLORS)
+           (void) printw(" (using %d colors)", colors_max);
+       if (min_colors)
+           (void) addstr(" besides 'default'");
 
        clrtobot();
        MvPrintw(top + 1, 0,
@@ -2295,11 +2448,11 @@ wide_color_test(void)
                init_pair(pair, InxToFG(i), InxToBG(i));
                (void) color_set(pair, NULL);
                if (opt_acsc)
-                   attr_on((attr_t) A_ALTCHARSET, NULL);
+                   attr_on(A_ALTCHARSET, NULL);
                if (opt_bold)
-                   attr_on((attr_t) A_BOLD, NULL);
+                   attr_on(A_BOLD, NULL);
                if (opt_revs)
-                   attr_on((attr_t) A_REVERSE, NULL);
+                   attr_on(A_REVERSE, NULL);
 
                if (opt_nums) {
                    sprintf(numbered, "{%02X}", i);
@@ -2334,6 +2487,12 @@ wide_color_test(void)
        case 'B':
            opt_bold = TRUE;
            break;
+       case 'c':
+           colors_max = color_cycle(colors_max, -1);
+           break;
+       case 'C':
+           colors_max = color_cycle(colors_max, 1);
+           break;
        case 'n':
            opt_nums = FALSE;
            break;
@@ -2494,7 +2653,7 @@ color_edit(void)
                     (i == current ? '>' : ' '),
                     (i < (int) SIZEOF(the_color_names)
                      ? the_color_names[i] : numeric));
-           (void) attrset((attr_t) COLOR_PAIR(i));
+           (void) attrset(AttrArg(COLOR_PAIR(i), 0));
            addstr("        ");
            (void) attrset(A_NORMAL);
 
@@ -3452,7 +3611,7 @@ show_paged_widechars(int base,
     MvPrintw(0, 20, "Display of Character Codes %#x to %#x", first, last);
     attroff(A_BOLD);
 
-    for (code = first; (int) code <= last; code++) {
+    for (code = (wchar_t) first; (int) code <= last; code++) {
        int row = (2 + ((int) code - first) / per_line);
        int col = 5 * ((int) code % per_line);
        int count;
@@ -3485,7 +3644,7 @@ show_upper_widechars(int first, int repeat, int space, attr_t attr, NCURSES_PAIR
     MvPrintw(0, 20, "Display of Character Codes %d to %d", first, last);
     attroff(A_BOLD);
 
-    for (code = first; (int) code <= last; code++) {
+    for (code = (wchar_t) first; (int) code <= last; code++) {
        int row = 2 + ((code - first) % 16);
        int col = ((code - first) / 16) * COLS / 2;
        wchar_t codes[10];
@@ -4697,13 +4856,13 @@ pflush(void)
        fill_panel(win)
 --------------------------------------------------------------------------*/
 static void
-init_panel(void)
+init_panel(WINDOW *win)
 {
     register int y, x;
 
     for (y = 0; y < LINES - 1; y++) {
        for (x = 0; x < COLS; x++)
-           wprintw(stdscr, "%d", (y + x) % 10);
+           wprintw(win, "%d", (y + x) % 10);
     }
 }
 
@@ -4729,7 +4888,7 @@ fill_panel(PANEL * pan)
 
 #if USE_WIDEC_SUPPORT
 static void
-init_wide_panel(void)
+init_wide_panel(WINDOW *win)
 {
     int digit;
     cchar_t temp[10];
@@ -4741,7 +4900,7 @@ init_wide_panel(void)
        int y, x;
        getyx(stdscr, y, x);
        digit = (y + x / 2) % 10;
-    } while (add_wch(&temp[digit]) != ERR);
+    } while (wadd_wch(win, &temp[digit]) != ERR);
 }
 
 static void
@@ -4795,7 +4954,7 @@ canned_panel(PANEL * px[MAX_PANELS + 1], NCURSES_CONST char *cmd)
 }
 
 static void
-demo_panels(void (*InitPanel) (void), void (*FillPanel) (PANEL *))
+demo_panels(void (*InitPanel) (WINDOW *), void (*FillPanel) (PANEL *))
 {
     int count;
     int itmp;
@@ -4804,7 +4963,7 @@ demo_panels(void (*InitPanel) (void), void (*FillPanel) (PANEL *))
     scrollok(stdscr, FALSE);   /* we don't want stdscr to scroll! */
     refresh();
 
-    InitPanel();
+    InitPanel(stdscr);
     for (count = 0; count < 5; count++) {
        px[1] = mkpanel(COLOR_RED,
                        LINES / 2 - 2,
@@ -4984,10 +5143,15 @@ panner_v_cleanup(int from_y, int from_x, int to_y)
 }
 
 static void
-fill_pad(WINDOW *panpad, bool pan_lines)
+fill_pad(WINDOW *panpad, bool pan_lines, bool colored)
 {
     int y, x;
     unsigned gridcount = 0;
+    chtype fill = 0;
+#ifdef A_COLOR
+    if (colored)
+       fill = (chtype) COLOR_PAIR(1);
+#endif
 
     wmove(panpad, 0, 0);
     for (y = 0; y < getmaxy(panpad); y++) {
@@ -5001,7 +5165,7 @@ fill_pad(WINDOW *panpad, bool pan_lines)
                    waddch(panpad, pan_lines ? ACS_LTEE : '+');
                else
                    waddch(panpad, (chtype) ((pan_lines ? 'a' : 'A') +
-                                            (int) (gridcount++ % 26)));
+                                            (int) (gridcount++ % 26)) | fill);
            } else if (y % GRIDSIZE == 0)
                waddch(panpad, pan_lines ? ACS_HLINE : '-');
            else if (x % GRIDSIZE == 0)
@@ -5015,7 +5179,8 @@ fill_pad(WINDOW *panpad, bool pan_lines)
 static void
 panner(WINDOW *pad,
        int top_x, int top_y, int porty, int portx,
-       int (*pgetc) (WINDOW *))
+       int (*pgetc) (WINDOW *),
+       bool colored)
 {
 #if HAVE_GETTIMEOFDAY
     struct timeval before, after;
@@ -5062,7 +5227,7 @@ panner(WINDOW *pad,
            break;
        case 'a':
            pan_lines = !pan_lines;
-           fill_pad(pad, pan_lines);
+           fill_pad(pad, pan_lines, colored);
            pending_pan = FALSE;
            break;
 
@@ -5349,7 +5514,7 @@ padgetch(WINDOW *win)
 #define PAD_WIDE 200
 
 static void
-demo_pad(void)
+demo_pad(bool colored)
 /* Demonstrate pads. */
 {
     WINDOW *panpad = newpad(PAD_HIGH, PAD_WIDE);
@@ -5359,7 +5524,14 @@ demo_pad(void)
        return;
     }
 
-    fill_pad(panpad, FALSE);
+#ifdef A_COLOR
+    if (colored && use_colors) {
+       init_pair(1, COLOR_BLACK, COLOR_GREEN);
+       init_pair(2, COLOR_CYAN, COLOR_BLUE);
+       wbkgd(panpad, (chtype) (COLOR_PAIR(2) | ' '));
+    }
+#endif
+    fill_pad(panpad, FALSE, colored);
 
     panner_legend(LINES - 4);
     panner_legend(LINES - 3);
@@ -5372,7 +5544,7 @@ demo_pad(void)
      * We'll still be able to widen it during a test, since that's required
      * for testing boundaries.
      */
-    panner(panpad, 2, 2, LINES - 5, COLS - 15, padgetch);
+    panner(panpad, 2, 2, LINES - 5, COLS - 15, padgetch, colored);
 
     delwin(panpad);
     endwin();
@@ -6250,11 +6422,11 @@ overlap_test_1_attr(WINDOW *win, int flavor, int col)
        break;
     case 2:
        init_pair(cpair, COLOR_BLUE, COLOR_WHITE);
-       (void) wattrset(win, (int) (COLOR_PAIR(cpair) | A_NORMAL));
+       (void) wattrset(win, AttrArg(COLOR_PAIR(cpair), A_NORMAL));
        break;
     case 3:
        init_pair(cpair, COLOR_WHITE, COLOR_BLUE);
-       (void) wattrset(win, (int) (COLOR_PAIR(cpair) | A_BOLD));
+       (void) wattrset(win, AttrArg(COLOR_PAIR(cpair), A_BOLD));
        break;
     }
 }
@@ -6636,7 +6808,11 @@ do_single_test(const char c)
 #endif
 
     case 'p':
-       demo_pad();
+       demo_pad(FALSE);
+       break;
+
+    case 'P':
+       demo_pad(TRUE);
        break;
 
 #if USE_LIBFORM
@@ -6677,7 +6853,9 @@ usage(void)
        ,"  -a f,b   set default-colors (assumed white-on-black)"
        ,"  -d       use default-colors if terminal supports them"
 #endif
+#if HAVE_USE_ENV
        ,"  -E       call use_env(FALSE) to ignore $LINES and $COLUMNS"
+#endif
 #if USE_SOFTKEYS
        ,"  -e fmt   specify format for soft-keys test (e)"
 #endif
@@ -6790,6 +6968,7 @@ main_menu(bool top)
 #endif
 #endif
        (void) puts("p = exercise pad features");
+       (void) puts("P = exercise pad features, using color");
        (void) puts("q = quit");
 #if USE_LIBFORM
        (void) puts("r = exercise forms code");
@@ -6897,9 +7076,11 @@ main(int argc, char *argv[])
            default_colors = TRUE;
            break;
 #endif
+#if HAVE_USE_ENV
        case 'E':
            use_env(FALSE);
            break;
+#endif
        case 'e':
            my_e_param = atoi(optarg);
 #ifdef NCURSES_VERSION