Merge branch 'widget' of github.com:souvarin/EWF into widget

draft/library/wsf_js_widget/kernel/webcontrol/wsf_control.e

@@ -0,0 +1,159 @@
+note
+	description: "Summary description for {WSF_CONTROL}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	WSF_CONTROL
+
+inherit
+
+	WSF_STATELESS_CONTROL
+		redefine
+			render_tag
+		end
+
+
+feature
+
+	control_name: STRING
+
+feature {NONE} -- Initialization
+
+	make_control (n, a_tag_name: STRING)
+			-- Initialize with specified control name and tag
+		require
+			not n.is_empty
+			not a_tag_name.is_empty
+		do
+			make (a_tag_name)
+			control_name := n
+			create state_changes.make
+			create actions.make_array
+		ensure
+			attached state_changes
+		end
+
+feature -- Actions
+
+	start_modal(url:STRING; title:STRING)
+		--Start a modal window containg an other or the same page
+		local
+			modal:JSON_OBJECT
+		do
+			create modal.make
+			modal.put (create {JSON_STRING}.make_json("start_modal"), "type")
+			modal.put (create {JSON_STRING}.make_json(url), "url")
+			modal.put (create {JSON_STRING}.make_json(title), "title")
+			actions.add (modal)
+		end
+
+	show_alert(mesage:STRING)
+		--Start a modal window containg an other or the same page
+		local
+			modal:JSON_OBJECT
+		do
+			create modal.make
+			modal.put (create {JSON_STRING}.make_json("show_alert"), "type")
+			modal.put (create {JSON_STRING}.make_json(mesage), "message")
+			actions.add (modal)
+		end
+
+feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT
+
+	load_state (new_states: JSON_OBJECT)
+			-- Select state stored with `control_name` as key
+		do
+			if attached {JSON_OBJECT} new_states.item ("state") as new_state_obj then
+				set_state (new_state_obj)
+			end
+		end
+
+	set_state (new_state: JSON_OBJECT)
+			-- Before we process the callback. We restore the state of control.
+		deferred
+		end
+
+	full_state: JSON_OBJECT
+			-- Return state of object
+		do
+			create Result.make
+			Result.put (state, "state")
+		end
+
+	read_state_changes (states: JSON_OBJECT)
+			-- Add a new entry in the `states_changes` JSON object with the `control_name` as key and the `state` as value
+		do
+			if state_changes.count > 0 then
+				states.put (state_changes, control_name)
+			end
+			if actions.count > 0 then
+				if not attached states.item ("actions") then
+					states.put (create {JSON_ARRAY}.make_array,"actions")
+				end
+				if attached {JSON_ARRAY}states.item ("actions") as action_list then
+					across
+						actions.array_representation as action
+					loop
+						action_list.add (action.item)
+					end
+				end
+			end
+		end
+
+	state: JSON_OBJECT
+			-- Returns the current state of the Control as JSON. This state will be transfered to the client.
+		deferred
+		ensure
+			controls_not_defined: not (attached Result.item ("controls"))
+		end
+
+	state_changes: JSON_OBJECT
+
+feature -- Rendering
+
+	render_tag (body, attrs: STRING): STRING
+			-- Render this control with the specified body and attributes
+		do
+			Result := render_tag_with_generator_name (generator, body, attrs)
+		end
+
+	render_tag_with_generator_name (a_generator, body, attrs: STRING): STRING
+			-- Render this control with the specified generator name, body and attributes
+		local
+			css_classes_string: STRING
+			l_attributes: STRING
+		do
+			css_classes_string := ""
+			across
+				css_classes as c
+			loop
+				css_classes_string := css_classes_string + " " + c.item
+			end
+			l_attributes := "id=%"" + control_name + "%" data-name=%"" + control_name + "%" data-type=%"" + a_generator + "%" " + attrs
+			if isolate then
+				l_attributes.append (" data-isolation=%"1%"")
+			end
+			Result := render_tag_with_tagname (tag_name, body, l_attributes, css_classes_string)
+		end
+
+feature -- EVENT HANDLING
+
+	handle_callback (cname: STRING; event: STRING; event_parameter: detachable STRING)
+			-- Method called if any callback received. In this method you can route the callback to the event handler
+		deferred
+		end
+feature -- Change
+
+	set_isolation (p: BOOLEAN)
+		do
+			isolate := true
+		end
+
+feature -- Properties
+
+	isolate: BOOLEAN
+
+	actions: JSON_ARRAY
+end