X-Git-Url: http://git.euphorik.ch/index.cgi?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FGUI%2FState.fs;fp=Parasitemia%2FParasitemia%2FGUI%2FState.fs;h=a4a1773c8e17f378f0c524b04a394b28061487ae;hb=3ddaf64dc5ba6a7066a279ad75b9a1ee72194639;hp=0000000000000000000000000000000000000000;hpb=6b550c3faf4dea77738fa5c27cd9af277f45549c;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/GUI/State.fs b/Parasitemia/Parasitemia/GUI/State.fs
new file mode 100644
index 0000000..a4a1773
--- /dev/null
+++ b/Parasitemia/Parasitemia/GUI/State.fs
@@ -0,0 +1,17 @@
+module State
+
+open System.Collections.Generic
+
+type State () =
+    let cells = List<Types.Cell>()
+
+    member val FilePath: string = "" with get, set
+    member val PatientID: string = "" with get, set
+
+    member this.Save () =
+        let data = { Pia.sources = []; Pia.patientID = this.PatientID }
+        Pia.save this.FilePath data
+
+    member this.Load () =
+        let data = Pia.load this.FilePath
+        this.PatientID <- data.patientID
\ No newline at end of file