>From 8527c9e3c04a5fc6b635db1c8a608266a996e3d4 Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio <address@hidden>
Date: Mon, 16 Sep 2013 10:52:05 +0200
Subject: [PATCH] Add shortcuts to the Debugger

---
 packages/visualgst/ChangeLog               |  4 ++++
 packages/visualgst/Debugger/GtkDebugger.st | 13 +++++++++----
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/packages/visualgst/ChangeLog b/packages/visualgst/ChangeLog
index 30d9e35..82d85f7 100644
--- a/packages/visualgst/ChangeLog
+++ b/packages/visualgst/ChangeLog
@@ -1,3 +1,7 @@
+2013-09-16  Gwenael Casaccio  <address@hidden>
+
+	* Debugger/GtkDebugger.st: Add shortcuts to the debugger
+
 2013-08-20  Gwenael Casaccio  <address@hidden>
 
 	* Extensions.st: Move some extensions to Debugger/Extensions.
diff --git a/packages/visualgst/Debugger/GtkDebugger.st b/packages/visualgst/Debugger/GtkDebugger.st
index 3860bc9..c46233a 100644
--- a/packages/visualgst/Debugger/GtkDebugger.st
+++ b/packages/visualgst/Debugger/GtkDebugger.st
@@ -141,11 +141,16 @@ GtkBrowsingTool subclass: GtkDebugger [
     createExecuteMenus [
 	<category: 'user interface'>
 
-        ^{GTK.GtkMenuItem menuItem: 'Step' connectTo: self selector: #step.
-            GTK.GtkMenuItem menuItem: 'Step into' connectTo: self selector: #stepInto.
-            GTK.GtkMenuItem menuItem: 'Step over' connectTo: self selector: #stepOver.
+        self accelGroup append: {{'F8'. '<Debugger>/Step'}}.
+        self accelGroup append: {{'F7'. '<Debugger>/StepOver'}}.
+        self accelGroup append: {{'F5'. '<Debugger>/Run'}}.
+        self accelGroup append: {{'<shift>F8'. '<Debugger>/StepOut'}}.
+
+        ^{GTK.GtkMenuItem menuItem: 'Step' accelPath: '<Debugger>/Step' connectTo: self selector: #step.
+            GTK.GtkMenuItem menuItem: 'Step into' accelPath: '<Debugger>/Step' connectTo: self selector: #stepInto.
+            GTK.GtkMenuItem menuItem: 'Step over' accelPath: '<Debugger>/StepOver' connectTo: self selector: #stepOver.
             GTK.GtkMenuItem new.
-            GTK.GtkMenuItem menuItem: 'Run' connectTo: self selector: #run}
+            GTK.GtkMenuItem menuItem: 'Run' accelPath: '<Debugger>/Run' connectTo: self selector: #run}
     ]
 
     createMenus [
-- 
1.8.1.2