--- a/DebugView.st	Fri Oct 13 23:09:49 2017 +0100
+++ b/DebugView.st	Tue Aug 01 09:27:20 2017 +0200
@@ -170,8 +170,21 @@
         bindValue: #DebuggerNext to: #F8;
         bindValue: #DebuggerSend to: #F7.
 
+      "/Other possibilities actions, not bound by default...
+
+      "/bindValue: #DebuggerAbort to: ...
+      "/bindValue: #DebuggerDefine to: ...
+      "/bindValue: #DebuggerGotoResponsibleApplicationMethod to: ...
+      "/bindValue: #DebuggerGoToDialogOpener to: ...
+      "/bindValue: #DebuggerNext to: ...
+      "/bindValue: #DebuggerResend to: ...
+      "/bindValue: #DebuggerRestart to: ...
+      "/bindValue: #DebuggerTerminate to: ...
+
+    "Ceated: / 04-02-2017 / 22:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+
     "Created: / 04-02-2017 / 22:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-03-2017 / 16:40:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-10-2017 / 22:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 reinitialize
@@ -1148,6 +1161,7 @@
             enabled: canRestart
             label: 'Restart'
             itemValue: doRestart
+            shortcutKey: DebuggerRestart
           )
          (MenuItem
             label: '-'
@@ -1220,6 +1234,8 @@
         nil
         nil
       )
+
+    "Modified: / 13-10-2017 / 22:57:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileMenuSpec
@@ -1451,7 +1467,7 @@
          (MenuItem
             label: 'Abort'
             itemValue: doAbort
-            shortcutKey: Abort
+            shortcutKey: DebuggerAbort
           )
          (MenuItem
             enabled: abortAllIsHandled
@@ -1475,7 +1491,7 @@
          (MenuItem
             label: 'Debug_Terminate'
             itemValue: doTerminate
-            shortcutKey: DebugTerminate
+            shortcutKey: DebuggerTerminate
           )
          (MenuItem
             label: 'Hard Terminate (Danger)'
@@ -1486,6 +1502,8 @@
         nil
         nil
       )
+
+    "Modified: / 13-10-2017 / 22:57:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 selectorMenuSpec
@@ -1521,11 +1539,14 @@
             enabled: canDefineMethod
             label: 'Define Missing Method'
             itemValue: doDefineMethod
+            shortcutKey: DebuggerDefine
           )
          )
         nil
         nil
       )
+
+    "Modified: / 13-10-2017 / 22:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 viewMenuSpec
@@ -3333,7 +3354,7 @@
 
 initializeAbortButtonIn:bpanel
     abortButton := Button
-                label:(resources string:'Abort'), (self shortKeyStringForAction: #Abort)
+                label:(resources string:'Abort'), (self shortKeyStringForAction: #DebuggerAbort)
                 action:[
                     abortButton turnOffWithoutRedraw.
                     self doAbort
@@ -3342,9 +3363,9 @@
 
     abortButton name:'abortButton'.
 
-    "Created: / 17.11.2001 / 20:56:47 / cg"
-    "Modified: / 17.11.2001 / 20:57:17 / cg"
+    "Created: / 17-11-2001 / 20:56:47 / cg"
     "Modified: / 16-08-2017 / 08:48:50 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 13-10-2017 / 22:52:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeButtons1In:bpanel
@@ -3643,7 +3664,7 @@
 
 initializeDefineButtonIn:bpanel
     defineButton := Button
-                label:(resources string:'Define')
+                label:(resources string:'Define') , (self shortKeyStringForAction: #DebuggerDefine)
                 action:[
                     defineButton turnOffWithoutRedraw.
                     self doDefine
@@ -3653,7 +3674,8 @@
     defineButton name:'defineButton'.
     defineButton beInvisible
 
-    "Created: / 17.11.2001 / 21:02:48 / cg"
+    "Created: / 17-11-2001 / 21:02:48 / cg"
+    "Modified: / 13-10-2017 / 22:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeFlags
@@ -3668,7 +3690,7 @@
 
 initializeGotoApplicationActionMethodButtonIn:bpanel
     gotoApplicationActionMethodButton := Button
-                label:(resources string:'Goto Responsible Application Method') , (self shortKeyStringForAction: #GotoResponsibleApplicationMethod)
+                label:(resources string:'Goto Responsible Application Method') , (self shortKeyStringForAction: #DebuggerGotoResponsibleApplicationMethod)
                 action:[
                     gotoApplicationActionMethodButton turnOffWithoutRedraw.
                     self doGotoApplicationActionMethod
@@ -3679,11 +3701,12 @@
     gotoApplicationActionMethodButton beInvisible
 
     "Modified: / 16-08-2017 / 09:07:00 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 13-10-2017 / 22:50:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeGotoDialogOpenerButtonIn:bpanel
     gotoDialogOpenerButton := Button
-                label:(resources string:'Goto Dialog Opener')
+                label:(resources string:'Goto Dialog Opener') , (self shortKeyStringForAction: #DebuggerGoToDialogOpener)
                 action:[
                     gotoDialogOpenerButton turnOffWithoutRedraw.
                     self doGotoDialogOpener
@@ -3692,6 +3715,8 @@
 
     gotoDialogOpenerButton name:'gotoDialogOpenerButton'.
     gotoDialogOpenerButton beInvisible
+
+    "Modified: / 13-10-2017 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeInspectorViewsIn:panel
@@ -3743,7 +3768,7 @@
 
 initializeResendButtonIn:bpanel
     resendButton := Button
-                label:(resources string:'Resend') , (self shortKeyStringForAction: #Resend)
+                label:(resources string:'Resend') , (self shortKeyStringForAction: #DebuggerResend)
                 action:[
                     resendButton turnOff.
                     self doResend
@@ -3756,11 +3781,12 @@
     restartButton beInvisible.
 
     "Modified: / 16-08-2017 / 09:05:00 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 13-10-2017 / 22:50:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeRestartButtonIn:bpanel
     restartButton := Button
-                label:(resources string:'Restart')
+                label:(resources string:'Restart'), (self shortKeyStringForAction: #DebuggerRestart)
                 action:[
                     restartButton turnOff.
                     self doRestart
@@ -3769,7 +3795,8 @@
 
     restartButton name:'restartButton'
 
-    "Created: / 17.11.2001 / 20:58:52 / cg"
+    "Created: / 17-11-2001 / 20:58:52 / cg"
+    "Modified: / 13-10-2017 / 22:51:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeReturnButtonIn:bpanel
@@ -3818,7 +3845,7 @@
 
 initializeTerminateButtonIn:bpanel
     terminateButton := Button
-                label:(resources string:'Debug_Terminate') , (self shortKeyStringForAction: #DebugTerminate)
+                label:(resources string:'Debug_Terminate') , (self shortKeyStringForAction: #DebuggerTerminate)
                 action:[
                     terminateButton turnOffWithoutRedraw.
                     self doTerminate
@@ -3829,8 +3856,9 @@
     terminateButton backgroundColor:Color red lightened.
     "/ terminateButton foregroundColor:Color red.
 
-    "Created: / 17.11.2001 / 21:02:20 / cg"
+    "Created: / 17-11-2001 / 21:02:20 / cg"
     "Modified: / 16-08-2017 / 09:17:10 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 13-10-2017 / 22:51:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 postRealize
@@ -9662,7 +9690,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1  %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.