let app = new Application()
let mainWindow = Views.MainWindow()
let ctrl (name: string): 'a =
let app = new Application()
let mainWindow = Views.MainWindow()
let ctrl (name: string): 'a =
let menuLoadFile: MenuItem = ctrl "menuOpen"
let menuNewFile: MenuItem = ctrl "menuNew"
let menuAddSourceImage: MenuItem = ctrl "menuAddSourceImage"
let menuLoadFile: MenuItem = ctrl "menuOpen"
let menuNewFile: MenuItem = ctrl "menuNew"
let menuAddSourceImage: MenuItem = ctrl "menuAddSourceImage"
let menuHightlightRBC: MenuItem = ctrl "menuHightlightRBC"
let txtPatient: TextBox = ctrl "txtPatient"
let menuHightlightRBC: MenuItem = ctrl "menuHightlightRBC"
let txtPatient: TextBox = ctrl "txtPatient"
txtPatient.LostFocus.AddHandler(fun obj args -> state.PatientID <- txtPatient.Text)
menuExit.Click.AddHandler(fun obj args ->
txtPatient.LostFocus.AddHandler(fun obj args -> state.PatientID <- txtPatient.Text)
menuExit.Click.AddHandler(fun obj args ->
let dialog = OpenFileDialog(Filter = PiaZ.filter)
let res = dialog.ShowDialog()
if res.HasValue && res.Value
let dialog = OpenFileDialog(Filter = PiaZ.filter)
let res = dialog.ShowDialog()
if res.HasValue && res.Value