跳转到内容

Rebol 编程/deflag-face

来自维基教科书,开放的书籍,用于开放的世界
DEFLAG-FACE face 'flag 

清除 VID 面中的标志。

DEFLAG-FACE 是一个函数值。

  • face -- (类型:对象)
  • flag -- (类型:任何)

源代码

[编辑 | 编辑源代码]
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
]
华夏公益教科书