a4a1773c8e17f378f0c524b04a394b28061487ae
[master-thesis.git] / Parasitemia / Parasitemia / GUI / State.fs
1 module State
2
3 open System.Collections.Generic
4
5 type State () =
6 let cells = List<Types.Cell>()
7
8 member val FilePath: string = "" with get, set
9 member val PatientID: string = "" with get, set
10
11 member this.Save () =
12 let data = { Pia.sources = []; Pia.patientID = this.PatientID }
13 Pia.save this.FilePath data
14
15 member this.Load () =
16 let data = Pia.load this.FilePath
17 this.PatientID <- data.patientID