projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update the Logger component.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaUI
/
Analysis.fs
diff --git
a/Parasitemia/ParasitemiaUI/Analysis.fs
b/Parasitemia/ParasitemiaUI/Analysis.fs
index
ceb61be
..
e276be6
100644
(file)
--- a/
Parasitemia/ParasitemiaUI/Analysis.fs
+++ b/
Parasitemia/ParasitemiaUI/Analysis.fs
@@
-27,7
+27,7
@@
let showWindow (parent : Window) (state : State.State) : bool =
let logListener =
{
new Logger.IListener with
let logListener =
{
new Logger.IListener with
- member this.NewEntry severity mess =
+ member this.NewEntry severity
_header
mess =
win.Dispatcher.Invoke(fun () ->
win.textLog.Inlines.Add(Documents.Run(mess))
win.textLog.Inlines.Add(Documents.LineBreak())
win.Dispatcher.Invoke(fun () ->
win.textLog.Inlines.Add(Documents.Run(mess))
win.textLog.Inlines.Add(Documents.LineBreak())
@@
-140,11
+140,11
@@
let showWindow (parent : Window) (state : State.State) : bool =
| Some results ->
for id, cells in results do
state.SetResult (int id) cells
| Some results ->
for id, cells in results do
state.SetResult (int id) cells
- Logger.Log.
User("All analyses terminated successfully")
+ Logger.Log.
Info "All analyses terminated successfully"
atLeastOneAnalysisPerformed <- true
analysisPerformed <- true
| None ->
atLeastOneAnalysisPerformed <- true
analysisPerformed <- true
| None ->
- Logger.Log.
User("Analysis aborted")
+ Logger.Log.
Info "Analysis aborted"
win.Dispatcher.Invoke(fun () ->
win.progress.Value <- if maybeResults.IsSome then 100. else 0.
win.Dispatcher.Invoke(fun () ->
win.progress.Value <- if maybeResults.IsSome then 100. else 0.