The
image
initarg for an
image-pinboard-object
should either be an external-image or any other object accepted by load-image. The image displayed in the object can be changed dynamically using the writer function
(setf image-pinboard-object-image)
(cd (sys:lispworks-dir "examples/capi/"))
(setf image
(capi:contain
(make-instance
'capi:image-pinboard-object
:image "applications/images/info.bmp")))
(capi:apply-in-pane-process
(capi:element-parent image)
#'(setf capi:image-pinboard-object-image)
"graphics/lwsplash.bmp" image)
(capi:apply-in-pane-process
(capi:element-parent image)
#'(setf capi:image-pinboard-object-image)
"applications/images/info.bmp" image)
(capi:contain
(make-instance
'capi:image-pinboard-object
:image "graphics/lwsplash.bmp"
:title "LispWorks Splashscreen"
:title-adjust :right
:title-position :bottom))