diff --git a/clog-docs.lisp b/clog-docs.lisp
index c390bc9..7662c97 100644
--- a/clog-docs.lisp
+++ b/clog-docs.lisp
@@ -198,7 +198,7 @@ The data is passed in the second argument to the event handler as a
 property list. To retrieve the data use (getf data :property) the available
 properties (to use for :property) are based on the event type.
 
-From clog-base
+Events in clog-base
 
      :event-type   :mouse
      :x            x relative to the target
@@ -211,6 +211,16 @@ From clog-base
      :shift-key    t or nil if shift-key held down
      :meta-key     t or nil if meta-key held down
 
+     :event-type   :pointer
+     :x            x relative to the target
+     :y            y relative to the target
+     :screen-x     x relative to the users screen
+     :screen-y     y relative to the users screen
+     :which-button which mouse button clicked
+     :alt-key      t or nil if alt-key held down
+     :ctrl-key     t or nil if ctrl-key held down
+     :shift-key    t or nil if shift-key held down
+     :meta-key     t or nil if meta-key held down
 
      :event-type     :touch
      :x              x relative to the target
@@ -231,7 +241,7 @@ From clog-base
      :shift-key  t or nil if shift-key held down
      :meta-key   t or nil if meta-key held down
 
-From clog-window
+Events in clog-window
 
      :event-type :storage
      :key        local storage key that was updated (even in another window)
diff --git a/clog-gui.lisp b/clog-gui.lisp
index ebd4ab3..4a4b3a6 100644
--- a/clog-gui.lisp
+++ b/clog-gui.lisp
@@ -215,6 +215,7 @@ The on-window-change clog-obj received is the new window"))
     (let (new-order 
 	  (order -9999))
       (maphash (lambda (key value)
+		 (declare (ignore key))
 		 (setf new-order (z-index value))
 		 (when (>= new-order order)
 		   (setf order new-order)
@@ -409,6 +410,7 @@ The on-window-change clog-obj received is the new window"))
     (set-on-pointer-down (win-title win) 'on-gui-drag-down :capture-pointer t)
     (set-on-pointer-down (sizer win) 'on-gui-drag-down :capture-pointer t)    
     (set-on-click (closer win) (lambda (obj)
+				 (declare (ignore obj))
 				 (when (fire-on-window-can-close win)
 				   (remhash (format nil "~A" html-id) (windows app))
 				   (remove-from-dom win)
diff --git a/doc/clog-manual.html b/doc/clog-manual.html
index 56a8d21..3d6669a 100644
--- a/doc/clog-manual.html
+++ b/doc/clog-manual.html
@@ -245,7 +245,7 @@ The data is passed in the second argument to the event handler as a
 property list. To retrieve the data use (getf data :property) the available
 properties (to use for :property) are based on the event type.</p>
 
-<p>From clog-base</p>
+<p>Events in clog-base</p>
 
 <pre><code> :event-type   :mouse
  :x            x relative to the target
@@ -258,6 +258,16 @@ properties (to use for :property) are based on the event type.</p>
  :shift-key    t or nil if shift-key held down
  :meta-key     t or nil if meta-key held down
 
+ :event-type   :pointer
+ :x            x relative to the target
+ :y            y relative to the target
+ :screen-x     x relative to the users screen
+ :screen-y     y relative to the users screen
+ :which-button which mouse button clicked
+ :alt-key      t or nil if alt-key held down
+ :ctrl-key     t or nil if ctrl-key held down
+ :shift-key    t or nil if shift-key held down
+ :meta-key     t or nil if meta-key held down
 
  :event-type     :touch
  :x              x relative to the target
@@ -279,7 +289,7 @@ properties (to use for :property) are based on the event type.</p>
  :meta-key   t or nil if meta-key held down
 </code></pre>
 
-<p>From clog-window</p>
+<p>Events in clog-window</p>
 
 <pre><code> :event-type :storage
  :key        local storage key that was updated (even in another window)
@@ -5120,7 +5130,7 @@ on-storage event is fired for changes to :local storage keys.</p></li>
 <p><a id='x-28CLOG-3ABODY-ELEMENT-20GENERIC-FUNCTION-29'></a></p>
 
 <ul>
-<li><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ABODY-ELEMENT-20GENERIC-FUNCTION-29" >BODY-ELEMENT</a></span></span> <span class="locative-args">OBJECT</span></span></li>
+<li><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ABODY-ELEMENT-20GENERIC-FUNCTION-29" >BODY-ELEMENT</a></span></span> <span class="locative-args">SELF</span></span></li>
 </ul>
 
 <p><a id='x-28CLOG-3ADOCUMENT-ELEMENT-20GENERIC-FUNCTION-29'></a></p>