--- a/KeybdMap.st Mon Nov 11 15:11:20 1996 +0100
+++ b/KeybdMap.st Tue Nov 12 10:41:01 1996 +0100
@@ -89,12 +89,12 @@
instead of physical ones (such as #AltC, #AltX)"
aKey == logicalKey ifTrue:[
- self removeKey:aKey
+ self removeKey:aKey ifAbsent:nil
] ifFalse:[
self at:aKey put:logicalKey
]
- "Modified: 23.4.1996 / 21:54:45 / cg"
+ "Modified: 12.11.1996 / 10:30:56 / cg"
!
bindValue:logicalKey to:key1 followedBy:key2
@@ -136,5 +136,5 @@
!KeyboardMap class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/KeybdMap.st,v 1.11 1996-04-25 16:33:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/KeybdMap.st,v 1.12 1996-11-12 09:41:01 cg Exp $'
! !
--- a/KeyboardMap.st Mon Nov 11 15:11:20 1996 +0100
+++ b/KeyboardMap.st Tue Nov 12 10:41:01 1996 +0100
@@ -89,12 +89,12 @@
instead of physical ones (such as #AltC, #AltX)"
aKey == logicalKey ifTrue:[
- self removeKey:aKey
+ self removeKey:aKey ifAbsent:nil
] ifFalse:[
self at:aKey put:logicalKey
]
- "Modified: 23.4.1996 / 21:54:45 / cg"
+ "Modified: 12.11.1996 / 10:30:56 / cg"
!
bindValue:logicalKey to:key1 followedBy:key2
@@ -136,5 +136,5 @@
!KeyboardMap class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/KeyboardMap.st,v 1.11 1996-04-25 16:33:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/KeyboardMap.st,v 1.12 1996-11-12 09:41:01 cg Exp $'
! !