Pretty Print

library/server/wsf_html/webcontrol/wsf_button_control.e

@@ -8,44 +8,52 @@ class
 	WSF_BUTTON_CONTROL
 
 inherit
+
 	WSF_CONTROL
+
 create
 	make
+
 feature {NONE}
-	make (n:STRING; v:STRING)
-	do
-		make_control
-		control_name:=n
-		text:=v
-		click_event:= agent donothing
-	end
-feature
 
-	--UGLY HACK MUST BE REMOVED
+	make (n: STRING; v: STRING)
-	donothing(p:WSF_PAGE_CONTROL)
+		do
-	do
+			make_control
-
+			control_name := n
-	end
+			text := v
-	handle_callback(event: STRING ; cname: STRING ; page: WSF_PAGE_CONTROL)
+			click_event := agent donothing
-	do
-		if Current.control_name = cname and attached  click_event then
-			click_event.call([page])
 		end
-	end
-
-	render:STRING
-	do
-		Result:="<button>"+text+"</button>"
-	end
-
-	state:JSON_OBJECT
-	do
-		create Result.make
-		Result.put (create {JSON_STRING}.make_json(text), create {JSON_STRING}.make_json("text"))
-	end
-
 
 feature
+
+		--UGLY HACK MUST BE REMOVED
+
+	donothing (p: WSF_PAGE_CONTROL)
+		do
+		end
+
+	handle_callback (event: STRING; cname: STRING; page: WSF_PAGE_CONTROL)
+		do
+			if Current.control_name = cname and attached click_event then
+				click_event.call ([page])
+			end
+		end
+
+	render: STRING
+		do
+			Result := "<button>" + text + "</button>"
+		end
+
+	state: JSON_OBJECT
+		do
+			create Result.make
+			Result.put (create {JSON_STRING}.make_json (text), create {JSON_STRING}.make_json ("text"))
+		end
+
+feature
+
 	text: STRING
+
 	click_event: PROCEDURE [ANY, TUPLE [WSF_PAGE_CONTROL]]
+
 end

library/server/wsf_html/webcontrol/wsf_control.e

@@ -6,32 +6,35 @@ note
 
 deferred class
 	WSF_CONTROL
+
 feature {NONE}
+
 	make_control
-	do
+		do
-		control_name:=""
+			control_name := ""
-	end
+		end
 
 feature
+
 	control_name: STRING
 
 feature {WSF_PAGE_CONTROL}
 
-	handle_callback(event: STRING ; cname: STRING ; page: WSF_PAGE_CONTROL)
+	handle_callback (event: STRING; cname: STRING; page: WSF_PAGE_CONTROL)
-	deferred
+		deferred
-	end
+		end
 
 	render: STRING
-	deferred
+		deferred
-	end
+		end
 
 	state: JSON_OBJECT
-	deferred
+		deferred
-	end
+		end
 
-	read_state(states:JSON_OBJECT)
+	read_state (states: JSON_OBJECT)
-	do
+		do
-		states.put (state, create {JSON_STRING}.make_json(control_name))
+			states.put (state, create {JSON_STRING}.make_json (control_name))
-	end
+		end
 
 end

library/server/wsf_html/webcontrol/wsf_page_control.e

@@ -24,57 +24,55 @@ feature -- Access
 feature
 
 	initialize_controls
-	deferred
+		deferred
-	end
+		end
 
 	process
-	deferred
+		deferred
-	end
+		end
 
 feature
 
-
 	execute
-	local
+		local
-		event: detachable STRING
+			event: detachable STRING
-		control_name: detachable STRING
+			control_name: detachable STRING
-		states:JSON_OBJECT
+			states: JSON_OBJECT
-	do
+		do
-		initialize_controls
+			initialize_controls
-		control_name := get_parameter("control_name")
+			control_name := get_parameter ("control_name")
-		event := get_parameter("event")
+			event := get_parameter ("event")
-		if attached event and attached control_name and attached control then
+			if attached event and attached control_name and attached control then
-				control.handle_callback (control_name,event, Current)
+				control.handle_callback (control_name, event, Current)
 				create states.make
-				control.read_state(states)
+				control.read_state (states)
 				response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-Type", "application/json"]>>)
 				response.put_string (states.representation)
-		else
+			else
-			process
+				process
-		render
+				render
+			end
 		end
-	end
 
 	render
-	local
+		local
-		data: STRING
+			data: STRING
-	do
+		do
-		data := control.render
+			data := control.render
-		response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-Type", "text/plain"], ["Content-Length", data.count.out]>>)
+			response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-Type", "text/plain"], ["Content-Length", data.count.out]>>)
-		response.put_string (data)
+			response.put_string (data)
-	end
-
-	get_parameter(key: STRING) : detachable STRING
-	local
-		value: detachable WSF_VALUE
-	do
-		Result := VOID
-		value := request.query_parameter (key)
-		if attached value then
-			Result := value.as_string.value
 		end
 
-	end
+	get_parameter (key: STRING): detachable STRING
+		local
+			value: detachable WSF_VALUE
+		do
+			Result := VOID
+			value := request.query_parameter (key)
+			if attached value then
+				Result := value.as_string.value
+			end
+		end
 
 feature {NONE}