Class
element is the superclass of all CAPI objects that appear in a window. parentThe element containing this element.
interfaceThe interface containing this element.
min-widthThe minimum width of the element.
min-heightThe minimum height of the element.
max-widthThe maximum width of the element.
max-heightThe maximum height of the element.
xThe x position for the element in a pinboard.
yThe y position for the element in a pinboard.
element-parent
element-interface
element contains the slotsparent andinterface which contain the element and the interface that the element is contained in respectively. The writer methodelement-parent can be used to re-parent an element into another parent (or to remove it from a container entirely by setting its parent tonil). nil (meaning no maximum), but any of the following hints can be specified to change these values: :xThe x position of the element.
:yThe y position of the element.
:min-widthThe width of the element.
:min-heightThe minimum height of the element.
:max-widthThe maximum width of the element.
:max-heightThe maximum height of the element.
:best-widthThe initial width of the element.
:best-heightThe initial height of the element.
The size in pixels.
t Formax-width andmax-height, means use the minimum.
:text-widthThe width of any text in the element.
:screen-widthThe width of the screen.
:screen-heightThe height of the screen.
maxThe maximum size of the hints.
minThe minimum size of the hints.
+The sum of the hints.
-The subtraction of hints from the first.
*The multiplication of the hints.
/The division of hints from the first.
apply orfuncall an arbitrary function, by passing a list starting withfuncall orapply, followed by the function and then the arguments.
(capi:display (make-instance 'capi:interface
:title "Test"
:min-width 300))
(capi:display (make-instance 'capi:interface
:title "Test"
:min-width 300
:max-height 200))
element-parent accessor to place elements.
(setq pinboard (capi:contain
(make-instance
'capi:pinboard-layout)
:min-width 300 :min-height 300))
(setq object (make-instance
'capi:image-pinboard-object
:x 10 :y 10
:image "new-lispworks-logo"
:parent pinboard))
(setf (capi:element-parent object) nil)
(setf (capi:element-parent object) pinboard)
set-hint-table