bewildr 0.1.6 → 0.1.7

data/Rakefile

@@ -10,7 +10,7 @@ require 'cucumber/rake/task'
 
 spec = Gem::Specification.new do |s|
   s.name = 'bewildr'
-  s.version = '0.1.6'
+  s.version = '0.1.7'
   s.has_rdoc = true
   s.extra_rdoc_files = ['README.rdoc', 'LICENSE']
   s.summary = 'Test WPF UI apps with IronRuby'

data/lib/bewildr.rb

@@ -19,6 +19,9 @@ CLICKR = Bewildr::Clickr::Clickr.new
 #load plain old ruby libraries
 require 'timeout'
 
+#require ruby extensions
+require 'bewildr/ext/extensions'
+
 #require bewildr classes
 require 'bewildr/exceptions'
 require 'bewildr/bewildr_helpers'
@@ -29,7 +32,6 @@ require 'bewildr/windows'
 require 'bewildr/element'
 
 require 'bewildr/control_patterns/window_pattern'
-require 'bewildr/control_patterns/invoke_pattern'
 require 'bewildr/control_patterns/value_pattern'
 require 'bewildr/control_patterns/toggle_pattern'
 require 'bewildr/control_patterns/selection_pattern'

data/lib/bewildr/application.rb

@@ -63,8 +63,12 @@ module Bewildr
       Bewildr::Application.new(System::Diagnostics::Process.start(process_name))
     end
 
-    def self.start_with_settings(settings_hash)
-      #TODO
+    def self.start_with_settings(path_to_exe, settings_hash)
+      start_info = System::Diagnostics::ProcessStartInfo.new(path_to_exe)
+      unless settings_hash[:args].nil? and settings_hash[:args].size > 0
+        start_info.arguments = settings_hash[:args].collect {|arg| arg.to_s}.join(" ")
+      end
+      Bewildr::Application.new(System::Diagnostics::Process.start(start_info))
     end
 
     def self.attach_to_process_name(process_name)

data/lib/bewildr/control_patterns/invoke_pattern.rb

@@ -1,11 +1,11 @@
-#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
-
-module Bewildr
-  module ControlPatterns
-    module InvokePattern
-      def click
-        @automation_element.get_current_pattern(System::Windows::Automation::InvokePattern.pattern).invoke
-      end
-    end
-  end
-end
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+#module Bewildr
+#  module ControlPatterns
+#    module InvokePattern
+#      def click
+#        @automation_element.get_current_pattern(System::Windows::Automation::InvokePattern.pattern).invoke
+#      end
+#    end
+#  end
+#end

data/lib/bewildr/control_type_additions/combo_box_additions.rb

@@ -4,10 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module ComboBoxAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
-        base.extend Bewildr::ControlPatterns::SelectionPattern
-        base.extend Bewildr::ControlPatterns::SelectionItemPattern
-
         base.instance_eval do
           def items
             my_list_items = list_items

data/lib/bewildr/control_type_additions/data_grid_additions.rb

@@ -4,9 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module DataGridAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::GridPattern
-        base.extend Bewildr::ControlPatterns::TablePattern
-
         base.instance_eval do
           def cell(row, column)
             get_item(row, column)

data/lib/bewildr/control_type_additions/document_additions.rb

@@ -4,18 +4,28 @@ module Bewildr
   module ControlTypeAdditions
     module DocumentAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::TextPattern
-
         base.instance_eval do
+
+          def clean_string(input)
+            #add special chars as necessary. Ref: http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.send.aspx
+            replacements = {
+              /\n/ => "{ENTER}"
+            }
+            cleaned_string = input
+            replacements.keys.each {|key| cleaned_string.gsub!(key, replacements[key])}
+            cleaned_string
+          end
+
           def text
             get_text
           end
 
           def text=(input)
+            cleaned_string = clean_string(input)
             focus
             select_all
             System::Windows::Forms::SendKeys.send_wait("{DEL}")
-            System::Windows::Forms::SendKeys.send_wait(input)
+            System::Windows::Forms::SendKeys.send_wait(cleaned_string)
           end
         end
       end

data/lib/bewildr/control_type_additions/list_additions.rb

@@ -4,8 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module ListAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::SelectionPattern
-
         base.instance_eval do
           def select(input)
             selectable_elements = get(:type => :list_item, :scope => :children, :how_many => :all)

data/lib/bewildr/control_type_additions/menu_additions.rb

@@ -4,10 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module MenuAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
-        base.extend Bewildr::ControlPatterns::SelectionPattern
-        base.extend Bewildr::ControlPatterns::SelectionItemPattern
-
         base.instance_eval do
           def root_menu_items
             get(:type => :menu_item, :scope => :children, :how_many => :all)

data/lib/bewildr/control_type_additions/menu_item_additions.rb

@@ -1,18 +1,20 @@
-#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
-
-module Bewildr
-  module ControlTypeAdditions
-    module MenuItemAdditions
-      def self.extended(base)
-        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
-        base.extend Bewildr::ControlPatterns::InvokePattern
-
-        base.instance_eval do
-          def sub_menus
-            get(:type => :menu_item, :scope => :children, :how_many => :all)
-          end
-        end
-      end
-    end
-  end
-end
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module MenuItemAdditions
+      def self.extended(base)
+        base.instance_eval do
+          def sub_menus
+            get(:type => :menu_item, :scope => :children, :how_many => :all)
+          end
+
+          #menu items like 'invoke', not a proper mouse click
+          def click
+            @automation_element.get_current_pattern(System::Windows::Automation::InvokePattern.pattern).invoke
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/scroll_additions.rb

@@ -4,8 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module ScrollAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::ScrollPattern
-
         base.instance_eval do
           
           #required because when a list is displayed, UI Automation only knows

data/lib/bewildr/control_type_additions/tab_additions.rb

@@ -4,8 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module TabAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::SelectionPattern
-
         base.instance_eval do
           def select(input)
             raise Bewildr::NoSuchTab unless tab_names.include?(input)

data/lib/bewildr/control_type_additions/tree_additions.rb

@@ -4,9 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module TreeAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
-        base.extend Bewildr::ControlPatterns::SelectionPattern
-        
         base.instance_eval do
           def root_nodes
             prepare_element

data/lib/bewildr/control_type_additions/tree_item_additions.rb

@@ -4,9 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module TreeItemAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
-        base.extend Bewildr::ControlPatterns::SelectionItemPattern
-
         base.instance_eval do
           def child_nodes
             get(:type => :tree_item, :scope => :children)

data/lib/bewildr/control_type_additions/window_additions.rb

@@ -4,8 +4,6 @@ module Bewildr
   module ControlTypeAdditions
     module WindowAdditions
       def self.extended(base)
-        base.extend Bewildr::ControlPatterns::WindowPattern
-
         base.instance_eval do
           def open?
             exists?

data/lib/bewildr/element.rb

@@ -1,225 +1,197 @@
-#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
-
-module Bewildr
-  class Element
-    attr_reader :automation_element
-    attr_reader :control_type
-    
-    def initialize(input)
-      @automation_element = input
-      case input
-      when System::Windows::Automation::AutomationElement
-        set_control_type
-        build_element
-      when nil then @control_type = :non_existent
-      else raise Bewildr::BewildrInternalError, "Can only initialize an element with a nil or a Sys::Win::Auto::AE[C], not a #{input.class}"
-      end
-    end
-
-    def name
-      existence_check
-      @automation_element.current.name.to_s
-    end
-
-    def automation_id
-      existence_check
-      @automation_element.current.automation_id.to_s
-    end
-
-    def exists?
-      return false if @control_type == :non_existent
-      begin
-        @automation_element.current.bounding_rectangle
-        return true
-      rescue System::Windows::Automation::ElementNotAvailableException, TypeError => e
-        return false
-      end
-    end
-    alias :exist? :exists?
-
-    def contains?(condition_hash)
-      get(condition_hash).exists?
-    end
-    alias :contain? :contains?
-
-    def existence_check
-      raise Bewildr::ElementDoesntExist unless exists?
-    end
-    private :existence_check
-
-    def enabled?
-      existence_check
-      @automation_element.current.is_enabled
-    end
-
-    def wait_for_existence_of(condition_hash)
-      Timeout.timeout(30) do
-        sleep 0.1 until contains?(condition_hash)
-      end
-      get(condition_hash)
-    end
-
-    def wait_for_non_existence_of(condition_hash)
-      Timeout.timeout(30) do
-        sleep 0.1 unless contains?(condition_hash)
-      end
-    end
-
-    def focus
-      @automation_element.set_focus
-    end
-
-    def scrollable?
-      return false unless @automation_element.get_supported_patterns.collect {|pattern| pattern.programmatic_name.to_s }.include?("ScrollPatternIdentifiers.Pattern")
-      vertically_scrollable
-    end
-
-    def prepare_element
-      load_all_items_hack if scrollable?
-    end
-
-    #:id => "id"
-    #:name => "bob"
-    #:type => :button
-    #:scope => :children / :descendants
-    #:how_many => :first / :all
-    def get(condition_hash)
-      existence_check
-      condition = Finder.condition_for(condition_hash)
-      scope = Finder.scope_for(condition_hash)
-      how_many = Finder.how_many_for(condition_hash)
-      
-      result = @automation_element.send how_many, scope, condition
-      case result
-      when System::Windows::Automation::AutomationElement, nil then return Bewildr::Element.new(result)
-      when System::Windows::Automation::AutomationElementCollection
-        c_array_list = System::Collections::ArrayList.new(result)
-        element_array = c_array_list.to_array.to_a
-        case
-        when element_array.size == 0 then return Bewildr::Element.new(nil)
-        #when element_array.size == 1 then return Bewildr::Element.new(element_array.first)
-        when element_array.size > 0 then return element_array.collect {|element| Bewildr::Element.new(element) }
-        end
-      end
-    end
-
-    #add "children/child" and "descendants/descendant" methods
-
-    def children
-      get({:scope => :children}).collect {|element| Bewildr::Element.new(element)}
-    end
-
-    def click
-      CLICKR.click(clickable_point)
-    end
-
-    def double_click
-      CLICKR.double_click(clickable_point)
-    end
-
-    def right_click
-      CLICKR.right_click(clickable_point)
-    end
-
-    def clickable_point
-      existence_check
-      Timeout.timeout(30) do
-        current_clickable_point = nil
-        begin
-          current_clickable_point = @automation_element.get_clickable_point
-        rescue System::Windows::Automation::NoClickablePointException
-          retry
-        end
-        return current_clickable_point
-      end
-    end
-
-    private
-
-    def set_control_type
-      @control_type = Bewildr::ControlType.symbol_for_enum(@automation_element.current.control_type)
-    end
-
-    #list of control types comes from http://msdn.microsoft.com/en-us/library/ms750574.aspx
-    def build_element
-      case @control_type
-      when :button
-      when :calendar
-      when :check_box
-        extend Bewildr::ControlPatterns::TogglePattern
-      when :combo_box
-        extend Bewildr::ControlTypeAdditions::ComboBoxAdditions
-      when :custom
-        build_custom_control_type
-      when :data_grid
-        extend Bewildr::ControlTypeAdditions::DataGridAdditions
-      when :data_item
-      when :document
-        extend Bewildr::ControlTypeAdditions::DocumentAdditions
-      when :edit
-        extend Bewildr::ControlPatterns::ValuePattern
-      when :group
-      when :header
-      when :header_item
-      when :hyperlink
-        extend Bewildr::ControlTypeAdditions::TextAdditions
-      when :image
-      when :list
-        extend Bewildr::ControlTypeAdditions::ListAdditions
-      when :list_item
-        extend Bewildr::ControlPatterns::SelectionItemPattern
-      when :menu
-        extend Bewildr::ControlTypeAdditions::MenuAdditions
-      when :menu_bar
-      when :menu_item
-        extend Bewildr::ControlTypeAdditions::MenuItemAdditions
-      when :pane
-      when :progress_bar
-        extend Bewildr::ControlPatterns::RangeValuePattern
-      when :radio_button
-        extend Bewildr::ControlPatterns::SelectionItemPattern
-      when :scroll_bar
-      when :seperator
-      when :slider
-        extend Bewildr::ControlPatterns::RangeValuePattern
-      when :spinner
-      when :split_button
-      when :status_bar
-      when :tab
-        extend Bewildr::ControlTypeAdditions::TabAdditions
-      when :tab_item
-        extend Bewildr::ControlPatterns::SelectionItemPattern
-      when :table
-      when :text
-        extend Bewildr::ControlTypeAdditions::TextAdditions
-      when :thumb
-      when :title_bar
-      when :tool_bar
-      when :tool_tip
-      when :tree
-        extend Bewildr::ControlTypeAdditions::TreeAdditions
-      when :tree_item
-        extend Bewildr::ControlTypeAdditions::TreeItemAdditions
-      when :window
-        extend Bewildr::ControlTypeAdditions::WindowAdditions
-      end
-
-      #add scrolling capability if relevant - TODO: this ugliness will be fixed later
-      if @automation_element.get_supported_patterns.collect {|pattern| pattern.programmatic_name.to_s }.include?("ScrollPatternIdentifiers.Pattern")
-        extend Bewildr::ControlTypeAdditions::ScrollAdditions
-      end
-    end
-
-    #TODO: replace build_element to use something similar to what's below, but
-    #make it smarter
-
-    def build_custom_control_type
-      @automation_element.get_supported_patterns.each do |supported_pattern|
-        case supported_pattern.programmatic_name.to_s
-        when "ValuePatternIdentifiers.Pattern" then extend Bewildr::ControlPatterns::ValuePattern
-        when "TableItemPatternIdentifiers.Pattern" then extend Bewildr::ControlPatterns::TableItemPattern
-        end
-      end
-    end
-  end
-end
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  class Element
+    attr_reader :automation_element
+    attr_reader :control_type
+    
+    def initialize(input)
+      @automation_element = input
+      case input
+      when System::Windows::Automation::AutomationElement
+        set_control_type
+        build_element
+        include_additions
+      when nil then @control_type = :non_existent
+      else raise Bewildr::BewildrInternalError, "Can only initialize an element with a nil or a Sys::Win::Auto::AE[C], not a #{input.class}"
+      end
+    end
+
+    def name
+      existence_check
+      @automation_element.current.name.to_s
+    end
+
+    def automation_id
+      existence_check
+      @automation_element.current.automation_id.to_s
+    end
+
+    def exists?
+      return false if @control_type == :non_existent
+      begin
+        @automation_element.current.bounding_rectangle
+        return true
+      rescue System::Windows::Automation::ElementNotAvailableException, TypeError => e
+        return false
+      end
+    end
+    alias :exist? :exists?
+
+    def contains?(condition_hash)
+      get(condition_hash).exists?
+    end
+    alias :contain? :contains?
+
+    def enabled?
+      existence_check
+      @automation_element.current.is_enabled
+    end
+
+    def wait_for_existence_of(condition_hash)
+      Timeout.timeout(30) do
+        sleep 0.1 until contains?(condition_hash)
+      end
+      get(condition_hash)
+    end
+
+    def wait_for_non_existence_of(condition_hash)
+      Timeout.timeout(30) do
+        sleep 0.1 unless contains?(condition_hash)
+      end
+    end
+
+    def focus
+      @automation_element.set_focus
+    end
+
+    def scrollable?
+      return false unless @automation_element.get_supported_patterns.collect {|pattern| pattern.programmatic_name.to_s }.include?("ScrollPatternIdentifiers.Pattern")
+      vertically_scrollable
+    end
+
+    #:id => "id"
+    #:name => "bob"
+    #:type => :button
+    #:scope => :children / :descendants
+    #:how_many => :first / :all
+    def get(condition_hash)
+      existence_check
+      condition = Finder.condition_for(condition_hash)
+      scope = Finder.scope_for(condition_hash)
+      how_many = Finder.how_many_for(condition_hash)
+      
+      result = @automation_element.send how_many, scope, condition
+      case result
+      when System::Windows::Automation::AutomationElement, nil then return Bewildr::Element.new(result)
+      when System::Windows::Automation::AutomationElementCollection
+        c_array_list = System::Collections::ArrayList.new(result)
+        element_array = c_array_list.to_array.to_a
+        case
+        when element_array.size == 0 then return Bewildr::Element.new(nil)
+        when element_array.size > 0 then return element_array.collect {|element| Bewildr::Element.new(element) }
+        end
+      end
+    end
+
+    #add "children/child" and "descendants/descendant" methods
+
+    def root?
+      @automation_element == System::Windows::Automation::AutomationElement.root_element
+    end
+
+    def parent
+      return nil if root?
+      walker = System::Windows::Automation::TreeWalker.RawViewWalker
+      potential_parent = walker.get_parent(@automation_element)
+      Bewildr::Element.new(potential_parent)
+    end
+
+    def has_children?
+      walker = System::Windows::Automation::TreeWalker.RawViewWalker
+      !walker.get_first_child(@automation_element).nil?
+    end
+
+    def children
+      return [] unless has_children?
+      walker = System::Windows::Automation::TreeWalker.ControlViewWalker #RawViewWalker
+      bewildred_children = []
+      child = walker.get_first_child(@automation_element)
+      while !child.nil? do
+        bewildred_children << Bewildr::Element.new(child)
+        child = walker.get_next_sibling(child)
+      end
+      bewildred_children
+    end
+
+    def click
+      CLICKR.click(clickable_point)
+    end
+
+    def double_click
+      CLICKR.double_click(clickable_point)
+    end
+
+    def right_click
+      CLICKR.right_click(clickable_point)
+    end
+
+    private
+
+    def existence_check
+      raise Bewildr::ElementDoesntExist unless exists?
+    end
+
+    def clickable_point
+      existence_check
+      Timeout.timeout(30) do
+        current_clickable_point = nil
+        begin
+          current_clickable_point = @automation_element.get_clickable_point
+        rescue System::Windows::Automation::NoClickablePointException
+          retry
+        end
+        return current_clickable_point
+      end
+    end
+
+    def prepare_element
+      load_all_items_hack if scrollable?
+    end
+
+    def set_control_type
+      @control_type = Bewildr::ControlType.symbol_for_enum(@automation_element.current.control_type)
+    end
+
+    def build_element
+      @automation_element.get_supported_patterns.each do |pattern|
+        pattern_name = pattern.programmatic_name.to_s.gsub(/Identifiers\.Pattern/, "")
+        potential_pattern = Bewildr::ControlPatterns.submodules.select {|mod| mod.name =~ /#{pattern_name}$/}.first
+        extend(potential_pattern) unless potential_pattern.nil?
+      end
+    end
+
+    #list of control types comes from http://msdn.microsoft.com/en-us/library/ms750574.aspx
+    def include_additions
+      case @control_type
+      when :combo_box then extend Bewildr::ControlTypeAdditions::ComboBoxAdditions
+      when :data_grid then extend Bewildr::ControlTypeAdditions::DataGridAdditions
+      when :document  then extend Bewildr::ControlTypeAdditions::DocumentAdditions
+      when :hyperlink then extend Bewildr::ControlTypeAdditions::TextAdditions
+      when :list      then extend Bewildr::ControlTypeAdditions::ListAdditions
+      when :menu      then extend Bewildr::ControlTypeAdditions::MenuAdditions
+      when :menu_item then extend Bewildr::ControlTypeAdditions::MenuItemAdditions
+      when :tab       then extend Bewildr::ControlTypeAdditions::TabAdditions
+      when :text      then extend Bewildr::ControlTypeAdditions::TextAdditions
+      when :tree      then extend Bewildr::ControlTypeAdditions::TreeAdditions
+      when :tree_item then extend Bewildr::ControlTypeAdditions::TreeItemAdditions
+      when :window    then extend Bewildr::ControlTypeAdditions::WindowAdditions
+      end 
+
+      #add scrolling capability if relevant - TODO: this ugliness will be fixed later
+      if @automation_element.get_supported_patterns.collect {|pattern| pattern.programmatic_name.to_s }.include?("ScrollPatternIdentifiers.Pattern")
+        extend Bewildr::ControlTypeAdditions::ScrollAdditions
+      end
+    end
+  end
+end

data/lib/bewildr/ext/extensions.rb

@@ -0,0 +1,10 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+#the following taken from: http://www.natontesting.com/2010/06/30/how-to-get-the-submodules-of-a-ruby-module/
+
+#adds the submodules method to modules - returns a list of submodules in the module's namespace
+class Module
+  def submodules
+    constants.collect {|const_name| const_get(const_name)}.select {|const| const.class == Module}
+  end
+end

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: bewildr
 version: !ruby/object:Gem::Version 
-  hash: 23
+  hash: 21
   prerelease: false
   segments: 
   - 0
   - 1
-  - 6
-  version: 0.1.6
+  - 7
+  version: 0.1.7
 platform: ruby
 authors: 
 - Nat Ritmeyer
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-07-20 00:00:00 +01:00
+date: 2010-11-27 00:00:00 +00:00
 default_executable: 
 dependencies: []
 
@@ -63,6 +63,7 @@ files:
 - lib/bewildr/element.rb
 - lib/bewildr/exceptions.rb
 - lib/bewildr/ext/BewildrClickr.dll
+- lib/bewildr/ext/extensions.rb
 - lib/bewildr/finder.rb
 - lib/bewildr/windows.rb
 - lib/bewildr.rb