--- a/EventMonitor.st	Thu Mar 07 13:45:36 1996 +0100
+++ b/EventMonitor.st	Thu Mar 07 15:07:24 1996 +0100
@@ -10,13 +10,11 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:1.4 on 19-Jul-91 at 18:34:01'!
-
 StandardSystemView subclass:#EventMonitor
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Interface-Tools'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Tools'
 !
 
 !EventMonitor class methodsFor:'documentation'!
@@ -35,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.10 1995-11-11 15:39:54 cg Exp $'
-!
-
 documentation
 "
     like xev - show events.
@@ -59,41 +53,11 @@
     ^ 'Event Monitor'
 ! !
 
-!EventMonitor methodsFor:'initialization'!
-
-initialize
-    |l|
-
-    super initialize.
-
-    l := Label label:'see event trace\on standard output' withCRs in:self.
-    l borderWidth:0
-! !
-
 !EventMonitor methodsFor:'events'!
 
-keyPress:key x:x y:y
-    'KeyPress x:' print. x print. ' y:' print. y print.
-    (key isMemberOf:Character) ifTrue:[
-	' character key:' print. key print.
-	' (' print. key asciiValue print. ')' print
-    ] ifFalse:[
-	' symbolic key:' print. key print
-    ].
-
-    '' printNL
-!
-
-keyRelease:key x:x y:y
-    'KeyRelease x:' print. x print. ' y:' print. y print.
-    (key isMemberOf:Character) ifTrue:[
-	' character key:' print. key print.
-	' (' print. key asciiValue print. ')' print
-    ] ifFalse:[
-	' symbolic key:' print. key print
-    ].
-
-    '' printNL
+buttonMotion:state x:x y:y
+    'buttonMotion x:' print. x print. ' y:' print. y print.
+    ' state:' print. state printNL
 !
 
 buttonPress:button x:x y:y
@@ -106,9 +70,53 @@
     ' button:' print. button printNL
 !
 
-buttonMotion:button x:x y:y
-    'buttonMotion x:' print. x print. ' y:' print. y print.
-    ' button:' print. button printNL
+configureX:x y:y width:newWidth height:newHeight
+    'configure x:' print. x print. ' y:' print. y print.
+    ' width:' print. newWidth print. ' height:' print. newHeight printNL.
+
+    ^ super configureX:x y:y width:newWidth height:newHeight
+
+    "Modified: 7.3.1996 / 15:05:15 / cg"
+!
+
+focusIn
+    'focusIn' printNL.
+
+    "Created: 7.3.1996 / 15:06:18 / cg"
+!
+
+focusOut
+    'focusOut' printNL.
+
+    "Created: 7.3.1996 / 15:06:21 / cg"
+!
+
+keyPress:key x:x y:y
+    'KeyPress x:' print. x print. ' y:' print. y print.
+    (key isMemberOf:Character) ifTrue:[
+        ' character key:' print. key print.
+        ' (' print. key asciiValue print. ')' print
+    ] ifFalse:[
+        ' symbolic key:' print. key storeString print
+    ].
+
+    '' printNL
+!
+
+keyRelease:key x:x y:y
+    'KeyRelease x:' print. x print. ' y:' print. y print.
+    (key isMemberOf:Character) ifTrue:[
+        ' character key:' print. key print.
+        ' (' print. key asciiValue print. ')' print
+    ] ifFalse:[
+        ' symbolic key:' print. key storeString print
+    ].
+
+    '' printNL
+!
+
+mapped
+    'mapped' printNL
 !
 
 pointerEnter:state x:x y:y
@@ -120,16 +128,23 @@
     'pointerLeave state:' print. state printNL
 !
 
-mapped
-    'mapped' printNL
-!
-
 unmapped
     'unmapped' printNL
 !
 
 visibilityChange:how
-    'visibilityChange:' print. how printNL
+    'visibilityChange:' print. how storeString printNL
+! !
+
+!EventMonitor methodsFor:'initialization'!
+
+initialize
+    |l|
+
+    super initialize.
+
+    l := Label label:'see event trace\on standard output' withCRs in:self.
+    l borderWidth:0
 ! !
 
 !EventMonitor methodsFor:'realization'!
@@ -140,5 +155,14 @@
     self enableMotionEvents.
     self enableKeyReleaseEvents.
     self enableEnterLeaveEvents.
+    self enableFocusEvents.
     self enableEvent:#visibilityChange
+
+    "Modified: 7.3.1996 / 15:06:42 / cg"
 ! !
+
+!EventMonitor class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.11 1996-03-07 14:07:24 cg Exp $'
+! !