Rebol Programming/find-key-face

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