# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 847791661 -3600
# Node ID 616388474f7ef36946a8bce0d2bb4f3eb5317951
# Parent  bf8720f0d73078abe03fcffb88dd11b5c9a4e880
checkin from browser

diff -r bf8720f0d730 -r 616388474f7e KeybdMap.st
--- 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 $'
 ! !
diff -r bf8720f0d730 -r 616388474f7e KeyboardMap.st
--- 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 $'
 ! !