Rebol Programming/center-face
Jump to navigation
Jump to search
USAGE:[edit | edit source]
CENTER-FACE obj /with face
DESCRIPTION:[edit | edit source]
Center a face relative to parent (screen for windows) or a sibling face.
CENTER-FACE is a function value.
ARGUMENTS[edit | edit source]
- obj -- (Type: object)
REFINEMENTS[edit | edit source]
- /with -- Center relative to a sibling face.
- face -- (Type: object)
SOURCE CODE[edit | edit source]
center-face: func [ {Center a face relative to parent (screen for windows) or a sibling face.} obj [object!] /with "Center relative to a sibling face." face [object!] ][ if none? face [face: any [obj/parent-face system/view/screen-face]] obj/offset: max 0x0 face/size - obj/size / 2 + either with [face/offset] [0x0] obj ]