+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