--- a/DeviceWorkstation.st	Tue Jul 05 10:43:14 2005 +0200
+++ b/DeviceWorkstation.st	Fri Jul 08 12:15:55 2005 +0200
@@ -5441,8 +5441,12 @@
 
     shiftModifiers := #(Shift_L Shift_R Shift).
     ctrlModifiers := #(Control_L Control_R Control).
-    metaModifiers := #(Alt_L Meta_L Meta_R Meta).
-    altModifiers := #(Alt_R Alt).
+    metaModifiers := #(Meta_L Meta_R Meta).
+    altModifiers := #(Alt_L Alt_R Alt).
+
+    "
+     Display initializeModifierMappings
+    "
 !
 
 initializeScreenProperties
@@ -6056,19 +6060,20 @@
      Called with every keyPress/keyRelease to update the xxxDown flags."
 
     (altModifiers notNil and:[altModifiers includes:key]) ifTrue:[
-	altDown := pressed
+altModifiers printCR.
+        altDown := pressed
     ] ifFalse:[
-	(metaModifiers notNil and:[metaModifiers includes:key]) ifTrue:[
-	    metaDown := pressed
-	] ifFalse:[
-	    (shiftModifiers notNil and:[shiftModifiers includes:key]) ifTrue:[
-		shiftDown := pressed
-	    ] ifFalse:[
-		(ctrlModifiers notNil and:[ctrlModifiers includes:key]) ifTrue:[
-		    ctrlDown := pressed
-		]
-	    ]
-	]
+        (metaModifiers notNil and:[metaModifiers includes:key]) ifTrue:[
+            metaDown := pressed
+        ] ifFalse:[
+            (shiftModifiers notNil and:[shiftModifiers includes:key]) ifTrue:[
+                shiftDown := pressed
+            ] ifFalse:[
+                (ctrlModifiers notNil and:[ctrlModifiers includes:key]) ifTrue:[
+                    ctrlDown := pressed
+                ]
+            ]
+        ]
     ]
 
     "Modified: 2.1.1996 / 15:00:25 / cg"
@@ -7529,7 +7534,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.492 2005-04-18 16:25:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.493 2005-07-08 10:15:55 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!