Small changes/fixes

library/server/wsf_html/webcontrol/grid/wsf_datasource.e

@@ -13,14 +13,14 @@ feature --State
 			-- Return state which contains the current html and if there is an event handle attached
 		do
 			create Result.make
-			Result.put (create {JSON_NUMBER}.make_integer(page), create {JSON_STRING}.make_json("page"))
+			Result.put (create {JSON_NUMBER}.make_integer (page), create {JSON_STRING}.make_json ("page"))
-			Result.put (create {JSON_NUMBER}.make_integer(page_size), create {JSON_STRING}.make_json("page_size"))
+			Result.put (create {JSON_NUMBER}.make_integer (page_size), create {JSON_STRING}.make_json ("page_size"))
 			if attached sort_column as a_sort_column then
-				Result.put (create {JSON_STRING}.make_json(a_sort_column), create {JSON_STRING}.make_json("sort_column"))
+				Result.put (create {JSON_STRING}.make_json (a_sort_column), create {JSON_STRING}.make_json ("sort_column"))
 			else
-				Result.put (create {JSON_NULL}, create {JSON_STRING}.make_json("sort_column"))
+				Result.put (create {JSON_NULL}, create {JSON_STRING}.make_json ("sort_column"))
 			end
-			Result.put (create {JSON_BOOLEAN}.make_boolean(sort_direction), create {JSON_STRING}.make_json("sort_direction"))
+			Result.put (create {JSON_BOOLEAN}.make_boolean (sort_direction), create {JSON_STRING}.make_json ("sort_direction"))
 		end
 
 	set_state (new_state: JSON_OBJECT)
@@ -40,6 +40,7 @@ feature --State
 				sort_direction := new_sort_direction.item
 			end
 		end
+
 feature
 
 	set_page (a_page: like page)
@@ -71,6 +72,7 @@ feature
 	sort_direction: BOOLEAN
 
 	data: ITERABLE [G]
-	deferred
+		deferred
-	end
+		end
+
 end

library/server/wsf_html/webcontrol/grid/wsf_grid_column.e

@@ -6,16 +6,19 @@ note
 
 class
 	WSF_GRID_COLUMN
+
 create
 	make_column
+
 feature {NONE}
 
-	make_column(a_header,a_field:STRING)
+	make_column (a_header, a_field: STRING)
-	do
+		do
-		header:=a_header
+			header := a_header
-		field_name:=a_field
+			field_name := a_field
-		sorting_name:=a_field
+			sorting_name := a_field
-	end
+		end
+
 feature
 
 	header: STRING

library/server/wsf_html/webcontrol/input/wsf_checkbox_control.e

@@ -63,13 +63,13 @@ feature -- Implementation
 
 	render: STRING
 		local
-			attributes: STRING
+			attrs: STRING
 		do
-			attributes := "type=%"checkbox%""
+			attrs := "type=%"checkbox%""
 			if checked then
-				attributes := attributes + " checked"
+				attrs := attrs + " checked"
 			end
-			Result := render_tag_with_tagname ("div", render_tag_with_tagname ("label", render_tag ("", attributes) + " " + label, "", ""), "", "checkbox")
+			Result := render_tag_with_tagname ("div", render_tag_with_tagname ("label", render_tag ("", attrs) + " " + label, "", ""), "", "checkbox")
 		end
 
 	value: BOOLEAN

library/server/wsf_html/webcontrol/navbar/wsf_navbar_control.e

@@ -16,25 +16,36 @@ create
 
 feature
 
-			collapse: WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
+	collapse: WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
-			nav: WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
-
 
+	nav: WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
 
 feature {NONE} -- Initialization
 
-	make_navbar(brand:STRING)
+	make_navbar (brand: STRING)
 		local
 			container: WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
 			header: WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
+			collapse_button: WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
 		do
 			make_multi_control
 			add_class ("navbar navbar-inverse navbar-fixed-top")
+			create container.make_multi_control
 			create header.make_multi_control
-			create nav.make_multi_control
+			create collapse_button.make_with_tag_name ("button")
 			create collapse.make_multi_control
-			add_control (header)
+			create nav.make_multi_control
+			container.add_class ("container")
 			header.add_class ("navbar-header")
+			collapse_button.add_class ("navbar-toggle")
+			collapse_button.set_attributes ("data-target=%".navbar-collapse%" data-toggle=%"collapse%" type=%"button%"")
+			collapse.add_class ("navbar-collapse")
+			collapse.add_control (nav)
+			container.add_control (header)
+			container.add_control (collapse)
+			add_control (container)
+
+				--	EXAMPLE NAVBAR USED AS REFERENCE
 				--			<div class="navbar navbar-inverse navbar-fixed-top">
 				--            <div class="container">
 				--                <div class="navbar-header">

library/server/wsf_html/webcontrol/wsf_control.e

@@ -67,11 +67,11 @@ feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT
 
 feature -- Rendering
 
-	render_tag_with_tagname (tag, body, attributes, css_classes_string: STRING): STRING
+	render_tag_with_tagname (tag, body, attrs, css_classes_string: STRING): STRING
 		local
 			l_attributes: STRING
 		do
-			l_attributes := attributes
+			l_attributes := attrs
 			if not css_classes_string.is_empty then
 				l_attributes := l_attributes + " class=%"" + css_classes_string + "%""
 			end

library/server/wsf_html/webcontrol/wsf_html_control.e

@@ -16,7 +16,7 @@ create
 
 feature {NONE}
 
-	make_html (n,t,v: STRING)
+	make_html (n, t, v: STRING)
 		do
 			make_control (n, t)
 			html := v
@@ -49,7 +49,7 @@ feature -- Implementation
 
 	render: STRING
 		do
-			Result := render_tag (html,"")
+			Result := render_tag (html, "")
 		end
 
 	set_html (t: STRING)
@@ -69,6 +69,4 @@ feature
 
 	html: STRING
 
-
 end
-

library/server/wsf_html/webcontrol/wsf_stateless_control.e

@@ -13,6 +13,10 @@ feature
 
 	css_classes: LINKED_LIST [STRING]
 
+		--TODO: Maybe improve
+
+	attributes: detachable STRING
+
 feature {NONE}
 
 	make (a_tag_name: STRING)
@@ -25,12 +29,17 @@ feature {NONE}
 
 feature
 
+	set_attributes (a: STRING)
+		do
+			attributes := a
+		end
+
 	add_class (c: STRING)
 		do
 			css_classes.extend (c)
 		end
 
-	render_tag (body, attributes: STRING): STRING
+	render_tag (body, attrs: STRING): STRING
 		local
 			css_classes_string: STRING
 		do
@@ -40,14 +49,14 @@ feature
 			loop
 				css_classes_string := css_classes_string + " " + c.item
 			end
-			Result := render_tag_with_tagname (tag_name, body, attributes, css_classes_string)
+			Result := render_tag_with_tagname (tag_name, body, attrs, css_classes_string)
 		end
 
-	render_tag_with_tagname (tag, body, attributes, css_classes_string: STRING): STRING
+	render_tag_with_tagname (tag, body, attrs, css_classes_string: STRING): STRING
 		local
 			l_attributes: STRING
 		do
-			l_attributes := attributes
+			l_attributes := attrs
 			if not css_classes_string.is_empty then
 				l_attributes := l_attributes + " class=%"" + css_classes_string + "%""
 			end

library/server/wsf_html/wsf_html-safe.ecf

@@ -24,6 +24,7 @@
 			<cluster name="input" location=".\webcontrol\input\"/>
 			<cluster name="grid" location=".\webcontrol\grid\"/>
 			<cluster name="autocompletions" location=".\webcontrol\autocompletions\"/>
+			<cluster name="navbar" location="\home\severin\Documents\EWF\EWF\library\server\wsf_html\webcontrol\navbar\"/>
 		</cluster>
 		<cluster name="widget" location=".\widget\" recursive="true"/>
 	</target>