Menu for ModalBox (in order to genrate coveredBy: events, which are not received)
--- 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 $'
! !