--- a/EventMonitor.st	Wed Dec 30 18:36:47 1998 +0100
+++ b/EventMonitor.st	Thu Jan 07 14:37:53 1999 +0100
@@ -150,9 +150,10 @@
 !
 
 mapped
-    'mapped' printCR
+    'mapped' printCR.
+    super mapped.
 
-    "Modified: 5.4.1997 / 01:24:00 / cg"
+    "Modified: / 6.1.1999 / 11:04:32 / cg"
 !
 
 pointerEnter:state x:x y:y
@@ -169,15 +170,17 @@
 !
 
 unmapped
-    'unmapped' printCR
+    'unmapped' printCR.
+    super unmapped.
 
-    "Modified: 5.4.1997 / 01:24:09 / cg"
+    "Modified: / 6.1.1999 / 11:04:22 / cg"
 !
 
 visibilityChange:how
-    'visibilityChange:' print. how storeString printCR
+    'visibilityChange:' print. how storeString printCR.
+    super visibilityChange:how
 
-    "Modified: 5.4.1997 / 01:24:07 / cg"
+    "Modified: / 6.1.1999 / 11:04:12 / cg"
 ! !
 
 !EventMonitor methodsFor:'initialization'!
@@ -206,5 +209,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.17 1998-08-10 14:03:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.18 1999-01-07 13:36:59 cg Exp $'
 ! !