--- a/ModalBox.st	Mon Dec 08 19:16:50 1997 +0100
+++ b/ModalBox.st	Mon Dec 08 19:20:24 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 3:07:57 pm'                  !
-
 StandardSystemView subclass:#ModalBox
 	instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel'
 	classVariableNames:'UseTransientViews DefaultExtent'
@@ -195,15 +193,6 @@
     ]
 !
 
-pointerEnter:state x:x y:y
-    "mhmh: this seems to be a special X kludge;
-     without the following, we will not regain input focus after
-     pointer is reentered."
-
-    self getKeyboardFocus.
-    super pointerEnter:state x:x y:y
-!
-
 terminate
     "this is the close from a windowmanager
      (only if UseTransientViews == true)"
@@ -234,6 +223,22 @@
 "/    how ~~ #fullyVisible ifTrue:[
 "/        self raise
 "/    ]
+!
+
+xxxpointerEnter:state x:x y:y
+    "mhmh: this seems to be a special X kludge;
+     without the following, we will not regain input focus after
+     pointer is reentered."
+
+"/
+"/ experimental: disabled; bad behavior with some windowManagers,
+"/ if enter/leave events are processed late.
+"/
+    self getKeyboardFocus.
+    super pointerEnter:state x:x y:y
+
+    "Created: / 8.12.1997 / 19:18:45 / cg"
+    "Modified: / 8.12.1997 / 19:19:39 / cg"
 ! !
 
 !ModalBox methodsFor:'initialize / release'!
@@ -855,6 +860,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.60 1997-10-21 18:11:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.61 1997-12-08 18:20:24 cg Exp $'
 ! !
 ModalBox initialize!