From a2a7220b721be2cdb3dcea47a2575a2fb26b3e9f Mon Sep 17 00:00:00 2001
From: Matt Ward <ward.matt@gmail.com>
Date: Tue, 18 Sep 2012 20:32:32 +0100
Subject: [PATCH] Support select all shortcut in scripting editor read-only
 region.

---
 .../Scripting/Project/Src/ScriptingConsole.cs            | 1 +
 .../Test/Console/ScriptingConsoleReadOnlyRegionsTests.cs | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/src/AddIns/BackendBindings/Scripting/Project/Src/ScriptingConsole.cs b/src/AddIns/BackendBindings/Scripting/Project/Src/ScriptingConsole.cs
index 765ad4967a..750ff0dbc2 100644
--- a/src/AddIns/BackendBindings/Scripting/Project/Src/ScriptingConsole.cs
+++ b/src/AddIns/BackendBindings/Scripting/Project/Src/ScriptingConsole.cs
@@ -153,6 +153,7 @@ namespace ICSharpCode.Scripting
 					case Key.Down:
 						return false;
 					case Key.C:
+					case Key.A:
 						return keyModifiers != ModifierKeys.Control;
 					default:
 						return true;
diff --git a/src/AddIns/BackendBindings/Scripting/Test/Console/ScriptingConsoleReadOnlyRegionsTests.cs b/src/AddIns/BackendBindings/Scripting/Test/Console/ScriptingConsoleReadOnlyRegionsTests.cs
index 83d3d0a5c4..8c465c6ad8 100644
--- a/src/AddIns/BackendBindings/Scripting/Test/Console/ScriptingConsoleReadOnlyRegionsTests.cs
+++ b/src/AddIns/BackendBindings/Scripting/Test/Console/ScriptingConsoleReadOnlyRegionsTests.cs
@@ -164,5 +164,14 @@ namespace ICSharpCode.Scripting.Tests.Console
 			
 			Assert.IsFalse(result);
 		}
+		
+		[Test]
+		public void PreviewKeyDown_ControlAInReadOnlyRegion_HandledSetToFalseSoSelectAllInReadOnlyRegionAllowed()
+		{
+			FakeConsoleTextEditor.RaisePreviewKeyDownEventForDialogKey(Key.Left);
+			bool result = FakeConsoleTextEditor.RaisePreviewKeyDownEvent(Key.A, ModifierKeys.Control);
+			
+			Assert.IsFalse(result);
+		}
 	}
 }