- win.Root.InputBindings.Add(
- Input.KeyBinding(
- FSharp.ViewModule.FunCommand((fun obj -> exportResults ()), (fun obj -> true)),
- Input.KeyGesture(Input.Key.E, Input.ModifierKeys.Control))) |> ignore
+ win.InputBindings.Add (
+ Input.KeyBinding (
+ ViewModule.FunCommand ((fun obj -> exportResults ()), (fun obj -> true)),
+ Input.KeyGesture (Input.Key.E, Input.ModifierKeys.Control)
+ )
+ ) |> ignore
+
+ // Import an image.
+ win.InputBindings.Add (
+ Input.KeyBinding (
+ ViewModule.FunCommand ((fun obj -> importImage ()), (fun obj -> true)),
+ Input.KeyGesture (Input.Key.A, Input.ModifierKeys.Control)
+ )
+ ) |> ignore
+
+ // Show analysis dialog.
+ win.InputBindings.Add (
+ Input.KeyBinding (
+ ViewModule.FunCommand ((fun obj -> showAnalysisWindow ()), (fun obj -> state.SourceImages.Count () > 0)),
+ Input.KeyGesture (Input.Key.Y, Input.ModifierKeys.Control)
+ )
+ ) |> ignore
+
+ // Toggle RBC highlight.
+ win.InputBindings.Add (
+ Input.KeyBinding (
+ ViewModule.FunCommand (
+ (
+ fun obj ->
+ win.menuHightlightRBC.IsChecked <- not win.menuHightlightRBC.IsChecked
+ setHighlightRBC win.menuHightlightRBC.IsChecked
+ ),
+ (fun obj -> true)
+ ),
+ Input.KeyGesture (Input.Key.H, Input.ModifierKeys.Control)
+ )
+ ) |> ignore