--- a/VDBEventLogApplication.st	Thu Jun 08 14:16:29 2017 +0100
+++ b/VDBEventLogApplication.st	Thu Jun 08 13:43:34 2017 +0100
@@ -118,8 +118,12 @@
         (
          (MenuItem
             enabled: hasEventSelectedHolder
-            label: 'Inspect'
-            itemValue: eventMenuInspect
+            label: 'Inspect Event'
+            itemValue: doInspect
+          )
+         (MenuItem
+            label: 'Clear Events'
+            itemValue: doClear
           )
          )
         nil
@@ -220,11 +224,21 @@
 
 !VDBEventLogApplication methodsFor:'menu actions'!
 
-eventMenuInspect
+doClear
+    <resource: #uiCallback>
+
+    eventList removeAll
+
+    "Modified: / 11-06-2017 / 20:18:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doInspect
     | event |
 
     event := self eventSelectionHolder value.
-    event notNil ifTrue:[event inspect].
+    event notNil ifTrue:[
+        event inspect
+    ].
 
     "Modified: / 07-06-2014 / 14:36:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !