initial checkin
authorClaus Gittinger <cg@exept.de>
Wed, 29 Jun 2011 12:16:48 +0200
changeset 5753 9935dec4f119
parent 5752 634e5d61abea
child 5754 31212430adeb
initial checkin
WidgetEvent.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/WidgetEvent.st	Wed Jun 29 12:16:48 2011 +0200
@@ -0,0 +1,30 @@
+"{ Package: 'stx:libview' }"
+
+WindowEvent subclass:#WidgetEvent
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Support-UI'
+!
+
+!WidgetEvent class methodsFor:'documentation'!
+
+documentation
+"
+    Abstract superclass for higher level ínternal widget events (like menu-selections).
+"
+! !
+
+!WidgetEvent methodsFor:'testing'!
+
+isWidgetEvent
+    ^ true
+
+    "Created: / 29-06-2011 / 12:05:17 / cg"
+! !
+
+!WidgetEvent class methodsFor:'documentation'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview/WidgetEvent.st,v 1.1 2011-06-29 10:16:48 cg Exp $'
+! !