Rebol Programming/deflag-face

= 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 ]