World: r3wp

Thanks, Maxim.

Both look very good, Jerry.

Is it possible to catch program close event - when windows shut down 
and do something (save data)? The same appies when somebody closes 
all program windows or terminate process from task manager.

Does this help http://www.rebolforces.com/view-faq.html#sect3.3.

It help for window face, but what if there is no windows(faces) open 
at closing time. F.ex. application at that moment is witout opened 
windows
and there is only taskbar icon.

maybe the system:// port will receive a windows message.. not sure.

Very nice, Jerry!

Thanks, Anton and Cyphre. I am still improving it. : )

REBOL[]
font-C: make face/font [style: [ bold ] size: 64]
draw-block: [ ]
for i 0 9 1 [
    append draw-block compose/deep [
        pen (to-tuple reduce [ 255 

                                to-integer (255 / 10.0 * (i + 1)) 

                                to-integer (255 / 10.0 * (i + 1)) 

                                to-integer 255 - (255 / 10.0 * (i + 1)) ] )
        line-width (10 - i)
        line-join round        
        font font-c
        text 30x0 vectorial "REBOL BAR"
    ]
]
view/title layout [
    box black 450x200 effect [
        draw draw-block
    ]
] "NEON"

hehe... do we have new demo contender here?

just for fun  : )

The Truth is that... I did the same "Neon" program in C# too. Guess 
what? REBOL version is much faster than C# (.NET).

nice

Jerry that's really nice! BTW. how big is C# version? :)

Rebolek, C# version is about 100 lines of source code.

Jerry thanks, I though that. On one hand, there's 600kB REBOL/View 
with 20 lines of source code, on the other hand, there's ~100 lines 
C# source code on 20+MB dotNET...but that's the power of marketing 
:)

Anyway, very nice demo.

Well. the .NET 3.0 Runtime is 49 MB, not 20+MB. .NET 2.0 is 23MB 
though.

Oh. I didn't know there's NET 3.0. I just need 2.0 for work and that's 
enough for me ;) Anyway, REBOL's result is much more interesting 
with .NET 3.0 than with .NET 2.0 :o))

The question is, if we can compare. Isn't NET self contained runtime 
environment? Rebol calls to OS, so can we say, that Rebol has only 
1MB?

We have a software product. The version one used .NET, which made 
our software 10 MB in size. The version two uses C/C++ and some third 
party GUI components, it's 6 MB. but that's still too large for us. 
Few days ago, my boss asked me  whether I could redesign the GUI 
part of our software using REBOL. and I said ... maybe, if I could 
make my REBOL code call GetGlyphOutline successfully. Our product 
needs Chinese character support.

Pekr: Actually, REBOL's runtime is about same size on different operating 
systems (OSs?). dotNET is for Windows only. OK, there's MONO for 
Linux but I've never tried it. So dotNET may be some blablablamarketingchitchatblablabla 
but what si more useful in real life?

Rebol :-)

well, there you go :)

Jerry: I just hope R3 will have better localization support. Lot 
of my work is localization to east-asian languages and REBOL is already 
helping me with localization to European languages. I hope for Unicode 
support and other enhancements to R3.

If REBOL/view supported native codepage, my life could be much easier.

oh, yes. can't say more

Many religions and cultures believe that if we pray hard enough, 
and if there are many of us, our dream could come true. "please support 
local codepage, please support local codepage ... "

I'm not sure if this does not belong to chitchat ;)

Pekr ... I may be wrong here, but doesn' t .Net call Windows libs, 
too?

Hi!
How to keep selection after show for text-list?

F.ex. code changes text-list data, for selected row, than after show 
a-text-list, selection of selected row disapears.

O'k found myself - selection is in face/picked and they should be 
equal of elements in face/data:
F.ex:
face/data: [ "peas" "apples" ]
face/picked: [ "apples"]
the above statement shows selection in face after "show face" 
face/picked: [ "apple" ] 

the above statement do not show any selected row after "show face"

I've noticed that the 'resize event automatically causes a SHOW, 
as far as I can see. This seems to me is a little silly, since there 
is no chance to resize your GUI before this SHOW and you need to 
show the GUI twice, slowing down the display process by a factor 
of 2. Is there a way to resize the GUI before 'resize does the SHOW 
or disable the SHOW on 'resize event?

maybe feel/redraw ?

Henrik, that doesn't sound right to me. What's the code in question 
?

Actually, I think you are right:

view/new/options window: layout [box: box] 'resize

window/feel: make window/feel [detect: func [face event][if event/type 
= 'resize [box/color: red] event]]
do-events

The box color is only revealed to be red on the second resize. So 
it looks to me like the SHOW happens *before* the detect function 
is passed the 'resize event.

Let's try Gabriele's suggestion:

view/new/options window: layout [box: box] 'resize
window/feel: make window/feel [

 detect: func [face event][if event/type = 'resize [print "detect 
 'resize" box/color: red] event]

 redraw: func [face action position][print "redraw" if face/size <> 
 face/old-size [print "changed size" box/color: blue]]
]
do-events

This is printed:
	redraw
	changed size
	detect 'resize

Wow! What a revelation. It looks like REDRAW is called first, then 
SHOW, then DETECT is called.

Thanks for asking that question, Henrik !  I've been blithely using 
DETECT all this time and not noticing that it was doing a SHOW first. 
I'll try using REDRAW instead of DETECT from now on and see how it 
performs.

yes, that is one of the things I had to work out in GLayout too... 
 :-)

anton, but when you resize the window with mouse and by changing 
the size of the window face, I think the order might actually change.

I remember having a hell of time trying to resize the window properly 
without it causing a cascade of resize/show events...

(where talking a few years ago so my memory is rusty)

Ok, here's an issue that's just come up for me:

view layout [field [print "validate 1"] field [print "validate 2"]]

If you type in a field, then press TAB it prints "validate" - Good.

if you type in a field, then press SHIFT-TAB, it does not. - Bad. 
<----

This behaviour is specified in the EDIT-TEXT function in CTX-TEXT, 
in the TAB-CHAR handler.

I seem to recall someone actually asking for this behaviour. I think 
they wanted a way to "reverse out" of a field without validating 
it.

This seems wrong to me. I would have thought Shift-TAB would be just 
like TAB, except going in the opposite direction. I want to always 
validate when leaving the field.

It would be better if undo was implemented for the field. When all 
the changes are undone, then the face/dirty? field should be reset 
and the face/action can avoid validating unnecessarily.

The ESCAPE key could be used to undo all changes (and so avoid validating) 
before the user TABs or SHIFT-TABs out of there.