1968 or:[untranslatedKey == #'Meta_R' |
1968 or:[untranslatedKey == #'Meta_R' |
1969 or:[untranslatedKey == #'Cmd' |
1969 or:[untranslatedKey == #'Cmd' |
1970 or:[untranslatedKey == #'Cmd_L' |
1970 or:[untranslatedKey == #'Cmd_L' |
1971 or:[untranslatedKey == #'Cmd_R']]]]]]]]]]]]]]). |
1971 or:[untranslatedKey == #'Cmd_R']]]]]]]]]]]]]]). |
1972 |
1972 |
1973 ctrlDown ifTrue:[ |
1973 dontTranslate ifFalse:[ |
1974 dontTranslate ifFalse:[ |
1974 ctrlDown ifTrue:[ |
1975 xlatedKey := ('Ctrl' , xlatedKey asString) asSymbol |
1975 xlatedKey := 'Ctrl' , xlatedKey asString |
1976 ] |
1976 ]. |
1977 ]. |
1977 metaDown ifTrue:[ |
1978 metaDown ifTrue:[ |
1978 xlatedKey := 'Cmd' , xlatedKey asString |
1979 dontTranslate ifFalse:[ |
1979 ]. |
1980 xlatedKey := ('Cmd' , xlatedKey asString) asSymbol |
1980 altDown ifTrue:[ |
1981 ] |
1981 xlatedKey := 'Alt' , xlatedKey asString |
1982 ]. |
1982 ]. |
1983 altDown ifTrue:[ |
1983 xlatedKey isCharacter ifFalse:[ |
1984 dontTranslate ifFalse:[ |
1984 xlatedKey := xlatedKey asSymbol |
1985 xlatedKey := ('Alt' , xlatedKey asString) asSymbol |
1985 ]. |
1986 ] |
|
1987 ]. |
1986 ]. |
1988 |
1987 |
1989 xlatedKey := keyboardMap valueFor:xlatedKey. |
1988 xlatedKey := keyboardMap valueFor:xlatedKey. |
|
1989 xlatedKey isCharacter ifFalse:[ |
|
1990 xlatedKey := xlatedKey asSymbol |
|
1991 ]. |
1990 ^ xlatedKey |
1992 ^ xlatedKey |
1991 ! |
1993 ! |
1992 |
1994 |
1993 modifierKeyProcessing:key down:pressed |
1995 modifierKeyProcessing:key down:pressed |
1994 (altModifiers notNil and:[altModifiers includes:key]) ifTrue:[ |
1996 (altModifiers notNil and:[altModifiers includes:key]) ifTrue:[ |