FIND-WINDOW face
Find a face's window face.
FIND-WINDOW is a function value.
find-window: func [ "Find a face's window face." face [object!] ][ while [face/parent-face] [face: face/parent-face] face ]