--- a/MenuView.st	Mon Mar 25 23:14:53 1996 +0100
+++ b/MenuView.st	Tue Mar 26 16:26:53 1996 +0100
@@ -2182,6 +2182,22 @@
             ^ untranslatedKey
         ]
     ].
+    "/
+    "/ explicit modifier-key combination ?
+    "/
+    (aSymbolicKey startsWith:#Cmd) ifTrue:[
+        ^ (self shortKeyPrefixFor:#Cmd) , (aSymbolicKey copyFrom:4)
+    ].
+    (aSymbolicKey startsWith:#Alt) ifTrue:[
+        ^ (self shortKeyPrefixFor:#Alt) , (aSymbolicKey copyFrom:4)
+    ].
+    (aSymbolicKey startsWith:#Meta) ifTrue:[
+        ^ (self shortKeyPrefixFor:#Meta) , (aSymbolicKey copyFrom:5)
+    ].
+    (aSymbolicKey startsWith:#Ctrl) ifTrue:[
+        ^ (self shortKeyPrefixFor:#Ctrl) , (aSymbolicKey copyFrom:5)
+    ].
+
     ^ aSymbolicKey
 
     "Created: 28.2.1996 / 18:20:09 / cg"
@@ -2442,5 +2458,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.66 1996-03-24 17:59:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.67 1996-03-26 15:26:53 ca Exp $'
 ! !