/* NetHack 3.7	winval.c	$NHDT-Date: 1611697183 2021/01/26 21:39:43 $  $NHDT-Branch: NetHack-3.7 $:$NHDT-Revision: 1.11 $ */
/* Copyright (c) Dean Luick, 1992                                 */
/* NetHack may be freely redistributed.  See license for details. */

/*
 * Routines that define a name-value label widget pair that fit inside a
 * form widget.
 */
/* #include <stdio.h> */

#ifndef SYSV
#define PRESERVE_NO_SYSV /* X11 include files may define SYSV */
#endif

#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Xaw/Label.h>
#include <X11/Xaw/Form.h>
#include <X11/Xaw/Cardinals.h>

#ifdef PRESERVE_NO_SYSV
#ifdef SYSV
#undef SYSV
#endif
#undef PRESERVE_NO_SYSV
#endif

#include "hack.h" /* #define for const for non __STDC__ compilers */
#include "winX.h"

#define WNAME "name"
#define WVALUE "value"

Widget
create_value(Widget parent, const char *name_value)
{
    Widget form, name;
    Arg args[8];
    Cardinal num_args;

    num_args = 0;
    XtSetArg(args[num_args], XtNborderWidth, 0);
    num_args++;
    XtSetArg(args[num_args], nhStr(XtNdefaultDistance), 0);
    num_args++;
    form = XtCreateManagedWidget(name_value, formWidgetClass, parent, args,
                                 num_args);

    num_args = 0;
    XtSetArg(args[num_args], XtNjustify, XtJustifyRight);
    num_args++;
    XtSetArg(args[num_args], XtNborderWidth, 0);
    num_args++;
    XtSetArg(args[num_args], XtNlabel, name_value);
    num_args++;
    XtSetArg(args[num_args], XtNinternalHeight, 0);
    num_args++;
    name =
        XtCreateManagedWidget(WNAME, labelWidgetClass, form, args, num_args);

    num_args = 0;
    XtSetArg(args[num_args], XtNjustify, XtJustifyRight);
    num_args++;
    XtSetArg(args[num_args], XtNborderWidth, 0);
    num_args++;
    XtSetArg(args[num_args], nhStr(XtNfromHoriz), name);
    num_args++;
    XtSetArg(args[num_args], XtNinternalHeight, 0);
    num_args++;
    (void) XtCreateManagedWidget(WVALUE, labelWidgetClass, form, args,
                                 num_args);
    return form;
}

void
set_name(Widget w, const char *new_label)
{
    Arg args[1];
    Widget name;

    name = XtNameToWidget(w, WNAME);
    XtSetArg(args[0], XtNlabel, new_label);
    XtSetValues(name, args, ONE);
}

void
set_name_width(Widget w, int new_width)
{
    Arg args[1];
    Widget name;

    name = XtNameToWidget(w, WNAME);
    XtSetArg(args[0], XtNwidth, new_width);
    XtSetValues(name, args, ONE);
}

int
get_name_width(Widget w)
{
    Arg args[1];
    Dimension width;
    Widget name;

    name = XtNameToWidget(w, WNAME);
    XtSetArg(args[0], XtNwidth, &width);
    XtGetValues(name, args, ONE);
    return (int) width;
}

Widget
get_value_widget(Widget w)
{
    return XtNameToWidget(w, WVALUE);
}

void
set_value(Widget w, const char *new_value)
{
    Arg args[1];
    Widget val;

    val = get_value_widget(w);
    XtSetArg(args[0], XtNlabel, new_value);
    XtSetValues(val, args, ONE);
}

void
set_value_width(Widget w, int new_width)
{
    Arg args[1];
    Widget val;

    val = get_value_widget(w);
    XtSetArg(args[0], XtNwidth, new_width);
    XtSetValues(val, args, ONE);
}

int
get_value_width(Widget w)
{
    Arg args[1];
    Widget val;
    Dimension width;

    val = get_value_widget(w);
    XtSetArg(args[0], XtNwidth, &width);
    XtGetValues(val, args, ONE);
    return (int) width;
}

/* Swap foreground and background colors (this is the best I can do with */
/* a label widget, unless I can get some init hook in there).            */
void
hilight_value(Widget w)
{
    swap_fg_bg(get_value_widget(w));
}

/* Swap the foreground and background colors of the given widget */
void
swap_fg_bg(Widget w)
{
    Arg args[2];
    Pixel fg, bg;

    XtSetArg(args[0], XtNforeground, &fg);
    XtSetArg(args[1], XtNbackground, &bg);
    XtGetValues(w, args, TWO);

    XtSetArg(args[0], XtNforeground, bg);
    XtSetArg(args[1], XtNbackground, fg);
    XtSetValues(w, args, TWO);
}