pinboard-layout highlight :invert and item-pinboard-objects with background colors error
Hi all,
Does anyone know why I get this bad interaction between a
pinboard-layout with :highlight :invert and an item-pinboard-object
with a :background <color> in its graphics-args? I don't see anything
in the docs on highlight-pinboard object to suggest that this is
prohibited. I'm on LWM 5.1.2 Intel.
(let* ((plain-item (make-instance 'capi:item-pinboard-object
:text "Plain Item"
:y 0))
(color-item (make-instance 'capi:item-pinboard-object
:text "Color Item"
:y 20
:graphics-args (list :foreground :blue)))
(fancy-item (make-instance 'capi:item-pinboard-object
:y 40
:text "Fancy Item"
:graphics-args (list :foreground :blue
:background :yellow)))
(pinboard (capi:contain (make-instance
'capi:pinboard-layout
:highlight-style :invert
:description (list plain-item
color-item
fancy-item)))))
;; first item inverts properly...
(sleep 1)
(capi:highlight-pinboard-object pinboard plain-item)
(capi:redraw-pinboard-object plain-item t)
;; as does the second one...
(sleep 1)
(capi:highlight-pinboard-object pinboard color-item)
(capi:redraw-pinboard-object color-item t)
;; but the third one signals an error: in ROUND of (NIL 1) arguments
;; should be of type REAL
(sleep 1)
(capi:highlight-pinboard-object pinboard fancy-item)
(capi:redraw-pinboard-object fancy-item t))
Thanks in advance,
//JT