If I say that I'm lost in the R3 GUIs ecosystem, I guess it would feel familiar to others. ;-)
Actually, I just wanted to have a look at how R3 implements a style, especially how actors are stored. In Carl's docs, they seemed to be stored in a block, I just wanted to check in the code if that was the case for real or not.
>> source load-gui
load-gui: make function! [[
    "Download current GUI module from web. (Temporary)"
    /local data
    print "Fetching GUI..."
    either error? data: try [load] [
        either data/id = 'protocol [print "Cannot load GUI from web."] [do err]
    ] [
        do data
ok, can feed you some docs ....
There are Carl's GUI docs, which implement actors, reactors, and then public Github repo of Saphir docs, which cancelled reactors ...
I want to check the source code, not the docs.
ah ...
I decompressed the GUI sources from the link, so at least I can have a look now. :-)
I have somewhere even Gabriele's GUI :-)
What I like about the R3-GUI is on-* actions ...
You can look into Saphir's docs here .... (even that I know you prefer sources :-)
I like how facets, options are separated, as well as actors, and whole style is drawn using a draw dialect ...
So, I hope we get nice code patterns like follows:
stylize [
    my-progress: [
        about: "Progress bar."
        facets: [
            size: 200x22
            max-size: 1000x22
            edge-color: 96.96.96
            area-fill: span-colors area-color [.3 .5 1]
        options: [
            bar-color: [tuple!]
            size: [pair!]
        faced: [
            bar-color: teal
            bar-size: 1x1 ; modified by the progress % value
            bar-fill: ; generated from bar-color option
        draw: [
            pen edge-color
            line-width 1.5
            grad-pen 1x1 0 20 90 area-fill
            box 1x1 area-size 3
            grad-pen 1x1 0 20 90 bar-fill
            box 1x1 bar-size 3
        actors: [
            on-make: [
                face/facets/bar-fill: span-colors
                get-facet face 'bar-color [1.0 1.5 .6]
            on-set: [ ; arg: event
                ; Update the bar size from the face value.
                face/state/value: arg/2
                v: clip-face-val face
                size: get-facet face 'area-size
                face/facets/bar-size: as-pair v * size/x size/y
view [
    prog: my-progress
    button "Set 50%" set 'prog 50%
Notice that facets are shared, whereas faced are private. Also notice the SET VID level reactor ...
Remember - Carl spent 3 months designing it and writing a prototype. That was time spent for good ... and Red gui should aim no less ...
My method is iterative, I don't do tunnel-development. ;-)
Where is that code example coming from?
"My method is iterative, I don't do tunnel-development." - which is how VID Junior is meant to be done. :-)
Ok, found the source of the example:

Last message posted 14 weeks ago.