--- a/WindowEvent.st Tue Nov 26 10:13:53 2002 +0100
+++ b/WindowEvent.st Tue Nov 26 10:14:13 2002 +0100
@@ -159,6 +159,13 @@
privateIn:WindowEvent
!
+WindowEvent subclass:#TerminateEvent
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:WindowEvent
+!
+
WindowEvent subclass:#WindowMapUnmapEvent
instanceVariableNames:''
classVariableNames:''
@@ -448,13 +455,13 @@
!
saveAndTerminateView:aView
- ^ (self basicNew)
+ ^ (TerminateEvent basicNew)
for:aView
type:#saveAndTerminate
!
terminateView:aView
- ^ (self basicNew)
+ ^ (TerminateEvent basicNew)
for:aView
type:#terminate
!
@@ -898,6 +905,10 @@
"Created: 9.1.1996 / 15:51:36 / cg"
!
+isTerminateEvent
+ ^ false
+!
+
isUnmapEvent
"return true, if this is an unmap event event"
@@ -911,6 +922,7 @@
self isButtonEvent ifTrue:[^ true].
self isKeyEvent ifTrue:[^ true].
+ self isTerminateEvent ifTrue:[^ true].
self isPointerEnterEvent ifTrue:[^ true].
"/ self isPointerLeaveEvent ifTrue:[^ true]. -- why disabled ?
@@ -1401,6 +1413,12 @@
! !
+!WindowEvent::TerminateEvent methodsFor:'queries'!
+
+isTerminateEvent
+ ^ true
+! !
+
!WindowEvent::WindowMapUnmapEvent methodsFor:'queries'!
isMapEvent
@@ -1422,7 +1440,7 @@
!WindowEvent class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.74 2002-10-31 20:20:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.75 2002-11-26 09:14:13 cg Exp $'
! !
WindowEvent::InputEvent initialize!