Rebol 程式設計/flag-face
外觀
FLAG-FACE face 'flag
在 VID 面中設定標誌。
FLAG-FACE 是一個函式值。
- face -- (型別: 物件)
- flag -- (型別: 任何)
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
]