--- a/MenuPanel.st	Thu Feb 09 00:04:49 2017 +0000
+++ b/MenuPanel.st	Fri May 12 17:49:16 2017 +0200
@@ -7928,8 +7928,9 @@
     (     menuItem shortcutKey notNil
      and:[(x := menuPanel shortKeyInset) ~~ 0
      and:[(scKey:= self shortcutKeyAsString) notNil]]
-    ) ifTrue:[
-        x := layout left + x.
+    ) ifTrue:[            
+        "/ x := layout left + x.
+        x := menuPanel width - (menuPanel font widthOf:scKey) - 20.
         y := t + ((h - (scKey heightOn:menuPanel)) // 2).
         y := y + menuPanel font ascent.
         scKey displayOn:menuPanel x:x y:y.
@@ -7960,7 +7961,8 @@
         ].
     ].
 
-    "Modified: / 6.9.1998 / 21:48:53 / cg"
+    "Modified: / 06-09-1998 / 21:48:53 / cg"
+    "Modified: / 12-05-2017 / 15:27:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 drawMenuIndicator