Skip to content
Snippets Groups Projects
Commit 18239f0f authored by Jacek Złydach's avatar Jacek Złydach
Browse files

Added puzzle demo.

+ notes about gesture handling breaking on mouse scroll wheel
+ dropped a (declare (values ...)) in #'do-text-screen-real-estate.
parent 56f5b9b0
No related branches found
No related tags found
No related merge requests found
......@@ -138,6 +138,8 @@
(keyboard-event ;--- KEY-PRESS-EVENT?
(keyboard-event-matches-gesture-name-p event gesture-name port))))
;;; NOTE seems to break with a NIL somewhere if mouse scroll wheel is used.
;;; -- jacek.zlydach 2017-06-03
(defun button-press-event-matches-gesture-name-p (event gesture-name &optional port)
#---ignore (declare (ignore port))
#+++ignore (unless port
......@@ -146,8 +148,8 @@
(modifier-state (event-modifier-state event)))
(declare (type fixnum button modifier-state))
(button-and-modifier-state-matches-gesture-name-p
(- (integer-length button) #.(integer-length +pointer-left-button+))
modifier-state gesture-name)))
(- (integer-length button) #.(integer-length +pointer-left-button+))
modifier-state gesture-name)))
;; GESTURE-NAME either names a gesture, or is a canonicalized gesture spec
(defun keyboard-event-matches-gesture-name-p (event gesture-name &optional port)
......
......@@ -1061,8 +1061,7 @@
string start end
cursor-x cursor-y height baseline style max-x)
;; Continuation is a function which takes L T R B Baseline
(declare (dynamic-extent continuation)
(values new-cursor-x new-cursor-y new-height new-baseline))
(declare (dynamic-extent continuation))
(unless start (setq start 0))
(unless end (setq end (length string)))
(let ((vsp (stream-vertical-spacing stream))
......
......@@ -215,7 +215,7 @@
;(:file "cad-demo" :depends-on ("demo-driver"))
;(:file "navdata" :depends-on ("packages"))
;(:file "navfun" :depends-on ("navdata"))
;(:file "puzzle" :depends-on ("demo-driver"))
(:file "puzzle" :depends-on ("demo-driver"))
;(:file "address-book" :depends-on ("demo-driver"))
;(:file "thinkadot" :depends-on ("demo-driver"))
;(:file "plot" :depends-on ("demo-driver"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment