Rebol Programming/clear-fields

= USAGE: = CLEAR-FIELDS panel

= DESCRIPTION: = Clear all text fields faces of a layout.

CLEAR-FIELDS is a function value. = ARGUMENTS =
 * panel -- (Type: object)

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