Method code for $root.valid_setting_attr()

[Turn on line numbering]

---

arg name, value;

if (!(name in ['get, 'set, 'parse, 'clear, 'format, 'access]))
    throw(~setattr, "Invalid setting attribute '" + name);
if (!value)
    return 0;
else if (type(value) != 'list)
    throw(~setattr, "Setting attribute must be a list");
else if (type(value[1]) != 'symbol)
    throw(~setattr, "Setting attribute[1] is not a symbol");
return 1;

---

["// Created as a part of ColdCore, see: @help Credit"]