Fixed various Unicode text handling.

Moved example folder inside the library, and renamed it "demo"
Improved example code.
This commit is contained in:
2014-04-22 16:36:29 +02:00
parent cc7d268610
commit 3c8dc0a9e1
47 changed files with 233 additions and 98 deletions

View File

@@ -0,0 +1,44 @@
note
description: "Summary description for {INCREASING_PROGRESSSOURCE}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
INCREASING_PROGRESSSOURCE
inherit
WSF_PROGRESS_SOURCE
create
make
feature {NONE} -- Initialization
control: detachable WSF_PROGRESS_CONTROL
make ()
do
end
feature -- Implementation
set_control (c: WSF_PROGRESS_CONTROL)
do
control := c
end
progress: INTEGER
do
if attached control as c then
Result := c.progress
if c.progress < 100 then
Result := Result + 1
end
else
Result := 0
end
end
end