rautomation 2.0.1-x86-mingw32

data/lib/rautomation/adapter/ms_uia/select_list.rb

@@ -0,0 +1,85 @@
+module RAutomation
+  module Adapter
+    module MsUia
+
+      class SelectList < Control
+        include WaitHelper
+        include Locators
+
+        class SelectListOption
+          attr_accessor :text, :index
+
+          def initialize(select_list, text, index)
+            @select_list = select_list
+            @text = text
+            @index = index
+          end
+
+          def selected?
+            @index == UiaDll::select_list_selected_index(@select_list.search_information)
+          end
+
+          def select
+            @select_list.assert_enabled
+            UiaDll::select_list_select_index @select_list.search_information, @index
+          end
+
+          def clear
+            UiaDll::remove_from_selection @select_list.search_information, @index
+          end
+
+          def self.locators_match?(locators, item)
+            locators.all? do |locator, value|
+              return item.text =~ value if value.is_a? Regexp
+              return item.send(locator) == value
+            end
+          end
+
+          alias_method :set, :select
+        end
+
+        def option(locator)
+          options(locator).first
+        end
+
+        def options(locator = {})
+          all_options.select { |item| SelectListOption.locators_match? locator, item }
+        end
+
+        def select(locator = {})
+          options(locator).each(&:select)
+        end
+
+        def clear(locator = {})
+          options(locator).each(&:clear)
+        end
+
+        def value
+          UiaDll::selection(search_information)
+        end
+
+        def values
+          UiaDll::selections(search_information)
+        end
+
+        def exist?
+          super && matches_type?(Constants::UIA_COMBOBOX_CONTROL_TYPE)
+        end
+
+        alias_method :exists?, :exist?
+
+        private
+        def item_count
+          UiaDll::select_list_count(search_information)
+        end
+
+        def all_options
+          UiaDll::select_options(search_information).each_with_index.map do |item, index|
+            SelectListOption.new(self, item, index)
+          end
+        end
+
+      end
+    end
+  end
+end

data/lib/rautomation/adapter/ms_uia/spinner.rb

@@ -0,0 +1,31 @@
+module RAutomation
+  module Adapter
+    module MsUia
+      class Spinner < Control
+        def set(value)
+          UiaDll::set_spinner_value(search_information, value)
+        end
+
+        def value
+          UiaDll::spinner_value(search_information)
+        end
+
+        def minimum
+          UiaDll::spinner_min(search_information)
+        end
+
+        def maximum
+          UiaDll::spinner_max(search_information)
+        end
+
+        def increment
+          UiaDll::increment_spinner(search_information)
+        end
+
+        def decrement
+          UiaDll::decrement_spinner(search_information)
+        end
+      end
+    end
+  end
+end

data/lib/rautomation/adapter/ms_uia/tab_control.rb

@@ -0,0 +1,46 @@
+module RAutomation
+  module Adapter
+    module MsUia
+
+      class TabControl < Control
+        class TabItem
+          attr_reader :text, :index
+
+          def initialize(tab_control, text, index)
+            @tab_control, @text, @index = tab_control, text, index
+          end
+
+          def select
+            UiaDll::select_tab(@tab_control.search_information, index)
+          end
+
+          def selected?
+            @index == UiaDll::tab_control_selected_index(@tab_control.search_information)
+          end
+        end
+
+        def select(index)
+          UiaDll::select_tab(search_information, index)
+        end
+
+        def set(value)
+          UiaDll::select_tab(search_information, value)
+        end
+
+        def items
+          values.each_with_index.map {|value, index| TabItem.new(self, value, index) }
+        end
+
+        def value
+          UiaDll::tab_selection(search_information)
+        end
+
+        private
+        def values
+          UiaDll::tab_items(search_information)
+        end
+      end
+
+    end
+  end
+end

data/lib/rautomation/adapter/ms_uia/table.rb

@@ -0,0 +1,140 @@
+module RAutomation
+  module Adapter
+    module MsUia
+      class Cell
+        include Locators
+        attr_reader :row, :column, :search_information
+
+        def initialize(window, locators)
+          @search_information = window.search_information
+          @locators = extract(locators)
+          @row = window.row
+          @column = @locators[:index] || 0
+        end
+
+        def exists?
+          UiaDll::table_coordinate_valid? search_information, row, column
+        end
+
+        def value
+          UiaDll::table_value_at search_information, row, column
+        end
+
+        alias_method :text, :value
+        alias_method :index, :column
+      end
+
+      class Row
+        include Locators
+        extend ElementCollections
+        attr_reader :search_information
+
+        has_many :cells
+
+        def cells(locators={})
+          Cells.new(self, locators).select do |cell|
+            Row.locators_match? locators, cell
+          end
+        end
+
+        def cell(locators={})
+          cells(locators).first
+        end
+
+        def initialize(table, locators)
+          @table = table
+          @search_information = table.search_information
+          @locators = extract(locators)
+        end
+
+        def index
+          @locators[:index] || 0
+        end
+
+        def select
+          UiaDll::table_select search_information, row
+        end
+
+        def selected?
+          UiaDll::table_row_is_selected search_information, row
+        end
+
+        def clear
+          UiaDll::table_remove_from_selection search_information, row
+        end
+
+        def value
+          UiaDll::table_value_at search_information, @locators[:index]
+        end
+
+        def exists?
+          @locators[:index].between? 0, @table.row_count - 1
+        end
+
+        def self.locators_match?(locators, item)
+          locators.all? do |locator, value|
+            return item.value =~ value if value.is_a? Regexp
+            return item.send(locator) == value
+          end
+        end
+
+        alias_method :text, :value
+        alias_method :row, :index
+      end
+
+      class Table < Control
+        include WaitHelper
+        include Locators
+        extend ElementCollections
+
+        has_many :rows
+
+        def row(locators={})
+          rows(locators).first
+        end
+
+        def rows(locators={})
+          Rows.new(self, locators).select do |row|
+            Row.locators_match? locators, row
+          end
+        end
+
+        def select(locators={})
+          rows(locators).each(&:select)
+        end
+
+        def clear(locators={})
+          rows(locators).each(&:clear)
+        end
+
+        def selected_rows
+          UiaDll.table_selected_indexes(search_information).map {|index| Row.new(self, index: index) }
+        end
+
+        def strings
+          headers = UiaDll.table_headers(search_information)
+          values = UiaDll.table_values(search_information)
+          return values if headers.empty?
+
+          all_strings = [] << headers
+          values.each_slice(headers.count) {|r| all_strings << r }
+          all_strings
+        end
+
+        def row_count
+          UiaDll::table_row_count search_information
+        end
+
+        def exist?
+          super && of_type_table?
+        end
+
+        def of_type_table?
+          matches_type?(Constants::UIA_LIST_CONTROL_TYPE) || matches_type?(Constants::UIA_DATA_GRID_CONTROL_TYPE)
+        end
+
+        alias_method :exists?, :exist?
+      end
+    end
+  end
+end

data/lib/rautomation/adapter/ms_uia/text_field.rb

@@ -0,0 +1,39 @@
+module RAutomation
+  module Adapter
+    module MsUia
+      class TextField < Control
+        include WaitHelper
+        include Locators
+
+        # Default locators used for searching text fields.
+        DEFAULT_LOCATORS = {:class => /edit/i}
+
+        #todo - replace with UIA version
+        # @see RAutomation::TextField#set
+        def set(text)
+          raise "Cannot set value on a disabled text field" if disabled?
+          UiaDll::set_text(search_information, text)
+        end
+
+        # @see RAutomation::TextField#clear
+        def clear
+          raise "Cannot set value on a disabled text field" if disabled?
+          set ""
+        end
+
+        #todo - replace with UIA version
+        # @see RAutomation::TextField#value
+        def value
+          UiaDll::get_text(search_information)
+        end
+
+        def exist?
+          super && matches_type?(Constants::UIA_EDIT_CONTROL_TYPE, Constants::UIA_DOCUMENT_CONTROL_TYPE)
+        end
+
+        alias_method :exists?, :exist?
+
+      end
+    end
+  end
+end