--- a/WindowEvent.st	Thu Oct 25 02:35:52 2018 +0200
+++ b/WindowEvent.st	Thu Oct 25 02:46:26 2018 +0200
@@ -209,6 +209,13 @@
 	privateIn:WindowEvent
 !
 
+WindowEvent subclass:#WidgetSelectionWindowEvent
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:WindowEvent
+!
+
 WindowEvent subclass:#WindowMapUnmapEvent
 	instanceVariableNames:''
 	classVariableNames:''
@@ -1754,6 +1761,37 @@
     "Created: / 23-01-2012 / 10:02:42 / cg"
 ! !
 
+!WindowEvent::WidgetSelectionWindowEvent class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2008 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+
+"
+! !
+
+!WindowEvent::WidgetSelectionWindowEvent methodsFor:'accessing'!
+
+widget:aWidget
+    selector := #'widgetSelected:'.
+    args := Array with:aWidget class name.
+    receiver := aWidget.
+    timeStamp := Timestamp now.
+!
+
+widgetClassName
+
+    ^ args at: 1 
+! !
+
 !WindowEvent::WindowMapUnmapEvent methodsFor:'testing'!
 
 isMapEvent