411 REFERENCE · Wikibooks
Rebol Programming/focus
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
FOCUS face /no-show
DESCRIPTION:
Focuses key events on a specific face.
FOCUS is a function value.
ARGUMENTS
face -- (Type: any)
REFINEMENTS
/no-show
SOURCE CODE
focus: func [
"Focuses key events on a specific face."
face
/no-show
/local tmp-face
][
unfocus
if not face [exit]
focal-face: face
if not string? face/text [
face/text: either face/text [form face/text] [copy ""]
face/line-list: none
]
if not caret [caret: tail face/text]
if none? face/line-list [
if face/para [face/para/scroll: 0x0]
caret: tail face/text
]
if flag-face? face field [hilight-all face]
if not no-show [show face]
]