lyx_mirror/src/frontends/xforms/checkedwidgets.C

/**
 * \file checkedwidgets.C
 * This file is part of LyX, the document processor.
 * Licence details can be found in the file COPYING.
 *
 * \author Angus Leeming
 *
 * Full author contact details are available in file CREDITS
 */

#include <config.h>


#include "checkedwidgets.h"
#include "xforms_helpers.h"
#include "lyxlength.h"
#include "lyxgluelength.h"
#include "support/LAssert.h"
#include "support/lstrings.h"
#include "LString.h"

#include "lyx_forms.h"


void addCheckedLyXLength(BCView & bcview,
			 FL_OBJECT * input, FL_OBJECT * label)
{
	bcview.addCheckedWidget(new CheckedLyXLength(input, label));
}


void addCheckedGlueLength(BCView & bcview,
			  FL_OBJECT * input, FL_OBJECT * label)
{
	bcview.addCheckedWidget(new CheckedGlueLength(input, label));
}


namespace {

void setWidget(bool valid, FL_OBJECT * input, FL_OBJECT * label)
{
	// define color to mark invalid input
	FL_COLOR const alert_col = FL_RED;

	FL_COLOR const lcol = valid ? FL_COLOR(FL_LCOL) : alert_col;
	if (label->lcol != lcol && isActive(label)) {
		fl_set_object_lcol(label, lcol);
	}
	if (input->lcol != lcol && isActive(input)) {
		fl_set_object_lcol(input, lcol);
	}

	// Reflect the validity of the data in the background color of the
	// input widget only when this widget is not being edited.
	FL_COLOR const icol1 = valid ? FL_COLOR(FL_COL1) : alert_col;
	if (input->col1 != icol1) {
		fl_set_object_color(input, icol1, FL_MCOL);
	}
}

} // namespace anon


CheckedLyXLength::CheckedLyXLength(FL_OBJECT * input, FL_OBJECT * label)
	: input_(input), label_(label ? label : input)
{
	lyx::Assert(input && input->objclass == FL_INPUT);
}


bool CheckedLyXLength::check() const
{
	string const str = getString(input_);
	bool const valid = !isActive(input_) || str.empty()
		|| isStrDbl(str) || isValidLength(str);

	// set the color of label and input widget
	setWidget(valid, input_, label_);

	return valid;
}


CheckedGlueLength::CheckedGlueLength(FL_OBJECT * input, FL_OBJECT * label)
	: input_(input), label_(label ? label : input)
{
	lyx::Assert(input && input->objclass == FL_INPUT);
}


bool CheckedGlueLength::check() const
{
	string const str = getString(input_);
	bool const valid = !isActive(input_) || str.empty()
		|| isStrDbl(str) || isValidGlueLength(str);

	// set the color of label and input widget
	setWidget(valid, input_, label_);

	return valid;
}