Jump to content

Rebol Programming/flag-face

From Wikibooks, open books for an open world

USAGE:

[edit | edit source]
FLAG-FACE face 'flag 

DESCRIPTION:

[edit | edit source]

Sets a flag in a VID face.

FLAG-FACE is a function value.

ARGUMENTS

[edit | edit source]
  • face -- (Type: object)
  • flag -- (Type: any)

SOURCE CODE

[edit | edit source]
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
]