Jump to content

Rebol Programming/center-face

Add links
From Wikibooks, open books for an open world
< Rebol Programming
This page may need to be reviewed for quality.

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
]
Retrieved from "https://en.wikibooks.org/wiki/Rebol_Programming/center-face"