Added progress callback

2013-09-15 22:13:51 +02:00
parent 647beea245
commit 2fbffb8c9e
6 changed files with 63 additions and 5 deletions
--- a/examples/widgetapp/progress/increasing_progresssource.e
+++ b/examples/widgetapp/progress/increasing_progresssource.e
@@ -0,0 +1,36 @@
+note
+	description: "Summary description for {INCREASING_PROGRESSSOURCE}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	INCREASING_PROGRESSSOURCE
+
+inherit
+
+	WSF_PROGRESSSOURCE
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	progress_value: INTEGER
+
+	make
+		do
+			progress_value := 0
+		end
+
+feature -- Implementation
+
+	progress: INTEGER
+		do
+			Result := progress_value
+			if progress_value < 100 then
+				progress_value := progress_value + 1
+			end
+		end
+
+end