Added dropdown control

draft/library/wsf_js_widget/kernel/dropdown/wsf_dropdown_control.e

@@ -11,17 +11,61 @@ inherit
 
 	WSF_MULTI_CONTROL [WSF_STATELESS_CONTROL]
 		rename
-			make as make_multi_control
+			make as make_multi_control,
+			make_with_tag_name as make_multi_control_with_tag_name
 		end
 
 create
-	make
+	make, make_with_tag_name
 
 feature {NONE} -- Initialization
 
-	make (n: STRING)
+	make (n, title: STRING)
+			-- Make a dropdown control with div tag name and specified menu title
 		do
-			make_multi_control (n)
+			make_with_tag_name (n, title, "div")
 		end
 
+	make_with_tag_name (n, title, t: STRING)
+			-- Make a dropdown control with specified tag name and menu title (such as li)
+		do
+			make_multi_control_with_tag_name (n, t)
+			add_class ("dropdown")
+			create {WSF_BASIC_CONTROL} dropdown_toggle.make_with_body_class ("a", "data-toggle=%"dropdown%" href=%"#%"", "dropdown-toggle", title + " <strong class=%"caret%"></strong>")
+			create dropdown_menu.make_with_tag_name (n + "_menu", "ul")
+			dropdown_menu.add_class ("dropdown-menu")
+			add_control (dropdown_toggle)
+			add_control (dropdown_menu)
+		end
+
+feature -- Change
+
+	add_item (c: WSF_STATELESS_CONTROL)
+		local
+			li: WSF_MULTI_CONTROL [WSF_STATELESS_CONTROL]
+		do
+			create li.make_with_tag_name (control_name + "_item" + dropdown_menu.controls.count.out, "li")
+			li.add_control (c)
+			dropdown_menu.add_control (li)
+		end
+
+	add_link_item (label, link: STRING)
+		local
+			c: WSF_BASIC_CONTROL
+		do
+			create c.make_with_body ("a", "href=%"" + link + "%"", label)
+			add_item (c)
+		end
+
+	add_divider
+		do
+			dropdown_menu.add_control (create {WSF_BASIC_CONTROL}.make_with_body_class ("li", "", "divider", ""))
+		end
+
+feature -- Properties
+
+	dropdown_toggle: WSF_STATELESS_CONTROL
+
+	dropdown_menu: WSF_MULTI_CONTROL [WSF_STATELESS_CONTROL]
+
 end

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

@@ -10,16 +10,18 @@ class
 inherit
 
 	WSF_STATELESS_CONTROL
+		rename
+			make as make_stateless_control
 		redefine
 			attributes
 		end
 
 create
-	make_control, make_with_body, make_with_body_class
+	make, make_with_body, make_with_body_class
 
 feature {NONE} -- Initialization
 
-	make_control (t: STRING)
+	make (t: STRING)
 			-- Initialize
 		do
 			make_with_body_class (t, "", "", "")
@@ -28,7 +30,7 @@ feature {NONE} -- Initialization
 	make_with_body (t, attr, b: STRING)
 			-- Initialize with specific attributes and body
 		do
-			make (t)
+			make_stateless_control (t)
 			attributes := attr
 			body := b
 		end