Added basic actions, still work in progress

Author: jvelilla

src/interaction/se_actions.e

@@ -1,5 +1,5 @@
 note
-	description: "Summary description for {SE_ACTIONS}."
+	description: "Object that allows to build a complex chain of events"
 	author: ""
 	date: "$Date$"
 	revision: "$Revision$"
@@ -13,9 +13,9 @@ create
 feature {NONE} -- Initialization
 
 	make (a_web_driver: WEB_DRIVER)
-			-- Create an object Actions using webdriver input devices (mouse and keyboard)
+			-- Create an object Actions using webdriver.
 		do
-			make_with_parameters (a_web_driver.mouse, a_web_driver.keyboard )
+			make_with_parameters (a_web_driver.mouse, a_web_driver.keyboard)
 		ensure
 			keyboard_set: attached keyboard
 			mouse_set: attached mouse
@@ -37,7 +37,9 @@ feature {NONE} -- Initialization
 feature -- Access
 
 	keyboard: SE_KEYBOARD
+
 	mouse: SE_MOUSE
+
 	actions: SE_COMPOSITE_ACTION
 
 feature -- Change Element
@@ -48,7 +50,6 @@ feature -- Change Element
 			create actions.make
 		end
 
-
 	set_keyboard (a_keyboard: SE_KEYBOARD)
 			-- Set `keyboard' with `a_keyboard'
 		do
@@ -65,4 +66,71 @@ feature -- Change Element
 			mouse_set: mouse = a_mouse
 		end
 
+feature -- Actions
+
+	click (a_element: WEB_ELEMENT): SE_ACTIONS
+			-- Clicks in the middle of the given element `a_element'
+			-- Equivalent to call move_to_element (a_element).click()
+		do
+			actions.add_action (create {SE_CLICK_ACTION}.make_with_location (mouse, create {SE_COORDINATES}.make (a_element)))
+			Result := Current
+		end
+
+	click_current: SE_ACTIONS
+			-- Clicks at the current mouse location
+		do
+			actions.add_action (create {SE_CLICK_ACTION}.make (mouse))
+			Result := Current
+		end
+
+
+
+	key_down (a_key: SE_KEY_STROKE): SE_ACTIONS
+			-- Execute a modifier key press. Does not release the modifier key - subsequent interactions may assume it's kept pressed.
+			--  Note that the modifier key is <b>never</b> released implicitly - either key_UP(a_Key)or send_keys(Keys.NULL)
+		do
+			actions.add_action (create {SE_KEY_DOWN_ACTION}.make(keyboard, mouse, a_key))
+			Result := Current
+		end
+
+
+
+	key_down_element (a_element: WEB_ELEMENT; a_key: SE_KEY_STROKE): SE_ACTIONS
+			-- Execute a modifer key press after focusing on an element
+			-- Equivalent to: SE_ACTIONS.click(element).send_keys (a_key)
+		do
+			actions.add_action (create {SE_KEY_DOWN_ACTION}.make_with_location (keyboard, mouse, a_key,create {SE_COORDINATES}.make (a_element) ))
+			Result := Current
+		end
+
+
+	key_up (a_key: SE_KEY_STROKE): SE_ACTIONS
+			-- Execute a modifier key release. Releasing a non-depressed modifier key will yield undefined
+   			-- behaviour.
+		do
+			actions.add_action (create {SE_KEY_UP_ACTION}.make(keyboard, mouse, a_key))
+			Result := Current
+		end
+
+
+
+	key_up_element (a_element: WEB_ELEMENT; a_key: SE_KEY_STROKE): SE_ACTIONS
+			-- Executes a modifier key release after focusing on an element.
+			-- Equivalent to: SE_ACTIONS.click(a_element).send_keys (a_key)
+		do
+			actions.add_action (create {SE_KEY_UP_ACTION}.make_with_location (keyboard, mouse, a_key,create {SE_COORDINATES}.make (a_element) ))
+			Result := Current
+		end
+
+feature -- Builder
+
+  build: SE_ACTION
+		-- Build a composite action containinig all actions, ready to be executed (and
+   		-- resets the internal builder state, so subsequent calls to build will contain fresh
+   		-- sequences).
+  	do
+  		Result := actions.twin
+  		reset
+  	end
+
 end

src/interaction/se_base_action.e

@@ -7,11 +7,17 @@ note
 deferred class
 	SE_BASE_ACTION
 
-feature {NONE} -- Initialization
+feature -- Change Element
 
+	set_location (a_location: SE_COORDINATES)
+		do
+			location := a_location
+		ensure
+			location_set: location /= Void implies location = a_location
+		end
 
 feature -- Access
 
 	location: detachable SE_COORDINATES
-
+		--Coordintates of the current action, if any.
 end

src/interaction/se_click_action.e

@@ -0,0 +1,30 @@
+note
+	description: "Summary description for {SE_CLICK_ACTION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_CLICK_ACTION
+
+inherit
+
+	SE_MOUSE_ACTION
+
+	SE_ACTION
+
+create
+	make,
+	make_with_location
+
+feature -- Execute
+
+	execute
+			-- Execute the current action
+			-- click an element
+		do
+			move_to_location
+			mouse.click (location)
+		end
+
+end

src/interaction/se_coordinates.e

@@ -16,12 +16,12 @@ create
 
 feature {NONE} -- Initialization
 
-	make (a_web_driver: like driver)
-			-- Create an object se_mouse with his driver
+	make (a_web_element: like element)
+			-- Create an object coordinet from an element
 		do
-			driver := a_web_driver
+			element := a_web_element
 		ensure
-			web_driver_set: driver = a_web_driver
+			element_set: element = a_web_element
 		end
 
 feature -- Access
@@ -36,29 +36,23 @@ feature -- Access
 			-- Gets coordinates on the element relative to the top-left corner of OS-window being used
 			-- to display the content. Usually it is the browser window's viewport.
 		do
-			if attached driver.active_element as l_element and then attached driver.session as l_session then
-				Result := driver.api.location_in_view (l_session.session_id, l_element.element)
-			end
+			Result := element.api.location_in_view (element.session_id, element.element)
 		end
 
 	on_page: detachable SE_POINT
 			-- Gets coordinates on the element relative to the top-left corner of the page.
 		do
-			if attached driver.active_element as l_element and then attached driver.session as l_session then
-				Result := driver.api.element_location (l_session.session_id, l_element.element)
-			end
+			Result := element.api.element_location (element.session_id, element.element)
 		end
 
 	auxiliary: detachable WEB_ELEMENT
 		do
-			if attached driver.active_element as l_element then
-				Result := l_element
-			end
+			Result := element
 		end
 
 feature -- {NONE} -- Implementations
 
-	driver: WEB_DRIVER
-			-- web_driver
+	element: WEB_ELEMENT
+			-- web_element
 
 end

src/interaction/se_key_down_action.e

@@ -0,0 +1,28 @@
+note
+	description: "Summary description for {SE_KEY_DOWN_ACTION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_KEY_DOWN_ACTION
+
+inherit
+
+	SE_SINGLE_KEY_ACTION
+
+	SE_ACTION
+
+create
+	make,
+	make_with_location
+
+feature -- Execute
+
+	execute
+			-- Key press only
+		do
+			focus_on_element
+			keyboard.press_key (keys)
+		end
+end

src/interaction/se_key_up_action.e

@@ -0,0 +1,28 @@
+note
+	description: "Summary description for {SE_KEY_UP_ACTION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_KEY_UP_ACTION
+
+inherit
+
+	SE_SINGLE_KEY_ACTION
+
+	SE_ACTION
+
+create
+	make,
+	make_with_location
+
+feature -- Execute
+
+	execute
+			-- Release key
+		do
+			focus_on_element
+			keyboard.release_key (keys)
+		end
+end

src/interaction/se_keys_related_action.e

@@ -0,0 +1,47 @@
+note
+	description: "Summary description for {SE_KEYS_RELATED_ACTION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	SE_KEYS_RELATED_ACTION
+
+inherit
+
+	SE_BASE_ACTION
+
+feature -- Access
+
+	keyboard: SE_KEYBOARD
+
+	mouse: SE_MOUSE
+
+feature -- Change Element
+
+	set_keyboard (a_keyboard: SE_KEYBOARD)
+			-- Set `keyboard' with `a_keyboard'
+		do
+			keyboard := a_keyboard
+		ensure
+			keyboard_set: keyboard = a_keyboard
+		end
+
+	set_mouse (a_mouse: SE_MOUSE)
+			-- Set `mouse' 	with `a_mouse'
+		do
+			mouse := a_mouse
+		ensure
+			mouse_set: mouse = a_mouse
+		end
+
+
+feature {NONE} -- Implementation
+
+	focus_on_element
+		do
+			if attached location as l_location then
+				mouse.click (l_location)
+			end
+		end
+end

src/interaction/se_mouse_action.e

@@ -0,0 +1,64 @@
+note
+	description: "Summary description for {SE_MOUSE_ACTION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_MOUSE_ACTION
+
+inherit
+
+	SE_BASE_ACTION
+
+create
+	make,
+	make_with_location
+
+feature {NONE} --Initialization
+
+	make (a_mouse: SE_MOUSE)
+			-- Create a mouse action with `a_mouse'
+		do
+			set_mouse (a_mouse)
+		ensure
+			mouse_set: mouse = a_mouse
+		end
+		
+	make_with_location (a_mouse: SE_MOUSE; a_coordinate: SE_COORDINATES)
+			-- Create a mouse action with `a_mouse' and `a_coordinates'
+		do
+			set_mouse (a_mouse)
+			set_location (a_coordinate)
+		ensure
+			mouse_set: mouse = a_mouse
+			location_set: location /= Void implies location = a_coordinate
+		end
+
+feature -- Access
+
+	mouse: SE_MOUSE
+
+feature -- Change Element
+
+	set_mouse (a_mouse: SE_MOUSE)
+			-- Set `mouse' with `a_mouse'
+		do
+			mouse := a_mouse
+		ensure
+			mouse_set: mouse = a_mouse
+		end
+
+feature {NONE} -- Implementation
+
+	move_to_location
+			-- Only call mouse_move if actaul location was provided
+			-- in other case the action will happend in the last know
+			-- location of the mouse cursor
+		do
+			if attached location as l_location then
+				mouse.mouse_move (l_location)
+			end
+		end
+
+end