DeviceWorkstation.st
changeset 533 ebc16cbb45fa
parent 532 ec41a5862bab
child 535 bff0f0248f93
--- a/DeviceWorkstation.st	Wed Mar 20 16:43:15 1996 +0100
+++ b/DeviceWorkstation.st	Wed Mar 20 17:04:13 1996 +0100
@@ -3386,11 +3386,11 @@
     |t modifiers|
 
     key == #Alt ifTrue:[
-	modifiers := altModifiers
+        modifiers := altModifiers
     ] ifFalse:[
-	key == #Cmd ifTrue:[
-	    modifiers := metaModifiers
-	]
+        key == #Cmd ifTrue:[
+            modifiers := metaModifiers
+        ]
     ].
     (modifiers size > 0) ifTrue:[
         t := modifiers first.
@@ -3402,7 +3402,7 @@
     ^ key
 
     "Created: 28.2.1996 / 17:07:08 / cg"
-    "Modified: 28.2.1996 / 17:10:54 / cg"
+    "Modified: 20.3.1996 / 17:03:39 / cg"
 !
 
 modifierKeyTranslationFor:untranslatedKey
@@ -3982,6 +3982,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.78 1996-03-20 15:43:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.79 1996-03-20 16:04:13 cg Exp $'
 ! !
 DeviceWorkstation initialize!