The
image
initarg for an
image-pinboard-object
should either be a generic image itself, or the name of a file containing a generic image that is in a directory in your image search path. 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")
:process nil))
(setf (capi:image-pinboard-object-image image)
"graphics/lwsplash.bmp")
(setf (capi:image-pinboard-object-image image)
"applications/images/info.bmp")
(capi:contain
(make-instance
'capi:image-pinboard-object
:image "graphics/lwsplash.bmp"
:title "LispWorks Splashscreen"
:title-adjust :right
:title-position :bottom))