World: r3wp

Sunanda, thanks! That works perfectly. Your refinement made what 
would have been a big job into a minor task that took only a few 
seconds. In my opinion, this refinement definately needs to be in 
Rebol 3. I will make newbies much happier.

What is the best way to submit this to RT?

By the way, Allen Kamp sent me the same refinement code as Sunanda. 
Thanks to you also, Allen!

Louis, just catching up with your post back on Monday, I wanted to 
say that it's a bit odd to use the FEEL to do init code. It's not 
really intended for that. A way to do custom init code is like this:
	layout [
		field with [
			append init [
				; custom init code here
				text: exchange-rat
			]
		]
	]

and in the above case, just setting the text facet, it simplifies 
to:
	layout [
		field (exchange-rat)
	]

Thanks. I like things to be simple. By the way, I just  looked at 
your styles gallery. Very nice, and gives me examples to do things 
I need to do.

anton, the style gallery still doesn't work. I get the same include 
errors as yesterday.

http://www.lexicon.net/antonr/rebol/patch/ctx-text-next-field-patch.r
<--- link is dead

which is one of the first includes

Henrik, change load-thru to load-thru/update in Anton's script.

that won't help when the script to be included can't be found on 
the server (404)

I just downloaded it a few minutes ago.

it = the included scripts

>> probe disarm try [load http://www.lexicon.net/antonr/rebol/patch/ctx-text-next-field-patch.r]
connecting to: www.lexicon.net
make object! [
    code: 800
    type: 'user
    id: 'message

    arg1: {Error.  Target url: http://www.lexicon.net/antonr/rebol/patch/ctx-text-next-field-patch.r
    could not be retrieved.  Server response: HTTP/1.1 404 Not Found}
    arg2: none
    arg3: none

    near: [load http://www.lexicon.net/antonr/rebol/patch/ctx-text-next-field-patch.r]
    where: none
]

just tested 10 seconds ago

what does it say when you try that line? maybe it's a faulty proxy

Same error as you got.

ok, then the files are really gone

>> exists? http://www.lexicon.net/antonr/rebol/patch/ctx-text-next-field-patch.r
connecting to: www.lexicon.net
== false

Looks like it.

Henrik, thanks for trying. I could go through the usual rigmarole 
of determining the error (which is quite apparent to me from the 
above error message. That's my old website, at Lexicon.) *But* I 
am proud to announce a new include system !! Give this a try:

head clear find site: select load-thru http://www.rebol.net/reb/index.r
[folder "Anton"] %index.r
do do-thru/update/args site/do.r [update "gui/style-gallery.r"]

The above code should *always work*, providing that I am able to 
maintain my most current website address at  rebol.net .

It should work first time. When all is downloaded and run, all the 
needed files should exist in your cache. If you are happy with the 
cached version, and want to run directly from the cache, replace 
the second line with this one:
	do do-thru/args site/do.r [cache-only "gui/style-gallery.r"]

That's not quite right !!!

Use this code to check for newer versions and update your cache:


 head clear find site: select load-thru/update http://www.rebol.net/reb/index.r
 [folder "Anton"] %index.r
	do do-thru/update/args site/do.r [update "gui/style-gallery.r"]


Use the code below when you are happy with the cached files you have 
and want to do those only:


 head clear find site: select load-thru http://www.rebol.net/reb/index.r
 [folder "Anton"] %index.r
	do do-thru/args site/do.r [cache-only "gui/style-gallery.r"]

now it works. :-) very nice, anton

Louis <What is the best way to submit this to RT?>
Add it as an enhancement request to Rambo:
http://www.rebol.net/cgi-bin/rambo.r

And thanks for testing the code -- glad it worked.......One enhancemnet 
suggestion: you may not need the individual "show face" lines if 
you have a show layout-name at the end.

Anton, your styles are looking better and better!

Thanks... now that people can actually see it. :)

Well, it's now over four and a half years since I began with include 
systems. The first version of the old include system was 17-Feb-2002.

I had another one in between which I didn't release. I think I tried 
to do too much with that one and it got hard to debug.

Sunanda, it has been submitted to rambo. Thanks again!

when working with Vid data structures .. it makes sense to me to 
perhaps to create functions that act on a vid widget to be associated 
with that widget

So, if you have a complex large program, you can keep all the functions 
that act upon/with a widget's data all in one place.

do you mean like creating a style and specifiying the with block?

view layout [
	style button button with [
		print-lbl: func [][print self/text]
	]
	button "do" [face/print-lbl]
]

(don't need the "self/" by the way).

I know it was just to make it explicit.

;-)

ok

Yes.

and no.

Your example uses a style ...

You might have multiple functions that operate on the widget and 
you want to hide them as a type of context inside the widget

you don't need to make a style for the with block.  I just did this 
cause I thought you meant that you want the functions to be applied 
to a broad set of gadgets.  this works directly:

view layout [
	button "do" [face/print-lbl]  with [
		print-lbl: func [][print self/text]
	]
]

Hmm.  Interesting.

funny you didn't know about this after so many years of using REBOL 
!

are these functions exposed to the global context?

nope.

well.. I'm not too familiar with vid

Just know enough to get along .. most of the time!

basically the with block is like when you supply a block to something 
like make face! []

or more specifically the call to make-face/spec