+ 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(