--- a/DevWorkst.st Wed Mar 20 16:43:15 1996 +0100
+++ b/DevWorkst.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/Attic/DevWorkst.st,v 1.78 1996-03-20 15:43:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.79 1996-03-20 16:04:13 cg Exp $'
! !
DeviceWorkstation initialize!
--- 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!