# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1237571055 -3600
# Node ID 1ba96eea53a840af01d57307c701f962f6887c97
# Parent  045386da8abd68bb11ee19d63e4bbbf9ca81e39e
Menu for ModalBox (in order to genrate coveredBy: events, which are not received)

diff -r 045386da8abd -r 1ba96eea53a8 EventMonitor.st
--- a/EventMonitor.st	Thu Mar 19 17:16:00 2009 +0100
+++ b/EventMonitor.st	Fri Mar 20 18:44:15 2009 +0100
@@ -131,6 +131,11 @@
            (Menu
               (
                (MenuItem
+                  label: 'Open Modal Box'
+                  itemValue: openModalBox
+                  translateLabel: true
+                )
+               (MenuItem
                   label: 'Exit'
                   itemValue: closeRequest
                   translateLabel: true
@@ -224,8 +229,6 @@
         nil
         nil
       )
-
-    "Modified: / 04-10-2006 / 13:15:11 / cg"
 ! !
 
 !EventMonitor methodsFor:'aspects'!
@@ -298,6 +301,10 @@
 
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#EVENTMONITOR'.
+!
+
+openModalBox
+    Dialog information:'Modal Box'
 ! !
 
 !EventMonitor::EventMonitorView class methodsFor:'defaults'!
@@ -489,6 +496,15 @@
     "Modified: / 04-10-2006 / 13:08:49 / cg"
 !
 
+coveredBy:coveringView
+
+    self showEventTime.
+
+    outputStream nextPutAll:'coveredBy: '.
+    coveringView printOn:outputStream.
+    outputStream cr.
+!
+
 dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate
     event isButtonMotionEvent ifTrue:[
         self showButtonMotion ifFalse:[^ self].
@@ -696,7 +712,9 @@
     self enableKeyReleaseEvents.
     self enableEnterLeaveEvents.
     self enableFocusEvents.
-    self enableEvent:#visibilityChange
+    self enableEvent:#visibilityChange.
+"/    self enableEvent:#structureNotify.
+"/    self enableEvent:#substructureNotify.
 
     "Modified: 7.3.1996 / 15:06:42 / cg"
 ! !
@@ -704,5 +722,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.29 2008-05-01 21:05:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.30 2009-03-20 17:44:15 stefan Exp $'
 ! !