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 ]