Demo upload

examples/widgetapp/upload_page.e

@@ -0,0 +1,95 @@
+note
+	description: "Summary description for {UPLOAD_PAGE}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	UPLOAD_PAGE
+
+inherit
+
+	BASE_PAGE
+		redefine
+			initialize_controls
+		end
+
+create
+	make
+
+feature -- Implementation
+
+	initialize_controls
+		local
+		do
+			Precursor
+			control.add_control (create {WSF_BASIC_CONTROL}.make_with_body ("h1", "", "File Upload Demo"))
+			create form.make
+				--File
+			create filebox.make
+			filebox.set_upload_function (agent upload_file)
+			create n0_container.make ("File Upload", filebox)
+			n0_container.add_validator (create {WSF_FILESIZE_VALIDATOR}.make (10000000, "File must be smaller than 10MB"))
+			form.add_control (n0_container)
+				--File
+			create filebox2.make
+			create n1_container.make ("Auto start Upload", filebox2)
+			filebox2.set_upload_function (agent upload_file)
+			filebox2.set_change_event (agent
+				do
+					n1_container.validate
+					if n1_container.is_valid then
+						filebox2.start_upload
+					end
+				end)
+			n1_container.add_validator (create {WSF_FILESIZE_VALIDATOR}.make (10000000, "File must be smaller than 10MB"))
+			form.add_control (n1_container)
+
+				--Button 1
+			create button1.make ("Update")
+			button1.set_click_event (agent submit_form)
+			button1.add_class ("col-lg-offset-2")
+			form.add_control (button1)
+
+			control.add_control (form)
+			navbar.set_active (5)
+		end
+
+	submit_form
+	do
+		form.validate
+		if form.is_valid then
+			filebox.start_upload
+		end
+	end
+
+	upload_file (f: ITERABLE [WSF_UPLOADED_FILE]): detachable String
+		do
+				-- Store file on server and return link
+			across
+				f as i
+			loop
+				Result := i.item.filename
+			end
+		end
+
+	process
+		do
+		end
+
+feature -- Properties
+
+	form: WSF_FORM_CONTROL
+
+	button1: WSF_BUTTON_CONTROL
+
+	filebox: WSF_FILE_CONTROL
+
+	filebox2: WSF_FILE_CONTROL
+
+	n0_container: WSF_FORM_ELEMENT_CONTROL [detachable WSF_PENDING_FILE]
+
+	n1_container: WSF_FORM_ELEMENT_CONTROL [detachable WSF_PENDING_FILE]
+
+
+end