Rebol 程式設計/clear-fields

用法

CLEAR-FIELDS panel 

描述

清除佈局中所有文字欄位的面板。

CLEAR-FIELDS 是一個函式值。

引數

• panel -- (型別: 物件)

原始碼

clear-fields: func [
    "Clear all text fields faces of a layout." 
    panel [object!]
][
    if not all [in panel 'type panel/type = 'face] [exit] 
    unfocus 
    foreach face panel/pane [
        if all [series? face/text flag-face? face field] [
            clear face/text 
            face/line-list: none
        ]
    ]
]