let set_mode state_set mode values_list =
  set_mode_internal state_set mode
    (State_attribute.mask_of_values values_list)