--- a/DevWorkst.st	Mon Aug 23 22:33:13 1999 +0200
+++ b/DevWorkst.st	Tue Aug 24 01:06:14 1999 +0200
@@ -4591,6 +4591,15 @@
     "Modified: / 27.1.1998 / 20:17:27 / cg"
 !
 
+initializeDefaultValues
+    buttonTranslation := ButtonTranslation.
+    multiClickTimeDelta := MultiClickTimeDelta.
+
+    self initializeModifierMappings
+
+
+!
+
 initializeDeviceResources
     "initialize heavily used device resources - to avoid looking them up later"
 
@@ -4636,6 +4645,17 @@
     "
 !
 
+initializeModifierMappings
+    shiftModifiers := ctrlModifiers := altModifiers := metaModifiers := nil.
+
+    shiftModifiers := #(Shift_L Shift_R Shift).
+    ctrlModifiers := #(Control_L Control_R Control).
+    metaModifiers := #(Alt_L Meta_L Meta_R Meta).
+    altModifiers := #(Alt_R Alt).
+
+
+!
+
 initializeScreenProperties
     "setup screen specific properties."
 
@@ -6491,6 +6511,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.319 1999-08-23 17:58:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.320 1999-08-23 23:06:14 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Mon Aug 23 22:33:13 1999 +0200
+++ b/DeviceWorkstation.st	Tue Aug 24 01:06:14 1999 +0200
@@ -4591,6 +4591,15 @@
     "Modified: / 27.1.1998 / 20:17:27 / cg"
 !
 
+initializeDefaultValues
+    buttonTranslation := ButtonTranslation.
+    multiClickTimeDelta := MultiClickTimeDelta.
+
+    self initializeModifierMappings
+
+
+!
+
 initializeDeviceResources
     "initialize heavily used device resources - to avoid looking them up later"
 
@@ -4636,6 +4645,17 @@
     "
 !
 
+initializeModifierMappings
+    shiftModifiers := ctrlModifiers := altModifiers := metaModifiers := nil.
+
+    shiftModifiers := #(Shift_L Shift_R Shift).
+    ctrlModifiers := #(Control_L Control_R Control).
+    metaModifiers := #(Alt_L Meta_L Meta_R Meta).
+    altModifiers := #(Alt_R Alt).
+
+
+!
+
 initializeScreenProperties
     "setup screen specific properties."
 
@@ -6491,6 +6511,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.319 1999-08-23 17:58:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.320 1999-08-23 23:06:14 cg Exp $'
 ! !
 DeviceWorkstation initialize!