#include "ReadOnlySetting.hh"

#include "MSXException.hh"

namespace openmsx {

ReadOnlySetting::ReadOnlySetting(

		CommandController& commandController_,

		std::string_view name_, static_string_view description_,

		const TclObject& initialValue)

	: Setting(commandController_, name_, description_, initialValue,

	          Setting::Save::NO_AND_DONT_TRANSFER)

	, roValue(initialValue)

{

	setChecker([this](const TclObject& newValue) {

		if (newValue != roValue) {

			throw MSXException("Read-only setting");

		}

	});

	init();

}

void ReadOnlySetting::setReadOnlyValue(const TclObject& newValue)

{

	roValue = newValue;

	setValue(newValue);

}

std::string_view ReadOnlySetting::getTypeString() const

{

	return "read-only";

}

} // namespace openmsx