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)
+
+	make (n: STRING; v: STRING)
 		do
 			make_control
-		control_name:=n
+			control_name := n
-		text:=v
+			text := v
-		click_event:= agent donothing
+			click_event := agent donothing
 		end
+
 feature
 
 		--UGLY HACK MUST BE REMOVED
-	donothing(p:WSF_PAGE_CONTROL)
-	do
 
+	donothing (p: WSF_PAGE_CONTROL)
+		do
 		end
-	handle_callback(event: STRING ; cname: STRING ; page: WSF_PAGE_CONTROL)
+
+	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])
+				click_event.call ([page])
 			end
 		end
 
-	render:STRING
+	render: STRING
 		do
-		Result:="<button>"+text+"</button>"
+			Result := "<button>" + text + "</button>"
 		end
 
-	state:JSON_OBJECT
+	state: JSON_OBJECT
 		do
 			create Result.make
-		Result.put (create {JSON_STRING}.make_json(text), create {JSON_STRING}.make_json("text"))
+			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,18 +6,21 @@ note
 
 deferred class
 	WSF_CONTROL
+
 feature {NONE}
+
 	make_control
 		do
-		control_name:=""
+			control_name := ""
 		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
 		end
 
@@ -29,9 +32,9 @@ feature {WSF_PAGE_CONTROL}
 		deferred
 		end
 
-	read_state(states:JSON_OBJECT)
+	read_state (states: JSON_OBJECT)
 		do
-		states.put (state, create {JSON_STRING}.make_json(control_name))
+			states.put (state, create {JSON_STRING}.make_json (control_name))
 		end
 
 end

library/server/wsf_html/webcontrol/wsf_page_control.e

@@ -33,20 +33,19 @@ feature
 
 feature
 
-
 	execute
 		local
 			event: detachable STRING
 			control_name: detachable STRING
-		states:JSON_OBJECT
+			states: JSON_OBJECT
 		do
 			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
-				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
@@ -64,7 +63,7 @@ feature
 			response.put_string (data)
 		end
 
-	get_parameter(key: STRING) : detachable STRING
+	get_parameter (key: STRING): detachable STRING
 		local
 			value: detachable WSF_VALUE
 		do
@@ -73,7 +72,6 @@ feature
 			if attached value then
 				Result := value.as_string.value
 			end
-
 		end
 
 feature {NONE}