- MessageBox.Show(sprintf "The results cannot be exported in '%s'" state.FilePath, "Error exporting the files", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore
-
- win.txtPatient.TextChanged.AddHandler(fun obj args -> state.PatientID <- win.txtPatient.Text)
-
- win.menuExit.Click.AddHandler(fun obj args -> win.Root.Close())
- win.menuSave.Click.AddHandler(fun obj args -> saveCurrentDocument ())
- win.menuSaveAs.Click.AddHandler(fun obj args -> saveCurrentDocumentAsNewFile ())
- win.menuOpen.Click.AddHandler(fun obj args -> askLoadFile ())
- win.menuNew.Click.AddHandler(fun obj args -> newFile ())
- win.menuExportResults.Click.AddHandler(fun obj args -> exportResults ())
+ MessageBox.Show(sprintf "The results cannot be exported in \"%s\"" state.FilePath, "Error exporting the files", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore