--- a/EventMonitor.st	Fri Nov 13 06:40:27 2015 +0100
+++ b/EventMonitor.st	Mon Nov 16 13:33:19 2015 +0000
@@ -11,19 +11,21 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 ApplicationModel subclass:#EventMonitor
-        instanceVariableNames:'outputSelector'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Monitors-ST/X'
+	instanceVariableNames:'outputSelector'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monitors-ST/X'
 !
 
 View subclass:#EventMonitorView
-        instanceVariableNames:'outputStream labelHolder showButtonMotion showFocusEvents
-                showTimestamp'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:EventMonitor
+	instanceVariableNames:'outputStream labelHolder showButtonMotion showFocusEvents
+		showTimestamp'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:EventMonitor
 !
 
 !EventMonitor class methodsFor:'documentation'!