aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-09-14 18:25:33 -0500
committerGravatar Pouar <pouar@pouar.net>2020-09-15 09:40:01 -0500
commit7cffc5597504a8a254031723963f0b7ee9067c90 (patch)
treea83fb7175b5dcfa0e069dd8ab0d02e3f32451302
parentforgot to update these docs (diff)
get this macro to work in the latest McCLIM
apparently clim:extended-input-stream isn't supposed to be used as a character stream, as apparently not treating it like one removed a ton of hacks in McCLIM, probably good idea to do the same here
-rw-r--r--core/libexec/macros.lisp9
1 files changed, 6 insertions, 3 deletions
diff --git a/core/libexec/macros.lisp b/core/libexec/macros.lisp
index aa8abc7..a07e0a1 100644
--- a/core/libexec/macros.lisp
+++ b/core/libexec/macros.lisp
@@ -76,7 +76,8 @@
:emacs-frame-lambda (lambda (frame)
(let ((*query-io* (clim:frame-query-io frame)))
,@body
- (read-char *query-io*))))))))
+ (loop until (eql #\Return (c:read-gesture
+ :stream *query-io*))))))))))
(defmacro present-with-effective-frame (&body body)
`(cond
(c:*application-frame*
@@ -88,7 +89,8 @@
:emacs-frame-lambda (lambda (frame)
(let ((*query-io* (clim:frame-query-io frame)))
,@body
- (read-char *query-io*))))))))
+ (loop until (eql #\Return (c:read-gesture
+ :stream *query-io*))))))))))
(defmacro updating-present-with-effective-frame
((stream
&key (unique-id nil unique-id-supplied-p) (id-test nil id-test-supplied-p)
@@ -113,7 +115,8 @@
:emacs-frame-lambda (lambda (frame)
(let ((*query-io* (clim:frame-query-io frame)))
,@body
- (read-char *query-io*))))))))
+ (loop until (eql #\Return (c:read-gesture
+ :stream *query-io*))))))))))
(defmacro defevent (event-id &rest args)
`(progn
(setf (gethash ',event-id *events*) (make-instance 'event :id ',event-id ,@args))