REBOL Programming/find-window

USAGE:

FIND-WINDOW face 

DESCRIPTION:

Find a face's window face.

FIND-WINDOW is a function value.

ARGUMENTS

• face -- (Type: object)

SOURCE CODE

find-window: func [
    "Find a face's window face." 
    face [object!]
][
    while [face/parent-face] [face: face/parent-face] 
    face
]