--- a/DeviceWorkstation.st	Fri Mar 05 16:29:10 2004 +0100
+++ b/DeviceWorkstation.st	Fri Mar 05 19:26:44 2004 +0100
@@ -5897,11 +5897,11 @@
     or:[untranslatedKey == #'Super_R']]) ifTrue:[
         ^ #Super
     ].
-    (untranslatedKey == #'Menu'   
-    or:[untranslatedKey == #'Menu_L'   
-    or:[untranslatedKey == #'Menu_R']]) ifTrue:[
-        ^ #Menu
-    ].
+    "/ (untranslatedKey == #'Menu'   
+    "/ or:[untranslatedKey == #'Menu_L'   
+    "/ or:[untranslatedKey == #'Menu_R']]) ifTrue:[
+    "/     ^ #Menu
+    "/ ].
     ^ nil
 
     "Created: 28.2.1996 / 16:40:46 / cg"
@@ -7367,7 +7367,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.456 2004-03-05 12:46:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.457 2004-03-05 18:26:44 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!