--- a/WebKitRenderer.st	Sat Feb 11 20:20:57 2012 +0000
+++ b/WebKitRenderer.st	Sat Feb 18 23:12:37 2012 +0000
@@ -105,6 +105,13 @@
     "Modified: / 07-06-2011 / 19:29:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+PTR_MOVE: event
+
+    view buttonMotion: 0 x: event second y: event third
+
+    "Created: / 18-02-2012 / 14:31:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 TITLE_CHANGED: event
 
     event second = '(no title)' ifFalse:
@@ -117,8 +124,15 @@
 
 dispatchEvent
 
-    | ev sym |
-    ev := channel nextEvent.
+    view sensor pushUserEvent: #dispatchEvent: for:self withArgument: channel nextEvent.
+
+    "Created: / 06-06-2011 / 18:13:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-02-2012 / 14:36:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+dispatchEvent: ev
+
+    | sym |
 
     (self respondsTo: (sym := (ev first , ':') asSymbol)) ifTrue: [
         self perform: sym with: ev
@@ -128,8 +142,8 @@
         ]
     ].
 
-    "Created: / 06-06-2011 / 18:13:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 10-06-2011 / 18:40:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 18-02-2012 / 14:32:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 eventLoop

--- a/extensions.st	Sat Feb 11 20:20:57 2012 +0000
+++ b/extensions.st	Sat Feb 18 23:12:37 2012 +0000
@@ -1,6 +1,4 @@
-"{ Package: 'stx:libwebkit' }"
-
-!
+"{ Package: 'stx:libwebkit' }"!
 
 !GenericToolbarIconLibrary class methodsFor:'image specs-22x22'!
 
@@ -12,3 +10,9 @@
 
     "Created: / 11-06-2011 / 00:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+
+!stx_libwebkit class methodsFor:'documentation'!
+
+extensionsVersion_SVN
+    ^ '$Id$'
+! !
\ No newline at end of file