# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 962027004 -7200
# Node ID 0669c01aa5a5ed33b53680a42d2c346d7db51e9c
# Parent  250f55f8068334d169509b8ed9808cdb6c3348cf
removeKey:ifAbsent:

diff -r 250f55f80683 -r 0669c01aa5a5 DisplaySurface.st
--- a/DisplaySurface.st	Thu Jun 15 11:07:50 2000 +0200
+++ b/DisplaySurface.st	Mon Jun 26 15:43:24 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview' }"
+
 GraphicsMedium subclass:#DisplaySurface
 	instanceVariableNames:'viewBackground cursor eventMask middleButtonMenu keyCommands
 		gotExpose backed flags delegate updateRegion'
@@ -1994,7 +1996,7 @@
 
 removeActionForKey:aKey
     keyCommands notNil ifTrue:[
-	keyCommands removeKey:aKey ifAbsent:[]
+        keyCommands removeKey:aKey ifAbsent:nil
     ]
 ! !
 
@@ -2286,5 +2288,6 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.76 2000-01-25 10:58:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.77 2000-06-26 13:43:24 cg Exp $'
 ! !
+DisplaySurface initialize!