411 REFERENCE · Wikibooks
Rebol Programming/resize-face
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
RESIZE-FACE face size /x /y /no-show
DESCRIPTION:
Resize a face.
RESIZE-FACE is a function value.
ARGUMENTS
face -- (Type: any)
size -- (Type: number pair)
REFINEMENTS
/x -- Resize only width
/y -- Resize only height
/no-show -- Do not show change yet
SOURCE CODE
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
]