Gets and sets the location of an object inside its parent static-layout.
capi
static-layout-child-position self => x, y
setf (static-layout-child-position self) (values x y) => x, y
self⇩ |
A pinboard-object or a pane. |
Non-negative integers. |
Non-negative integers. |
The accessor generic function static-layout-child-position
returns as multiple values x, y the horizontal and vertical coordinates of self inside its parent static-layout.
There is also a setf expansion which sets the location of self in its parent.
(let* ((po (make-instance 'capi:item-pinboard-object :text "5x5" :x 5 :y 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:item-text po) (format nil "~ax~a" new-x new-y)) (setf (capi:static-layout-child-position po) (values new-x new-y))))) po))
CAPI User Guide and Reference Manual (Unix version) - 01 Dec 2021 19:32:42