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