Rebol Programming/resize-face

From Wikibooks, open books for an open world
Jump to navigation Jump to search

USAGE:[edit | edit source]

RESIZE-FACE face size /x /y /no-show 

DESCRIPTION:[edit | edit source]

Resize a face.

RESIZE-FACE is a function value.

ARGUMENTS[edit | edit source]

  • face -- (Type: any)
  • size -- (Type: number pair)

REFINEMENTS[edit | edit source]

  • /x -- Resize only width
  • /y -- Resize only height
  • /no-show -- Do not show change yet

SOURCE CODE[edit | edit source]

resize-face: func [
    "Resize a face." 
    face 
    size [number! pair!] 
    /x "Resize only width" 
    /y "Resize only height" 
    /no-show "Do not show change yet" 
    /local access
][
    if all [
        access: get in face 'access 
        in access 'resize-face*
    ] [
        access/resize-face* face size x y
    ] 
    if not no-show [show face] 
    face
]