150276Speter/****************************************************************************
2262685Sdelphij * Copyright (c) 1998-2009,2014 Free Software Foundation, Inc.              *
350276Speter *                                                                          *
450276Speter * Permission is hereby granted, free of charge, to any person obtaining a  *
550276Speter * copy of this software and associated documentation files (the            *
650276Speter * "Software"), to deal in the Software without restriction, including      *
750276Speter * without limitation the rights to use, copy, modify, merge, publish,      *
850276Speter * distribute, distribute with modifications, sublicense, and/or sell       *
950276Speter * copies of the Software, and to permit persons to whom the Software is    *
1050276Speter * furnished to do so, subject to the following conditions:                 *
1150276Speter *                                                                          *
1250276Speter * The above copyright notice and this permission notice shall be included  *
1350276Speter * in all copies or substantial portions of the Software.                   *
1450276Speter *                                                                          *
1550276Speter * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
1650276Speter * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
1750276Speter * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
1850276Speter * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
1950276Speter * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
2050276Speter * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
2150276Speter * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
2250276Speter *                                                                          *
2350276Speter * Except as contained in this notice, the name(s) of the above copyright   *
2450276Speter * holders shall not be used in advertising or otherwise to promote the     *
2550276Speter * sale, use or other dealings in this Software without prior written       *
2650276Speter * authorization.                                                           *
2750276Speter ****************************************************************************/
2850276Speter
2950276Speter/****************************************************************************
30262629Sdelphij *  Author:  Juergen Pfeifer, 1998,2009                                     *
31262629Sdelphij *     and:  Thomas E. Dickey 2005-on                                       *
3250276Speter ****************************************************************************/
3350276Speter
3450276Speter/*
3550276Speter *	lib_slkcolor.c
36166124Srafan *	Soft key routines.
37166124Srafan *	Set the label's color
3850276Speter */
3950276Speter#include <curses.priv.h>
4050276Speter
41262685SdelphijMODULE_ID("$Id: lib_slkcolor.c,v 1.17 2014/02/01 22:10:42 tom Exp $")
4250276Speter
4376726SpeterNCURSES_EXPORT(int)
44262685SdelphijNCURSES_SP_NAME(slk_color) (NCURSES_SP_DCLx NCURSES_PAIRS_T color_pair_number)
4550276Speter{
46262629Sdelphij    int code = ERR;
4750276Speter
48262685Sdelphij    T((T_CALLED("slk_color(%p,%d)"), (void *) SP_PARM, (int) color_pair_number));
49262629Sdelphij
50262629Sdelphij    if (SP_PARM != 0
51262629Sdelphij	&& SP_PARM->_slk != 0
52262629Sdelphij	&& color_pair_number >= 0
53262629Sdelphij	&& color_pair_number < SP_PARM->_pair_limit) {
54262629Sdelphij	TR(TRACE_ATTRS, ("... current is %s", _tracech_t(CHREF(SP_PARM->_slk->attr))));
55262629Sdelphij	SetPair(SP_PARM->_slk->attr, color_pair_number);
56262629Sdelphij	TR(TRACE_ATTRS, ("new attribute is %s", _tracech_t(CHREF(SP_PARM->_slk->attr))));
57262629Sdelphij	code = OK;
58262629Sdelphij    }
59262629Sdelphij    returnCode(code);
6050276Speter}
61262629Sdelphij
62262629Sdelphij#if NCURSES_SP_FUNCS
63262629SdelphijNCURSES_EXPORT(int)
64262685Sdelphijslk_color(NCURSES_PAIRS_T color_pair_number)
65262629Sdelphij{
66262629Sdelphij    return NCURSES_SP_NAME(slk_color) (CURRENT_SCREEN, color_pair_number);
67262629Sdelphij}
68262629Sdelphij#endif
69