411 REFERENCE · Wikibooks
Rebol Programming/flag-face
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
FLAG-FACE face 'flag
DESCRIPTION:
Sets a flag in a VID face.
FLAG-FACE is a function value.
ARGUMENTS
face -- (Type: object)
flag -- (Type: any)
SOURCE CODE
flag-face: func [
"Sets a flag in a VID face."
face [object!]
'flag
][
if none? face/flags [face/flags: copy [flags]]
if not find face/flags 'flags [face/flags: copy face/flags insert face/flags 'flags]
append face/flags flag
]