bewildr 0.1.4 → 0.1.6

data/README.rdoc

@@ -1,5 +1,5 @@
 =bewildr
-Test WPF UI apps with (iron) ruby!
+Test WPF UI apps with IronRuby!
 
 Written by Nat Ritmeyer (http://www.natontesting.com)
 

data/Rakefile

@@ -10,10 +10,10 @@ require 'cucumber/rake/task'
 
 spec = Gem::Specification.new do |s|
   s.name = 'bewildr'
-  s.version = '0.1.4'
+  s.version = '0.1.6'
   s.has_rdoc = true
   s.extra_rdoc_files = ['README.rdoc', 'LICENSE']
-  s.summary = 'Test WPF UI apps with (iron) ruby!'
+  s.summary = 'Test WPF UI apps with IronRuby'
   s.description = s.summary
   s.author = 'Nat Ritmeyer'
   s.email = 'nat@natontesting.com'

data/lib/bewildr.rb

@@ -40,6 +40,7 @@ require 'bewildr/control_patterns/grid_pattern'
 require 'bewildr/control_patterns/table_pattern'
 require 'bewildr/control_patterns/text_pattern'
 require 'bewildr/control_patterns/table_item_pattern'
+require 'bewildr/control_patterns/scroll_pattern'
 
 require 'bewildr/control_type_additions/text_additions'
 require 'bewildr/control_type_additions/combo_box_additions'
@@ -52,3 +53,4 @@ require 'bewildr/control_type_additions/tree_additions'
 require 'bewildr/control_type_additions/tree_item_additions'
 require 'bewildr/control_type_additions/data_grid_additions'
 require 'bewildr/control_type_additions/document_additions'
+require 'bewildr/control_type_additions/scroll_additions'

data/lib/bewildr/control_patterns/scroll_pattern.rb

@@ -0,0 +1,38 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module ScrollPattern
+      def self.extended(base)
+        
+        base.instance_eval do
+          def vertically_scrollable
+            @automation_element.get_current_pattern(System::Windows::Automation::ScrollPattern.pattern).current.vertically_scrollable
+          end
+
+          def vertical_scroll_percent
+            @automation_element.get_current_pattern(System::Windows::Automation::ScrollPattern.pattern).current.vertical_scroll_percent.to_f
+          end
+          alias :scroll_percent :vertical_scroll_percent
+
+          def set_scroll_percent(percent_horizontal, percent_vertical)
+            @automation_element.get_current_pattern(System::Windows::Automation::ScrollPattern.pattern).set_scroll_percent(percent_horizontal, percent_vertical)
+          end
+      
+          def scroll_vertically_to(target_percentage)
+            set_scroll_percent(System::Windows::Automation::ScrollPattern.NoScroll, target_percentage)
+          end
+          alias :scroll_to :scroll_vertically_to
+
+          def scroll_horizontally_to(target_percentage)
+            set_scroll_percent(target_percentage, System::Windows::Automation::ScrollPattern.NoScroll)
+          end
+
+          def scroll_down_one_page
+            @automation_element.get_current_pattern(System::Windows::Automation::ScrollPattern.pattern).scroll_vertical(System::Windows::Automation::ScrollAmount.LargeIncrement)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/list_additions.rb

@@ -19,6 +19,7 @@ module Bewildr
           end
 
           def list_items
+            prepare_element
             bewildr_list_items = get(:type => :list_item, :scope => :children, :how_many => :all)
             bewildr_list_items.nil? ? nil : bewildr_list_items
           end

data/lib/bewildr/control_type_additions/scroll_additions.rb

@@ -0,0 +1,34 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+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
+          #about the visible items. This method stores where the scroll value is,
+          #then moves the scroller to the top of the scroll bar and proceeds to
+          #page-down until the bottom of the scroll bar is reached. At this point,
+          #UI Automation knows about all the items in the list and we can put
+          #the scroll back where it was before we started this nonsense.
+          def load_all_items_hack
+            return unless scrollable?
+
+            initial_scroll_value = vertical_scroll_percent
+
+            scroll_to 0.0
+            page_down_to_bottom_of_scroll_bar
+            scroll_to initial_scroll_value
+          end
+
+          def page_down_to_bottom_of_scroll_bar
+            scroll_down_one_page while vertical_scroll_percent < 100.0
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/tree_additions.rb

@@ -9,6 +9,7 @@ module Bewildr
         
         base.instance_eval do
           def root_nodes
+            prepare_element
             get(:type => :tree_item, :scope => :children)
           end
 

data/lib/bewildr/element.rb

@@ -69,6 +69,15 @@ module Bewildr
       @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
@@ -194,9 +203,16 @@ module Bewildr
       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: this is horrible - fix it
+    #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

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: bewildr
 version: !ruby/object:Gem::Version 
-  hash: 19
+  hash: 23
   prerelease: false
   segments: 
   - 0
   - 1
-  - 4
-  version: 0.1.4
+  - 6
+  version: 0.1.6
 platform: ruby
 authors: 
 - Nat Ritmeyer
@@ -15,11 +15,11 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-07-11 00:00:00 +01:00
+date: 2010-07-20 00:00:00 +01:00
 default_executable: 
 dependencies: []
 
-description: Test WPF UI apps with (iron) ruby!
+description: Test WPF UI apps with IronRuby
 email: nat@natontesting.com
 executables: []
 
@@ -38,6 +38,7 @@ files:
 - lib/bewildr/control_patterns/grid_pattern.rb
 - lib/bewildr/control_patterns/invoke_pattern.rb
 - lib/bewildr/control_patterns/range_value_pattern.rb
+- lib/bewildr/control_patterns/scroll_pattern.rb
 - lib/bewildr/control_patterns/selection_item_pattern.rb
 - lib/bewildr/control_patterns/selection_pattern.rb
 - lib/bewildr/control_patterns/table_item_pattern.rb
@@ -53,6 +54,7 @@ files:
 - lib/bewildr/control_type_additions/list_additions.rb
 - lib/bewildr/control_type_additions/menu_additions.rb
 - lib/bewildr/control_type_additions/menu_item_additions.rb
+- lib/bewildr/control_type_additions/scroll_additions.rb
 - lib/bewildr/control_type_additions/tab_additions.rb
 - lib/bewildr/control_type_additions/text_additions.rb
 - lib/bewildr/control_type_additions/tree_additions.rb
@@ -97,6 +99,6 @@ rubyforge_project:
 rubygems_version: 1.3.7
 signing_key: 
 specification_version: 3
-summary: Test WPF UI apps with (iron) ruby!
+summary: Test WPF UI apps with IronRuby
 test_files: []