---

Class Relations

• class: ::xo::role::Role

::xo::role::Role create ::xo::role::creator

Methods (to be applied on the object)

• get_members (scripted)

  set creator_id [xo::dc get_value get_owner [subst {
    select o.creation_user from acs_objects o
    where object_id = :object_id
    and   [:except_clause -lhs o.creation_user $except]
  }]]
  return [list [list [::xo::get_user_name $creator_id] $creator_id]]

• get_object_id (scripted)

  return [$object item_id]

• is_member (scripted)

  $object instvar creation_user
  return [expr {$creation_user == $user_id}]

---