--- 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!