From 68f75fa3fcd95decf1a339d461517fdc101a3f04 Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 11 Feb 2021 20:41:54 -0500 Subject: [PATCH] doc updates --- clog-docs.lisp | 14 ++++++++++++-- clog-gui.lisp | 2 ++ doc/clog-manual.html | 16 +++++++++++++--- 3 files changed, 27 insertions(+), 5 deletions(-) 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.

-

From clog-base

+

Events in clog-base

 :event-type   :mouse
  :x            x relative to the target
@@ -258,6 +258,16 @@ properties (to use for :property) are based on the event type.

  :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.

  :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)
@@ -5120,7 +5130,7 @@ on-storage event is fired for changes to :local storage keys.