# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1038302053 -3600
# Node ID e2fd3df91e5c82580d2b19bfb2fa9dfe30802e8d
# Parent  33d21f28fb08ceb8ece3d886dfc68e3679ab4805
new event class for TerminateEvents

diff -r 33d21f28fb08 -r e2fd3df91e5c WindowEvent.st
--- 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!