Gets and sets the size of an object inside its parent pinboard-layout.
The generic function
pinboard-pane-size
returns as multiple values
width
,
height
the dimensions of
self
.
(let* ((po (make-instance 'capi:pinboard-object
:x 5 :y 5
:width 5 :height 5
:graphics-args
'(:background :red)))
(pl (capi:contain
(make-instance 'capi:pinboard-layout
:description (list po)
:visible-min-width 200
:visible-min-height 200))))
(capi:execute-with-interface
(capi:element-interface pl)
#'(lambda(po)
(dotimes (x 20)
(mp:wait-processing-events 1)
(let ((new-x (* (1+ x) 10))
(new-y (* 5 (+ 2 x))))
(setf (capi:pinboard-pane-size po)
(values new-x new-y)))))
po))