411 REFERENCE · Wikibooks
Rebol Programming/find-key-face
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
FIND-KEY-FACE face keycode
DESCRIPTION:
Search faces to determine if keycode applies.
FIND-KEY-FACE is a function value.
ARGUMENTS
face -- (Type: object)
keycode -- (Type: char word)
SOURCE CODE
find-key-face: func [
"Search faces to determine if keycode applies."
face [object!] keycode [char! word!] /local w f result
][
either all [
w: in face 'keycode
w: get w
any [keycode = w all [block? w find w keycode]]
] [face] [
w: in face 'pane
either block? w: get w [
result: none
foreach f w [if all [object? f f: find-key-face f keycode] [result: f break]]
result
] [
if object? :w [find-key-face w keycode]
]
]
]