atspi 0.8.0

data/lib/atspi/accessible/descendants.rb

@@ -0,0 +1,278 @@
+Libatspi.load_class :MatchRule
+
+module ATSPI
+  # A collection of all descendants in the tree below the accessible it belongs
+  # to. It can be filtered by state, attribute, role, interface and name using
+  # {#where}. The number of descendants to return can be set by {#limit_to}.
+  # Recursive search of the tree can be turned on and off by {#recursive}.
+  #
+  # All methods can be chained together:
+  #
+  #   descendants = ATSPI.applications.first.descendants
+  #   descendants.where(role: :page_tab, state: :selected).recursive(false).limit_to(1)
+  #   # => #<ATSPI::Accessible::Descendants:0x101c51014 @state=all:[:selected] @role=any:[:page_tab] @limit=1 @recursive?=false … >
+  #
+  # To get the actual collection as an array call {#to_a}. Methods not defined
+  # here are automatically delegated to {#to_a}, so instances of this class can
+  # be directly treated like an array.
+  #
+  #   descendants.where(interface: :Action).map{ |d| d.actions.map(&:name) }
+  #   # => [["click"], [], ["click"], [], …]
+  #
+  # In essence, it wraps libatspi's AtspiCollection[https://developer.gnome.org/libatspi/stable/libatspi-atspi-collection.html] and
+  # AtspiMatchRule[https://developer.gnome.org/libatspi/stable/AtspiMatchRule.html]
+  class Accessible::Descendants
+    # @api private
+    def initialize(native)
+      @native = native
+      @filters = {
+        state: StateFilter.new,
+        attributes: AttributeFilter.new,
+        role: RoleFilter.new,
+        interface: InterfaceFilter.new,
+        name: NameFilter.new,
+      }
+      @options = Options.new(nil, inverted?: false, order: :canonical, limit: 0, recursive?: true)
+    end
+
+  # @!group Filter
+    # @note Filtering sometimes felt rocky on libatspi's side during testing.
+    #   See the notes in the following sections for details.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/AtspiMatchRule.html#atspi-match-rule-new atspi_match_rule_new
+    #
+    # @return [Descendants] a copy of this instance with the modified filters.
+    #
+    # @overload where(state:)
+    #   Filters by state(s)
+    #
+    #   @param state [Symbol,Array<Symbol[, mode: :all]>] the states filter.
+    #     States are given as symbol derived from libatspi's {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiStateType AtspiStateType enum}
+    #     by removing the +ATSPI_STATE_+ prefix and making it lowercase.
+    #
+    #     When given an array, the last item can be set to a hash configuring
+    #     the filter mode. The mode has to be one of +:all+, +:any+, +:none+,
+    #     +:empty+. It corresponds to the match type in {https://developer.gnome.org/libatspi/stable/AtspiMatchRule.html#atspi-match-rule-new atspi_match_rule_new} and
+    #     {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCollectionMatchType AtspiCollectionMatchType}, accordingly.
+    #
+    #   @example
+    #     # Selects accessibles in state :selected
+    #     where(state: :selected)
+    #
+    #     # Selects accessibles in both states :selectable *and* :selected
+    #     where(state: [:selectable, :selected])
+    #
+    #     # Selects accessibles in either state :selectable *or* :selected (or both)
+    #     where(state: [:selectable, :selected, mode: :any])
+    #
+    # @overload where(attributes:)
+    #   Filters by attribute(s)
+    #
+    #   @param attributes [Hash<String => String[, mode: :any]>] the attributes
+    #     filter. Attributes are given as a Hash as returned by
+    #     {Accessible#attributes}.
+    #
+    #     The +:mode+ key of the hash can be used to configuring the filter
+    #     mode. The mode has to be one of +:all+, +:any+, +:none+, +:empty+. It
+    #     corresponds to the match type in {https://developer.gnome.org/libatspi/stable/AtspiMatchRule.html#atspi-match-rule-new atspi_match_rule_new} and
+    #     {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCollectionMatchType AtspiCollectionMatchType}, accordingly.
+    #
+    #   @note Filtering attributes in mode +:all+ effectively disables the filter
+    #     and returns all descendants. It does not narrow down the result set as
+    #     one would expect.
+    #
+    #   @example
+    #     # Selects accessibles with value "button" for attribute "tag"
+    #     where(attributes: { "tag" => "button" })
+    #
+    #     # Selects accessibles with value "button" *or* "input" for attribute "tag"
+    #     where(attributes: { "tag" => ["button", "input"] })
+    #
+    #     # Selects accessibles with value "button" for attribute "tag" *or* value "block" for attribute "display"
+    #     where(attributes: { "tag" => "button", "display" => "block" })
+    #
+    # @overload where(role:)
+    #   Filters by role
+    #
+    #   @param role [Symbol,Array<Symbol[, mode: :any]>] the roles filter.
+    #     Roles are given as symbols derived from libatspi's {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiRole AtspiRole enum}
+    #     by removing the +ATSPI_ROLE_+ prefix and making it lowercase.
+    #
+    #     When given an array, the last item can be set to a hash configuring
+    #     the filter mode. The mode has to be one of +:all+, +:any+, +:none+,
+    #     +:empty+. It corresponds to the match type in {https://developer.gnome.org/libatspi/stable/AtspiMatchRule.html#atspi-match-rule-new atspi_match_rule_new} and
+    #     {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCollectionMatchType AtspiCollectionMatchType}, accordingly.
+    #
+    #   @note Setting the mode to a value different from +:any+ for role filters
+    #     effectively disables the filter and returns all descendants. Since an
+    #     accessible has only exactly one role, one would expect that it does return an
+    #     empty set, but it does not.
+    #
+    #   @example
+    #     # Selects accessibles with role :frame
+    #     where(role: :frame)
+    #
+    #     # Selects accessibles with role :page_tab_list *or* :page_tab
+    #     where(role: [:page_tab_list, :page_tab])
+    #
+    # @overload where(interface:)
+    #   Filters by interface(s)
+    #
+    #   @param role [Symbol,Array<Symbol[, mode: :all]>] the role filter.
+    #     Interfaces are given as symbols derived from their name returned by
+    #     {Accessible#interfaces}
+    #
+    #     When given an array, the last item can be set to a hash configuring
+    #     the filter mode. The mode has to be one of +:all+, +:any+, +:none+,
+    #     +:empty+. It corresponds to the match type in {https://developer.gnome.org/libatspi/stable/AtspiMatchRule.html#atspi-match-rule-new atspi_match_rule_new} and
+    #     {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCollectionMatchType AtspiCollectionMatchType}, accordingly.
+    #
+    #   @note Filtering by multiple interfaces and including +:Accessible+ or
+    #     +:Collection+ in mode +:all+ does not work. Instead it always returns
+    #     an empty set.
+    #
+    #   @note Filtering interfaces in mode +:none+ effectively disables the filter
+    #     and returns the entire set of descendants. Since an accessible always
+    #     has at least the accessible interfaces it implements one would expect
+    #     that it does return an empty set, but it does not.
+    #
+    #   @example
+    #     # Selects accessibles implementing Action
+    #     where(interface: :Action)
+    #
+    #     # Selects accessibles implementing Action+ *and* Selection
+    #     where(interface: [:Action, :Selection])
+    #
+    #     # Selects accessibles implementing Action *or* +Selection or both
+    #     where(interface: [:Action, :Selection, mode: :any])
+    #
+    # @overload where(name:)
+    #   Filters by name
+    #
+    #   @param name [String,RegExp] the name filter. When given a string it is
+    #     matched against the entire name from start to end like +/^name$/+.
+    #
+    #   @example
+    #     # Selects accessibles with name exactly "Accessibles Name"
+    #     where(name: "Accessible Name")
+    #
+    #     # Selects accessibles with a name matching /a.{11}y/
+    #     where(name: /a.{11}y/)
+    #
+    # @overload where(filters)
+    #   Combines all or a subset of filters in a single call.
+    #
+    #   @example
+    #     where(name: /a.{11}y/, state: [:selectable, :selected], role: :page_tab)
+    #
+    #   @param filters [Hash]
+    #   @option filters [Symbol, Array] :states
+    #   @option filters [Symbol, Array] :role
+    #   @option filters [String, RegExp] :name
+    #   @option filters [Hash] :attributes
+    #   @option filters [Symbol, Array] :interface
+    def where(filters)
+      dup(filters: @filters.map do |name, filter|
+        extended_filter = filters[name] ? filter.extend(*filters[name]) : filter
+        [name, extended_filter]
+      end.to_h)
+    end
+
+    # Inverts the conditions set by {#where}.
+    #
+    # @note Seems to be not considered by libatspi?!
+    #
+    # @param invert [true, false]
+    #
+    # @return [Descendants] a copy of the current descendants with the modified
+    #   _inverted_ option.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/AtspiMatchRule.html#atspi-match-rule-new invert parameter of atspi_match_rule_new
+    def invert(invert = true)
+      dup(options: @options.invert(invert))
+    end
+  # @!endgroup
+
+  # @!group Options
+    # Sorts the collection of descendants.
+    #
+    # @param order [Symbol] derived from libatspi's {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCollectionSortOrder AtspiCollectionSortOrder enum}
+    #   by removing the prefix +ATSPI_Collection_SORT_ORDER_+ and making it lowercase.
+    #
+    # @return [Descendants] a copy of the current descendants with the modified
+    #   _order_ option.
+    #
+    # @example
+    #   descendants.sort_by(:flow) # => #<ATSPI::Accessible::Descendants:0x101c51014 … >
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-collection.html#atspi-collection-get-matches sortby parameter of atspi_collection_get_matches
+    def sort_by(order)
+      dup(options: @options.order_by(order))
+    end
+
+    # Limits the number of descendants to return.
+    #
+    # @param limit [Integer] A value of +0+ disables the limit.
+    #
+    # @return [Descendants] a copy of the current descendants with the modified
+    #   _limit_ option.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-collection.html#atspi-collection-get-matches count parameter of atspi_collection_get_matches
+    def limit_to(limit)
+      dup(options: @options.limit_to(limit))
+    end
+
+    # Turns recursive search on and off.
+    #
+    # @param recursive [true, false] To limit the descendants to the direct
+    #   children of the accessible only, set +recursive+ to +false+. By setting
+    #   +recursive+ to +true+, all descendants in the tree below the accessible
+    #   the descendants are considered.
+    #
+    # @return [Descendants] a copy of the current descendants with the modified
+    #   _recursive_ option.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-collection.html#atspi-collection-get-matches traverse parameter of atspi_collection_get_matches
+    def recursive(recursive = true)
+      dup(options: @options.recursive(recursive))
+    end
+  # @!endgroup
+
+  # @!group Access
+    # @return [Array<Accessible>] the descendants according to the configured
+    #   filters and options.
+    def to_a
+      match_rule = Libatspi::MatchRule.new(*@filters[:state], *@filters[:attributes],
+        *@filters[:role], *@filters[:interface], @options.inverted?)
+      matches = @native.matches(match_rule, *@options).to_a
+      matches = matches.select{ |native| native.name =~ @filters[:name].match } if @filters[:name].match
+      matches.map{ |native| Accessible.new(native) }
+    end
+
+    # Delegates missing methods to #to_a
+    # @return [Object] whatever Array#__send__(m, *args, &block) returns
+    def method_missing(m, *args, &block)
+      to_a.__send__(m, *args, &block)
+    end
+  # @!endgroup
+
+  # @!group Representations
+    # @return [String] itself as an inspectable string
+    def inspect
+      filter_inspect = @filters.map{ |n,f| "@#{n}=#{f.inspect}" }.join(' ')
+      "#<#{self.class.name}:0x#{'%x14' % __id__} #{filter_inspect} #{@options.inspect}>"
+    end
+  # @!endgroup
+
+    private
+
+    def dup(values)
+      clone = self.class.new(@native)
+      instance_variables.each do |name|
+        value = values[name.to_s.delete('@').to_sym] || instance_variable_get(name)
+        clone.instance_variable_set(name, value)
+      end
+      clone
+    end
+  end
+end

data/lib/atspi/accessible/document.rb

@@ -0,0 +1,26 @@
+class ATSPI::Accessible
+  # Wraps libatspi's AtspiDocument[https://developer.gnome.org/libatspi/stable/libatspi-atspi-document.html]
+  class Document
+    # @api private
+    def initialize(native)
+      @native = native
+    end
+
+    # @return [String] its locale
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-document.html#atspi-document-get-locale atspi_document_get_locale
+    def locale
+      @native.locale
+    end
+
+    # @return [Hash<String => String>] its attributes
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-document.html#atspi-document-get-attributes atspi_document_get_attributes
+    def attributes
+      @native.document_attributes.to_h
+    end
+
+    # @return [String] itself as an inspectable string
+    def inspect
+      "#<#{self.class.name}:0x#{'%x14' % __id__} #{attributes.map{ |k, v| "@#{k}=#{v.inspect}" }.join(' ')}>"
+    end
+  end
+end

data/lib/atspi/accessible/extents.rb

@@ -0,0 +1,129 @@
+class ATSPI::Accessible
+  # Wraps libatspi's AtspiComponent[https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html]
+  module Extents
+  # @!group Attributes & States
+    # Checks if it is extending, that is it has a position and size.
+    # Accessibles implementing the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-component component interface}
+    # are extending.
+    #
+    # @return [true, false]
+    def extends?
+      not @native.component_iface.nil?
+    end
+
+    # @return [Symbol] its layer derived from libatspi's {AtspiComponentLayer enum}[https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiComponentLayer]
+    #   by removing the prefix +ATSPI_LAYER_+ and making it lowercase. +:invalid+
+    #   if it does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-component component interface}.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html#atspi-component-get-layer atspi_component_get_layer
+    def layer
+      if extends?
+        @native.layer
+      else
+        :invalid
+      end
+    end
+
+    # @return [Integer] its mdi_z_order. +-1+ if it does not implement the
+    #   {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-component component interface}.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html#atspi-component-get-mdi-z-order atspi_component_get_mdi_z_order
+    def mdi_z_order
+      if extends?
+        @native.mdi_z_order
+      else
+        -1
+      end
+    end
+  # @!endgroup
+
+  # @!group Actions
+    # Sets the input focus to it.
+    #
+    # @return [true, false] indicating success of the operation. +false+ if it
+    #   does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-component component interface}.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html#atspi-component-grab-focus atspi_component_grab_focus
+    def grab_focus
+      extends? and @native.grab_focus
+    end
+  # @!endgroup
+
+  # @!group Attributes & States
+    # @return [Float] its opacity between +0.0+ (transparent) and +1.0+ (opaque). +0.0+
+    #   if it does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-component component interface}.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html#atspi-component-get-alpha atspi_component_get_alpha
+    def opacity
+      if extends?
+        @native.alpha
+      else
+        0.0
+      end
+    end
+    alias_method :alpha, :opacity
+
+    # Checks if the given point lies within its bounds
+    #
+    # @param x [Integer]
+    # @param y [Integer]
+    # @param relative_to [Symbol] coordinate system derived from
+    #   libatspi's {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCoordType AtspiCoordType enum}
+    #   by removing the prefix +ATSPI_COORD_TYPE+ and making it lowercase
+    #
+    # @return [true, false]
+    #
+    # @example
+    #   accessible.contains?(1243, 323, relative_to: :screen) # => true
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html#atspi-component-contains atspi_component_contains
+    def contains?(x, y, relative_to:)
+      extends? and @native.contains(x, y, relative_to)
+    end
+  # @!endgroup
+
+  # @!group Tree & Traversal
+    # @param x [Integer]
+    # @param y [Integer]
+    # @param relative_to [Symbol] coordinate system derived from
+    #   libatspi's {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCoordType AtspiCoordType enum}
+    #   by removing the prefix +ATSPI_COORD_TYPE+ and making it lowercase
+    #
+    # @return [Accessible, nil] the descendant at the given coordinates. +nil+
+    #   if it does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-component component interface}.
+    #
+    # @example
+    #   accessible.descendant_at(1243, 323, relative_to: :screen) # => #<ATSPI::Accessible:0x140839014 …>
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html#atspi-component-get-accessible-at-point atspi_component_get_accessible_at_point
+    def descendant_at(x, y, relative_to:)
+      if extends?
+        ATSPI::Accessible.new(@native.accessible_at_point(x, y, relative_to))
+      else
+        nil
+      end
+    end
+  # @!endgroup
+
+  # @!group Attributes & States
+    # @param relative_to [Symbol] coordinate system derived from
+    #   libatspi's {https://developer.gnome.org/libatspi/stable/libatspi-atspi-constants.html#AtspiCoordType AtspiCoordType enum}
+    #   by removing the prefix +ATSPI_COORD_TYPE_+ and making it lowercase
+    #
+    # @return [ATSPI::Extents] its extents. Will have a (0,0) position and a
+    #   0x0 size if it does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-component component interface}.
+    #
+    # @example
+    #   accessible.extents(relative_to: :screen) # => #<ATSPI::Extents:0x10b62c814 @x=2192 @y=187 @width=655 @height=492>
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-component.html#atspi-component-get-extents atspi_component_get_extents
+    def extents(relative_to:)
+      if extends?
+        ATSPI::Extents.new(@native.extents(relative_to))
+      else
+        ATSPI::Extents.new(Struct.new(:x, :y, :width, :height).new(0, 0, 0, 0))
+      end
+    end
+  # @!endgroup
+  end
+end

data/lib/atspi/accessible/hyperlink/anchor.rb

@@ -0,0 +1,30 @@
+module ATSPI
+  # Wraps libatspi's AtspiHyperlink[https://developer.gnome.org/libatspi/stable/AtspiHyperlink.html]
+  # together with {Hyperlink}.
+  class Accessible::Hyperlink::Anchor
+    # @api private
+    def initialize(native, idx)
+      @native = native
+      @idx = idx
+    end
+
+    # @return [String] its uri
+    # @see https://developer.gnome.org/libatspi/stable/AtspiHyperlink.html#atspi-hyperlink-get-uri atspi_hyperlink_get_uri
+    def uri
+      @native.uri(@idx)
+    end
+
+    # @return [Accessible,nil] its object or nil if it has none
+    # @see https://developer.gnome.org/libatspi/stable/AtspiHyperlink.html#atspi-hyperlink-get-object atspi_hyperlink_get_object
+    def object
+      if object = @native.object(@idx)
+        Accessible.new(object)
+      end
+    end
+
+    # @return [String] itself as an inspectable string
+    def inspect
+      "#<#{self.class.name}:0x#{'%x14' % __id__} @uri=#{uri.inspect}>"
+    end
+  end
+end

data/lib/atspi/accessible/hyperlink.rb

@@ -0,0 +1,31 @@
+class ATSPI::Accessible
+  # Wraps libatspi's AtspiHyperlink[https://developer.gnome.org/libatspi/stable/AtspiHyperlink.html]
+  # together with {Anchor}
+  class Hyperlink
+    extend Forwardable
+    # @api private
+    def initialize(native)
+      @native = native
+    end
+
+    # @return [Array<Anchor>] its anchors
+    # @see https://developer.gnome.org/libatspi/stable/AtspiHyperlink.html#atspi-hyperlink-get-n-anchors atspi_hyperlink_get_n_anchors
+    def anchors
+      @native.n_anchors.times.map do |idx|
+        Anchor.new(@native, idx)
+      end
+    end
+
+    # Checks if it's valid
+    # @return [true,false]
+    # @see https://developer.gnome.org/libatspi/stable/AtspiHyperlink.html#atspi-hyperlink-is-valid atspi_hyperlink_is_valid
+    def valid?
+      @native.is_valid
+    end
+
+    # @return [String] itself as an inspectable string
+    def inspect
+      "#<#{self.class.name}:0x#{'%x14' % __id__} @anchors=#{anchors.inspect}>"
+    end
+  end
+end

data/lib/atspi/accessible/image.rb

@@ -0,0 +1,35 @@
+module ATSPI
+  # Wraps libatspi's AtspiImage[https://developer.gnome.org/libatspi/stable/libatspi-atspi-image.html]
+  class Accessible::Image
+    # @api private
+    def initialize(native)
+      @native = native
+    end
+
+    # @return [String] its description
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-image.html#atspi-image-get-image-description atspi_image_get_image_description
+    def description
+      @native.image_description
+    end
+
+    # @param (see Accessible::Extents#extents)
+    # @return [Extents] its extents
+    # @example (see Accessible::Extents#extents)
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-image.html#atspi-image-get-image-extents atspi_image_get_image_extents
+    def extents(relative_to:)
+      Extents.new(@native.image_extents(relative_to))
+    end
+
+    # @return [String] its locale
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-image.html#atspi-image-get-image-locale atspi_image_get_image_locale
+    def locale
+      @native.image_locale
+    end
+
+    # @return [String] itself as an inspectable string
+    def inspect
+      "#<#{self.class.name}:0x#{'%x14' % __id__} @description=#{description.inspect} " <<
+        "@extents=#{extents(relative_to: :screen).inspect}>"
+    end
+  end
+end

data/lib/atspi/accessible/selectable.rb

@@ -0,0 +1,47 @@
+class ATSPI::Accessible
+  # Wraps libatspi's AtspiSelection[https://developer.gnome.org/libatspi/stable/libatspi-atspi-selection.html]
+  # together with parts of {Children} and {Children::Selected}
+  module Selectable
+  # @!group Attributes & States
+    # Checks if it can be selected. Accessibles which parent's native
+    # implements the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-selection selection interface}
+    # are selectable.
+    #
+    # @return [true, false]
+    def selectable?
+      parent.children.selectable?
+    end
+  # @!endgroup
+
+  # @!group Actions
+    # Selects it
+    # @return [true, false] indicating success of the operation. +false+ if its
+    #   parent does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-selection selection interface}.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-selection.html#atspi-selection-select-child atspi_selection_select_child
+    def select
+      selectable? and parent.__send__(:native).select_child(index_in_parent)
+    end
+
+    # Deselects it
+    # @return [true, false] indicating success of the operation. +false+ if its
+    #   parent does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-selection selection interface}.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-selection.html#atspi-selection-deselect-child atspi_selection_deselect_child
+    def deselect
+      selectable? and parent.__send__(:native).deselect_child(index_in_parent)
+    end
+  # @!endgroup
+
+  # @!group Attributes & States
+    # Checks if it currently is selected
+    # @return [true, false] +false+ if its
+    #   parent does not implement the {https://developer.gnome.org/libatspi/stable/AtspiAccessible.html#atspi-accessible-get-selection selection interface}.
+    #
+    # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-selection.html#atspi-selection-is-child-selected atspi_selection_is_child_selected
+    def selected?
+      selectable? and parent.__send__(:native).is_child_selected(index_in_parent)
+    end
+  # @!endgroup
+  end
+end

data/lib/atspi/accessible/table/cell/columns.rb

@@ -0,0 +1,44 @@
+module ATSPI
+  class Accessible::Table
+    # Represents the columns a table {Cell} spans.
+    class Cell::Columns
+      include SelectableCollection::Selected
+
+      # @api private
+      INDEX_METHOD = :index
+
+      # @api private
+      def initialize(native)
+        @native = native
+        @first_idx = row_col_span[2]
+      end
+
+    # @!group Enumerable interface
+      # @param n [Integer] the index in the collection of the cell's columns
+      #   and not the index in the collection of all the table's columns.
+      #
+      # @return [Column] the n'th column of the cell
+      #
+      # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-table.html#atspi-table-get-row-column-extents-at-index atspi_table_get_row_column_extents_at_index
+      def at(n)
+        super do |mapped_idx|
+          Column.new(@native.get_parent, @first_idx+mapped_idx)
+        end
+      end
+
+      # @return [Integer] the number of columns the cell spans
+      #
+      # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-table.html#atspi-table-get-row-column-extents-at-index atspi_table_get_row_column_extents_at_index
+      def count
+        row_col_span[4]
+      end
+    # @!endgroup
+
+      private
+
+      def row_col_span
+        @native.get_parent.row_column_extents_at_index(@native.index_in_parent)
+      end
+    end
+  end
+end

data/lib/atspi/accessible/table/cell/rows.rb

@@ -0,0 +1,44 @@
+module ATSPI
+  class Accessible::Table
+    # Represents the rows a table {Cell} spans.
+    class Cell::Rows
+      include SelectableCollection::Selected
+
+      # @api private
+      INDEX_METHOD = :index
+
+      # @api private
+      def initialize(native)
+        @native = native
+        @first_idx = row_col_span[1]
+      end
+
+    # @!group Enumerable interface
+      # @param n [Integer] the index in the collection of the cell's rows and
+      #   not the index in the collection of all the table's rows.
+      #
+      # @return [Row] the n'th row of the cell
+      #
+      # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-table.html#atspi-table-get-row-column-extents-at-index atspi_table_get_row_column_extents_at_index
+      def at(n)
+        super do |mapped_idx|
+          Row.new(@native.get_parent, @first_idx+mapped_idx)
+        end
+      end
+
+      # @return [Integer] the number of rows the cell spans
+      #
+      # @see https://developer.gnome.org/libatspi/stable/libatspi-atspi-table.html#atspi-table-get-row-column-extents-at-index atspi_table_get_row_column_extents_at_index
+      def count
+        row_col_span[3]
+      end
+    # @!endgroup
+
+      private
+
+      def row_col_span
+        @native.get_parent.row_column_extents_at_index(@native.index_in_parent)
+      end
+    end
+  end
+end