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