+ if noSourceImage then
+ updateCurrentImage ()
+
+ win.txtPatient.TextChanged.AddHandler(fun obj args -> state.PatientID <- win.txtPatient.Text)
+
+ win.menuExit.Click.AddHandler(fun obj args -> win.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 ())
+
+ win.menuAddSourceImage.Click.AddHandler(fun obj args -> importImage ())