GDBEvent.st
changeset 6 d935bc59f6f4
parent 4 62366cc0fd95
child 9 5cc8797f6523
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GDBEvent.st	Mon Jun 02 22:25:25 2014 +0100
@@ -0,0 +1,69 @@
+"{ Package: 'jv:libgdbs' }"
+
+Announcement subclass:#GDBEvent
+	instanceVariableNames:'token'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'GDB-Core-Events'
+!
+
+!GDBEvent class methodsFor:'testing'!
+
+isAbstract
+    ^ self == GDBEvent
+
+    "Modified: / 02-06-2014 / 22:20:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDBEvent methodsFor:'accessing'!
+
+token
+    ^ token
+!
+
+token:something
+    token := something.
+! !
+
+!GDBEvent methodsFor:'testing'!
+
+isCommandResultEvent
+    ^ false
+!
+
+isConsoleOutputEvent
+    ^ false
+
+    "Created: / 01-06-2014 / 23:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isExecutionEvent
+    ^ false
+
+    "Created: / 01-06-2014 / 23:38:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isLogOutputEvent
+    ^ false
+
+    "Created: / 01-06-2014 / 23:37:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isNotificationEvent
+    ^ false
+
+    "Created: / 01-06-2014 / 23:37:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isStatusEvent
+    ^ false
+
+    "Created: / 01-06-2014 / 23:38:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isTargetOutputEvent
+    ^ false
+
+    "Created: / 01-06-2014 / 23:37:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+