Method code for $root.valid_setting_attr()

[Turn off line numbering]

---

  1: arg name, value;
  2: 
  3: if (!(name in ['get, 'set, 'parse, 'clear, 'format, 'access]))
  4:     throw(~setattr, "Invalid setting attribute '" + name);
  5: if (!value)
  6:     return 0;
  7: else if (type(value) != 'list)
  8:     throw(~setattr, "Setting attribute must be a list");
  9: else if (type(value[1]) != 'symbol)
 10:     throw(~setattr, "Setting attribute[1] is not a symbol");
 11: return 1;

---

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