From 45e3a6d7ccd8289e10d08a2c36e10c4f33ad425b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Severin=20M=C3=BCnger?= <souvarin.m@gmail.com>
Date: Sun, 15 Sep 2013 13:25:01 +0200
Subject: [PATCH] Small changes

---
 examples/widgetapp/demo_progresssource.e | 36 ++++++++++++++++++++++++
 examples/widgetapp/sample_page.e         |  5 ++++
 2 files changed, 41 insertions(+)
 create mode 100644 examples/widgetapp/demo_progresssource.e

diff --git a/examples/widgetapp/demo_progresssource.e b/examples/widgetapp/demo_progresssource.e
new file mode 100644
index 00000000..ce023d33
--- /dev/null
+++ b/examples/widgetapp/demo_progresssource.e
@@ -0,0 +1,36 @@
+note
+	description: "Summary description for {DEMO_PROGRESSSOURCE}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	DEMO_PROGRESSSOURCE
+
+inherit
+
+	WSF_PROGRESSSOURCE
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make
+		do
+			prog := 20
+		end
+
+feature -- Implementation
+
+	progress: INTEGER
+		do
+			if prog < 100 then
+				prog := prog + 1
+			end
+			Result := prog
+		end
+
+	prog: INTEGER
+
+end
diff --git a/examples/widgetapp/sample_page.e b/examples/widgetapp/sample_page.e
index e8143306..fd684c81 100644
--- a/examples/widgetapp/sample_page.e
+++ b/examples/widgetapp/sample_page.e
@@ -25,6 +25,8 @@ feature
 			n2_container: WSF_FORM_ELEMENT_CONTROL [STRING]
 			n3_container: WSF_FORM_ELEMENT_CONTROL [STRING]
 			cats_container: WSF_FORM_ELEMENT_CONTROL [LIST [STRING]]
+			progress: WSF_PROGRESS_CONTROL
+			progress_source: WSF_PROGRESSSOURCE
 			link1: WSF_BASIC_CONTROL
 			link2: WSF_BASIC_CONTROL
 			s: FLAG_AUTOCOMPLETION
@@ -37,6 +39,8 @@ feature
 			create autocompletion1.make_autocomplete ("autocompletion1", s)
 			create button1.make_button ("sample_button1", "SUM")
 			create textbox_result.make_html ("txtBox3", "p", "")
+			create {DEMO_PROGRESSSOURCE} progress_source.make
+			create progress.make_progress ("progress1", progress_source)
 			create link1.make_control ("a")
 			create link2.make_control ("a")
 			link1.set_content ("Home")
@@ -69,6 +73,7 @@ feature
 			form.add_control (create {WSF_FORM_ELEMENT_CONTROL [STRING]}.make_form_element ("Result", textbox_result))
 			container.add_control (navbar)
 			container.add_control (form)
+			container.add_control (progress)
 			control := container
 		end