411 REFERENCE · Wikibooks
Rebol Programming/clear-fields
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
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
]
]
]