mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

remove ' on keyword symbole

Browse source
This commit is contained in:
David Botton 2021-12-05 14:17:43 -05:00
parent 889fff3166
commit bb79257b07
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tutorial/08-tutorial.lisp
View file

@ -26,13 +26,13 @@
(bordeaux-threads:with-lock-held ((drag-mutex app)) ; Ensure the first event received (bordeaux-threads:with-lock-held ((drag-mutex app)) ; Ensure the first event received
(unless (in-drag-p app) ; to drag is the only one, ie only (unless (in-drag-p app) ; to drag is the only one, ie only
(setf (in-drag-p app) t) ; the innermost box is dragged. (setf (in-drag-p app) t) ; the innermost box is dragged.
(let* ((mouse-x (getf data ':screen-x)) ; Use the screen coordinates not (let* ((mouse-x (getf data :screen-x)) ; Use the screen coordinates not
(mouse-y (getf data ':screen-y)) ; the coordinates relative to the obj (mouse-y (getf data :screen-y)) ; the coordinates relative to the obj
(obj-top (parse-integer (top obj) :junk-allowed t)) (obj-top (parse-integer (top obj) :junk-allowed t))
(obj-left (parse-integer (left obj) :junk-allowed t))) (obj-left (parse-integer (left obj) :junk-allowed t)))
(setf (drag-x app) (- mouse-x obj-left)) (setf (drag-x app) (- mouse-x obj-left))
(setf (drag-y app) (- mouse-y obj-top)) (setf (drag-y app) (- mouse-y obj-top))
(if (eq (getf data ':event-type) :touch) (if (eq (getf data :event-type) :touch)
(progn (progn
(set-on-touch-move obj 'on-mouse-move) (set-on-touch-move obj 'on-mouse-move)
(set-on-touch-end obj 'stop-obj-grab) (set-on-touch-end obj 'stop-obj-grab)
@ -44,8 +44,8 @@
(defun on-mouse-move (obj data) (defun on-mouse-move (obj data)
(let* ((app (connection-data-item obj "app-data")) (let* ((app (connection-data-item obj "app-data"))
(x (getf data ':screen-x)) (x (getf data :screen-x))
(y (getf data ':screen-y))) (y (getf data :screen-y)))
(setf (top obj) (unit :px (- y (drag-y app)))) (setf (top obj) (unit :px (- y (drag-y app))))
(setf (left obj) (unit :px (- x (drag-x app)))))) (setf (left obj) (unit :px (- x (drag-x app))))))