Initial import for advanced interactions

Author: jvelilla

src/interaction/se_action.e

@@ -0,0 +1,15 @@
+note
+	description: "Summary description for {SE_ACTION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	SE_ACTION
+
+feature -- Execute
+
+	execute
+		deferred
+		end
+end

src/interaction/se_actions.e

@@ -0,0 +1,15 @@
+note
+	description: "Summary description for {SE_ACTIONS}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_ACTIONS
+
+
+feature -- Access
+
+--	keyboard: SE_KEYBOARD
+--	mouse: SE_MOUSE
+end

src/interaction/se_composite_action.e

@@ -0,0 +1,51 @@
+note
+	description: "Summary description for {SE_COMPOSITE_ACTION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_COMPOSITE_ACTION
+
+inherit
+
+	SE_ACTION
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make
+		do
+			create {ARRAYED_LIST[SE_ACTION]}actions.make (5)
+		ensure
+			actions_empty: actions.is_empty
+		end
+
+feature -- Execute
+
+	execute
+		do
+			across actions as c  loop c.item.execute end
+		end
+
+feature -- Access
+
+	count: INTEGER
+		do
+			Result := actions.count
+		end
+
+feature -- Change Element
+
+	add_action (a_action: SE_ACTION)
+		do
+			actions.force (a_action)
+		end
+
+feature {NONE} -- Implementation
+
+	actions: LIST[SE_ACTION]
+
+end

src/interaction/se_coordinates.e

@@ -0,0 +1,63 @@
+note
+	description: "Provides coordinates of an element for advanced interactions"
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_COORDINATES
+
+inherit
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make ( a_web_driver : like driver)
+			-- Create an object se_mouse with his driver
+		do
+			driver := a_web_driver
+		ensure
+			web_driver_set : driver = a_web_driver
+		end
+
+
+feature -- Access
+
+	on_screen: detachable SE_POINT
+		do
+			to_implement ("Not supported yet.")
+		end
+
+	in_view_port: detachable SE_POINT
+		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
+		end
+
+	on_page: detachable SE_POINT
+		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
+		end
+
+	auxiliary: detachable ANY
+		do
+			if attached driver.active_element as l_element then
+				Result := l_element.element
+			end
+		end
+
+
+feature -- {NONE} -- Implementations
+	driver : WEB_DRIVER
+		-- web_driver
+
+end

src/se_keyboard.e renamed to src/interaction/se_keyboard.e

@@ -9,7 +9,9 @@ class
 
 create
 	make
+
 feature {NONE} -- Initialization
+
 	make ( a_web_driver : like driver)
 			-- Create an object se_keyboard with his driver
 		do
@@ -19,6 +21,7 @@ feature {NONE} -- Initialization
 		end
 
 feature --Access
+
 	send_keys  (keys : ARRAY[STRING_32])
 		do
 			if attached driver.active_element as l_active_element then
@@ -50,9 +53,8 @@ feature --Access
 			end
 		end
 
-
-
 feature {NONE} -- Implementation
+
 	driver : WEB_DRIVER
 		-- web_driver
 

src/interaction/se_mouse.e

@@ -0,0 +1,82 @@
+note
+	description: "Summary description for {SE_MOUSE}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	SE_MOUSE
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make ( a_web_driver : like driver)
+			-- Create an object se_mouse with his driver
+		do
+			driver := a_web_driver
+		ensure
+			web_driver_set : driver = a_web_driver
+		end
+
+feature  -- Mouse Actions
+
+	click (a_coordinates: SE_COORDINATES)
+		do
+		end
+
+	double_click (a_coordinates: SE_COORDINATES)
+		do
+
+		end
+
+	mouse_down (a_coordinates: SE_COORDINATES)
+		do
+
+		end
+
+
+	mouse_up (a_coordinates: SE_COORDINATES)
+		do
+
+		end
+
+	mouse_move (a_coordinates: SE_COORDINATES)
+		do
+
+		end
+
+	mouse_move_by_params (a_coordinates: SE_COORDINATES; a_param1: INTEGER_64; a_param2: INTEGER_64)
+		do
+
+		end
+
+	context_click (a_coordinates: SE_COORDINATES)
+		do
+
+		end
+
+
+
+feature {NONE} -- Implementation
+
+
+	params_from_coordinates (a_where: SE_COORDINATES): HASH_TABLE[ANY,STRING]
+		do
+			create Result.make(1)
+			if attached {STRING} a_where.auxiliary as l_id then
+				Result.force (l_id,"element")
+			end
+		end
+
+
+
+	driver : WEB_DRIVER
+		-- web_driver
+
+	json_template : String = "[
+				{"value" :"$value",
+				"isdown" : $boolean}
+			]"
+end

src/se_mouse.e

@@ -476,7 +476,7 @@ feature {WEB_DRIVER, WEB_DRIVER_WAIT}
 			end
 		end
 
-feature {SE_KEYBOARD} -- Implementation
+feature {SE_KEYBOARD, SE_COORDINATES} -- Implementation
 
 	session: detachable SE_SESSION