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