luv

Workshop wiki

metabar-tests.lisp

luft/render/metabar-tests.lisp

system luft/render/test · 4 definitions · on GitHub

in-package#:luft.render.tests
defunmake-luft-metabar-test-frame
let*
clim:make-application-frame'mcluv:metabar:ownerviewer:vocabularyvocabulary:logical-heightheight
deftestluft-metabar-is-the-viewers-open-setting-protocol
let
viewer
clim:make-application-frame'render:viewer:sourcenil:playernil:speed4.0:sensitivity0.0032
ok
equal'
:geometry:navigation
ok
equal'
:bevel-width:construction-lines
ok
equal'
:movement-speed:mouse-sensitivity
ok
equal'
:reset-view:quit
ok
eq:commit-on-release
ok
=5.0
render::viewer-speedviewer
ok
<
abs
-0.01
render::viewer-sensitivityviewer
1.0e-7
deftestluft-metabar-input-does-not-run-viewer-work
let*
viewer
clim:make-application-frame'render:viewer:sourcenil:playernil:speed4.0
let
index
position:movement-speed
mcluv::metabar-rowsframe
:key#'mcluv::metabar-row-subject
okindex

Input has changed only the instrument's retained semantic state.

ok
=4.0
render::viewer-speedviewer
ok
=1
length
mcluv::metabar-pending-operationsframe

The application method runs at the viewer's next refresh boundary.

ok
=4.5
render::viewer-speedviewer
ok
null
mcluv::metabar-pending-operationsframe
deftestluft-metabar-shares-the-instrument-stack-below-m-x
let
metabar
make-instance'render::viewer-metabar-instrument:framenil:compositornil
command-menu
make-instance'render::viewer-command-menu-instrument:framenil:compositornil
viewer
clim:make-application-frame'render:viewer:sourcenil:playernil
setf
render::viewer-metabar-open-pmetabar
nil
render::viewer-metabar-slidemetabar
0d0

Even an immediately dismissed drawer receives the refresh which detaches it; otherwise the dispatcher's present guard would leak it.

let
ok
find'render::com-toggle-metabarentries:key#'mcluv:command-menu-entry-command-name