--- a/DeviceWorkstation.st	Fri Oct 25 17:14:15 2013 +0200
+++ b/DeviceWorkstation.st	Mon Oct 28 12:38:42 2013 +0100
@@ -6782,6 +6782,20 @@
     "Modified: 28.2.1996 / 17:11:34 / cg"
 !
 
+modifierKeys
+    "a list of possible modifiers"
+
+    ^ #( #Control #'Control_L' #'Control_R'
+         #Ctrl    #'Ctrl_L'    #'Ctrl_R'
+         #'Shift' #'Shift_L'   #'Shift_R'
+         #'Alt'   #'Alt_L'     #'Alt_R'
+         #'Meta'  #'Meta_L'    #'Meta_R'
+         #'Cmd'   #'Cmd_L'     #'Cmd_R'
+         #'Super' #'Super_L'   #'Super_R'
+         #'Menu'  #'Menu_L'    #'Menu_R'
+     )
+!
+
 prependModifierToKey:untranslatedKey
     |xlatedKey s modifier|
 
@@ -8249,11 +8263,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.593 2013-10-25 15:14:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.594 2013-10-28 11:38:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.593 2013-10-25 15:14:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.594 2013-10-28 11:38:42 cg Exp $'
 ! !