load-gui: func [
    {Download current Spahirion's R3-GUI module from web.}
    /local data
][
    print "Fetching GUI..."
    either error? data: try [load http://development.saphirion.com/resources/r3-gui.r3] [
        either data/id = 'protocol [print "Cannot load GUI from web."] [do err]
    ] [
        do data
    ]
    exit
]

REBOL[]
load-gui: func [
    {Download current Spahirion's R3-GUI module from web.}
    /local data
][
    print "Fetching GUI..."
    either error? data: try [load http://development.saphirion.com/resources/r3-gui.r3] [
        either data/id = 'protocol [print "Cannot load GUI from web."] [do err]
    ] [
        do data
    ]
    exit
]

load-gui

all-styles: find extract to-block guie/styles 2 'clicker
last-view: none
view/options [
    title "Pick a style:"
    text-list all-styles do [
        if last-view [unview last-view]
        style-name: pick all-styles value
        last-view: view/options reduce [
            'title reform ["Example of a" style-name "style:"]
            style-name
        ][offset: 'center]
    ]
][offset: 50x50 size: 200x400]

REBOL[]
load-gui: func [
    {Download current Spahirion's R3-GUI module from web.}
    /local data
][
    print "Fetching GUI..."
    either error? data: try [
	;load http://development.saphirion.com/resources/r3-gui.r3
	load http://www.saphirion.com/development/downloads-2/files/r3-gui.r3
	] [
        either data/id = 'protocol [print "Cannot load GUI from web."] [do err]
    ] [
        do data
    ]
    exit
]

load-gui

all-styles: find extract to-block guie/styles 2 'clicker
last-view: none
view [
    title "Pick a style:"
    text-list all-styles on-action [
        if last-view [unview last-view]
        style-name: pick all-styles face/state/value
        last-view: view/options reduce [
            'title reform ["Example of a" style-name "style:"]
            style-name
        ][offset: 'center]
    ]
] 

REBOL[]
load-gui: func [
    {Download current Spahirion's R3-GUI module from web.}
    /local data
][
    print "Fetching GUI..."
    either error? data: try [
	load http://development.saphirion.com/resources/r3-gui.r3
	] [
        either data/id = 'protocol [print "Cannot load GUI from web."] [do err]
    ] [
        do data
    ]
    exit
]

load-gui

all-styles: find extract to-block guie/styles 2 'clicker
last-view: none
view [
    title "Pick a style:"
    text-list all-styles on-action [
        if last-view [unview last-view]
        style-name: pick all-styles face/state/value
        last-view: view/options reduce [
            'title reform ["Example of a" style-name "style:"]
            style-name
        ][offset: 'center]
    ]
] 

area               Multi-line text input, editable, scrollable, with background and scroll bars.
arrow-button       Single action button with arrow (but no text).
bar                Simple horizontal divider bar.
box                Simple rectangular box.
button             Single action button with text.
button-bar         Simple button bar.
check              Dual action button with text and LED indicator.
check-group        Vertical group of check boxes.
clicker            Single-action button without text. Basis of other styles.
code               Source code fields, non-editable.
code-area          Multi-line code input, editable, scrollable, with background and scrollbars.
color-array-box    Simple rectangular box.
color-array-picker For spaced groups. No background or borders. Default ho
rizontal.
color-box        Simple rectangular box.
color-field      Single line text input, editable, with background box.
color-picker     For spaced groups. No background or borders. Default horizontal
.
dir-text         Simple scalar vector draw block. Can be clicked.
div              Simple vertical divider bar.
doc              A tiny document markup method for embedded docs, notes, messages.
drawing          Simple scalar vector draw block. Can be clicked.
drop-arrow       Drop-down test.
drop-down        Drop-down test.
element-group    Vertical group of elements, which SET-FACE or GET-FACE manages with one value.
field            Single line text input, editable, with background box.
file-list        Tightly spaced and packed group. No background or borders. Horizontal default.
head-bar         Boxed text bar for headings.
icon             Icon image with optional text below.
image            Simple image with optional border. Can be clicked.
indicator        Visual indication of whether a face is valid.
info             Text information fields, non-editable.
info-area        Multi-line text info, non-editable, scrollable, scrollbars.
label            Label text without background.
old-tab-box      Multi sub-layout.
palette-box      Simple rectangular box.
progress         Progress bar.
radio            Dual action button with text and LED indicator.
radio-group      Layout of radio buttons
scroller         Scroll bar with end arrows.
sensor           Has no graphics, but can be clicked.
slider           Slide-bar for numeric input (0% - 100%)
tab-box          For grouping faces with a background and borders.
tab-button       Tab button. For internal use.
table            For grouping faces with a background and borders.
table-panel      For grouping faces with a background and borders.
table-plane      For grouping faces with a background and borders.
table-viewport   For grouping faces with a background and borders.
tag-area         Area of TAG-FIELDs.
tag-field        Special kind of FIELD style for use in TAG-AREA. Adds oval and closing cross to text after editing.
text             Simple text without background.
text-area        General text input area, editable, scrollable, without background.
text-box         Text area with background box.
text-item        Simple text without background.
text-list        Tightly spaced and packed group. No background or borders. Horizontal default.
text-table       Tightly spaced and packed group. No background or borders. Horizontal default.
title            Title text style without background.
toggle           Dual action button with text and LED indicator.
tool-bar         For spaced groups. No background or borders. Default horizontal.
tool-button      Not documented.

view [image %image.jpg on-action [print "image clicked"]]

view layout [image %image.jpg on-action [print "image clicked"]]