Rebol Programming/view

= USAGE: = VIEW view-face /new /offset xy /options opts /title text

= DESCRIPTION: = Displays a window face.

VIEW is a function value. = ARGUMENTS =
 * view-face -- (Type: object)

= REFINEMENTS =
 * /new -- Creates a new window and returns immediately
 * /offset
 * xy -- Offset of window on screen (Type: pair)
 * /options
 * opts -- Window options [no-title no-border resize] (Type: block word)
 * /title
 * text -- Window bar title (Type: string)

= SOURCE CODE = view: func [ "Displays a window face." view-face [object!] /new "Creates a new window and returns immediately" /offset xy [pair!] "Offset of window on screen" /options opts [block! word!] "Window options [no-title no-border resize]" /title text [string!] "Window bar title" /local scr-face ][   scr-face: system/view/screen-face if find scr-face/pane view-face [return view-face] either any [new empty? scr-face/pane] [ view-face/text: any [ view-face/text all [system/script/header system/script/title] copy "" ]        new: all [not new empty? scr-face/pane] append scr-face/pane view-face ] [change scr-face/pane view-face] if all [ system/view/vid view-face/feel = system/view/vid/vid-face/feel ] [       view-face/feel: window-feel ]    if offset [view-face/offset: xy] if options [view-face/options: opts] if title [view-face/text: text] show scr-face if new [do-events] view-face ]