luft/render/tracy-capture-tests.lisp
in-package#:luft.render.tests
deftestluft-tracy-capture-commands-join-the-shared-m-x-vocabulary
let*
viewer
clim:make-application-frame'render:viewer
labels
mapcar#'mcluv:command-menu-entry-labelentries
ok
deftestidle-tracy-lifecycle-attachment-does-not-open-an-overlay-pass
let*
controller
luv.tracy.capture:make-tracy-capture-controller:application-name"LUFT test":directory
uiop:temporary-directory
:open-on-completion-pnilinstrument
unwind-protect
ok
null
defun command-menu-entries-for-tables
(tables &key owner-frame (inherited nil))Return cached M-x entries read from TABLES. Each command appears once even when command-table inheritance exposes it in several layers. OWNER-FRAME, when supplied, excludes commands which that application currently disables. Commands with required arguments remain out until M-x has an argument-prompting interaction…
defgeneric command-menu-tables-for
(owner-frame)Return the command tables whose executable vocabulary M-x shows. The default is OWNER-FRAME's complete table. Applications may either pass an explicit list to MAKE-EMBEDDED-COMMAND-MENU or specialize this protocol when their semantic layers should remain separately inspectable.
defun viewer-key-command
(viewer event)defun key-press
(key-name &key character modifiers repeat-p)defun make-tracy-capture-controller
(&key application-name directory
(runtime (make-instance 'native-tracy-capture-runtime))
(open-on-completion-p t)
(graceful-stop-seconds 5.0d0))defgeneric viewer-instrument-present-p
(instrument viewer)Whether INSTRUMENT currently participates in VIEWER.
defgeneric release-viewer-instrument
(instrument viewer)Release INSTRUMENT while VIEWER's GPU device is live.
defun tracy-capture-controller-released-p
(controller)