--- a/WebKitRenderer.st	Fri Jun 10 12:29:34 2011 +0000
+++ b/WebKitRenderer.st	Fri Jun 10 18:02:43 2011 +0000
@@ -2,7 +2,7 @@
 
 Object subclass:#WebKitRenderer
 	instanceVariableNames:'view pid socket channel'
-	classVariableNames:'UzblCorePath'
+	classVariableNames:'UzblCorePath Debug'
 	poolDictionaries:''
 	category:'Views-WebKit'
 !
@@ -14,6 +14,19 @@
 	privateIn:WebKitRenderer
 !
 
+
+!WebKitRenderer class methodsFor:'initialization'!
+
+initialize
+    "Invoked at system start or when the class is dynamically loaded."
+
+    "/ please change as required (and remove this comment)
+
+    Debug := false
+
+    "Modified: / 10-06-2011 / 18:39:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !WebKitRenderer class methodsFor:'instance creation'!
 
 for: aWebKitView
@@ -26,6 +39,13 @@
 
 !WebKitRenderer class methodsFor:'accessing'!
 
+debug: aBoolean
+
+    Debug := aBoolean
+
+    "Created: / 10-06-2011 / 18:40:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 uzblCorePath
 
     UzblCorePath ifNil:[
@@ -96,12 +116,16 @@
     | ev sym |
     ev := channel nextEvent.
 
-    (self respondsTo: (sym := (ev first , ':') asSymbol))
-        ifTrue:[self perform: sym with: ev]
-        ifFalse:[Transcript showCR: 'UNKNOWN EVENT: ', ev asArray printString].
+    (self respondsTo: (sym := (ev first , ':') asSymbol)) ifTrue: [
+        self perform: sym with: ev
+    ] ifFalse: [
+        Debug ifTrue:[
+            Transcript showCR: 'UNKNOWN EVENT: ', ev asArray printString
+        ]
+    ].
 
     "Created: / 06-06-2011 / 18:13:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-06-2011 / 11:35:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 10-06-2011 / 18:40:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 eventLoop
@@ -558,3 +582,5 @@
 version_SVN
     ^ '$Id$'
 ! !
+
+WebKitRenderer initialize!