• Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

AltME groups: search

Help · search scripts · search articles · search mailing list

results summary

worldhits
r4wp917
r3wp9345
total:10262

results window for this page: [start: 1601 end: 1700]

world-name: r3wp

Group: RAMBO ... The REBOL bug and enhancement database [web-public]
Gabriele:
5-Jan-2005
if you open console://, can you get anything out of it?
Volker:
8-Jan-2005
apt-get install termcap-compat
Anton:
21-Jan-2005
I get the same as PhilB: "**Crash : expand series overflow"  rvdraw57e, 
 WinXP
Anton:
11-Feb-2005
I think so. Bad timezone found by QUERY (as used by INFO?). Replacement 
is to use GET-MODES file 'modification date.
Anton:
11-Feb-2005
oops, that should be GET-MODES file 'modification-date,  but Sunanda's 
answer is more relevant..
Carl:
18-Feb-2005
Yes... that is the main issue: since a path can be represented as 
a block, how does the trailing slash get indicated in a block?
Romano:
22-Feb-2005
Anton, that are the results of standard split-path that i replicated.The 
only difference is in %"" which gives an error on split-path and 
that result on split-path-3. I have some problems on how path are 
splitted by split-path in some cases, but to change them is a problematic 
thing, because all handlers knows how split-path works and get their 
decisions on it. I am not sure that the better result is [%./ none] 
in the %"" example, because the starting path (%"") is a file of 
name "" like in the %"a" example, where the starting path is a file 
of name "a". In the other 2 examples (%/ %.) the starting path is 
a DIR not a file (and the file is "exactly" none).
Henrik:
14-Mar-2005
who's car will I have to wash to get a RAMBO account? :-)
Anton:
18-Mar-2005
Isn't that kind of inconsistant ? You have a choice of 0 or 2+.  
How do you get just 1 leading space ?
Furthermore:
Gabriele:
21-Mar-2005
indeed, if you preceed the lines after the first view by semicolons 
(;) you get the same problem
Ladislav:
6-Apr-2005
Gabriele: this is the response I get:

Chunk no 1
before insert
read handler execution interrupted! response
Chunk no 2
before insert
after insert
after insert
Tomc:
6-Apr-2005
Gabriele: Carl thought it was a possibility,  and asked me to add 
the request ro rambo so it did not get lost.
Group: Script Library ... REBOL.org: Script library and Mailing list archive [web-public]
Geomol:
21-Aug-2009
It doesn't seem, functions with get-word refinements are used very 
much.
Geomol:
21-Aug-2009
Not refinements, get-word arguments.
Sunanda:
13-Dec-2009
It'd make some sense to add an [R2] tag to all existing scripts (we 
can do that automatically) and/or [R3//untested] tag.

But let's get some [R3] scripts first,  so we have  a_need_ to make 
the distinction.


A couple of my scripts should be tagged as [R3] -- I just never got 
a round tuit:
   http://www.rebol.org/art-display-article.r?article=j26z
NickA:
23-Jan-2010
It would be great for us to have a little "rent-a-reboler" site, 
at which anyone wanting REBOL features like this (or even scripts 
- any sort of development work), could post a job and developers 
could reply with bids.  That could give RT motivation to add features 
that only certain users are interested in initially, and I bet we'd 
see lots of features get added to REBOL3 as extensions.  I'd love 
to support REBOL by paying for little features that I need/want. 
 Animated GIFs are not a priority for me, but I can think of at least 
10 low level functions that I'd buy.
Brock:
23-Jan-2010
... conversely if the pieces are small enough, and can be done by 
one coder in a relatively short amount of time, many small pieces 
would get completed.  You know the saying, "pennies make dollars".
Anton:
22-Jul-2010
Mmm... also it seems wrong to try to fix another program's error. 
The original program with the error should be fixed, not all the 
programs which might get its erroneous output.
Sunanda:
22-Jul-2010
True.....But the page you get to does have a "download script" link. 
 That is usable by REBOL.
Sunanda:
22-Jul-2010
Yes, a simple request, but a tough problem to get right in all practical 
cases.
Anton:
22-Jul-2010
Would a rebol function named "get-rebol.org-script" in your user.r 
(or built-in to rebol) help alleviate the problem at all?
Anton:
22-Jul-2010
It would just convert a "view-script.r" link into a "download-a-script.r" 
link, so that users take, for example, the money.r link and type 
this into their console:


 do get-rebol.org-script http://www.rebol.org/view-script.r?script=money.r
Andreas:
20-Oct-2010
I get it for all scripts, AFAICT.
Andreas:
20-Oct-2010
Okay, I get a script library header inserted, which uses CR LF to 
terminate lines.
Sunanda:
20-Oct-2010
We've had all sorts of fun trying to get the line endings to work 
for everyone.


There's a magic, undocumented URL parameter you can add to the URL 
that might make a difference on your platform.

It is MODE=????


I'll just cut'n'paste the comment from the download-a-script source... 
it may help explain it:

;; mode=windows -- the default. Makes LF or CR into CRLF
;; mode=binary  -- sends file as binary
;; mode=carl    -- saved and reloads file first as Carl thought
;;                 this would fix the problem
;; mode=text    -- the old default. Works in most cases. Just
;;                 prints the file (so sends whatever line
;;                 terminations work on the platform the library
;;                 is running on.
Sunanda:
20-Oct-2010
Just lookin at the source......We do edit line ending to try to get 
them consistent.
Perhaps consistent, but wrong!
shadwolf:
16-Jan-2011
I just submitted to rebol.org a 4 line script  and it took me 1 hour 
is it normal to spend 1 hours on the header formating  for just a 
copy past ?   Can't we in 2011 get ride of it and have a form that 
you fill and generate the header for your script ? This is the numberone 
pain in the ass thing that makes me vomit each time i use rebol.org 
....
shadwolf:
16-Jan-2011
I just submitted to rebol.org a 4 line script  and it took me 1 hour 
is it normal to spend 1 hours on the header formating  for just a 
copy past ?   Can't we in 2011 get ride of it and have a form that 
you fill and generate the header for your script ? This is the numberone 
pain in the ass thing that makes me vomit each time i use rebol.org 
....
shadwolf:
16-Jan-2011
ok then second point localting the contribute with your script button 
..... THAT'S THE MAIN ISSUE HERE  !!!  HOW CAN U HIDE IT  !!! IF 
IT TAKES MORE THAN 3 SECOND ONCE LOGED IN TO GET TO THAT POINT U 
 FAILLED IS THAT CLEAR  ????!!!
shadwolf:
16-Jan-2011
you should inspire your self from android market or app store ... 
seriously ... Make rebol.org goal like this Easy to get, Easy to 
Set. Only essential information provided ...
shadwolf:
16-Jan-2011
in my "member's loundge golf club for only snobish people that are 
snobe enough to still code in rebol"  ido you find normal to get 
the new about rebol community at the end of this page ??? I'm registered 
since 7 years in rebol.org and that's just now I notice it ..
shadwolf:
16-Jan-2011
that's the problem when you pile up things one on top of another 
without never get a second thought of ok what do i want people to 
absolutle see when they log in ?
shadwolf:
16-Jan-2011
What is the main information I want people to get their eye ball 
catch on ?  this is what lead most of the commercial website now 
in day ... Just apply that pleaaaaaaaaaaaaaaaaase !!!!
shadwolf:
16-Jan-2011
when i enter on rebol.org it's like i enter in a cementary or a museum 
!! it's not a place that's engaging people to get there often !
Maxim:
16-Jan-2011
like just about everything going on with the REBOL language and its 
community... right now...


 if you want to participate and actually DO something, (I mean doing 
 something else than bitch and moan), people will be happy for your 
 help, even Sunanda at rebol.org.


I used to be part of rebol.org team and it took me a single mail 
from me to get included in the team.  it might take a bit more from 
you now that you've just insulted its main (sole?) author pretty 
harshly.
Group: !Readmail ... a Rebol mail client [web-public]
[unknown: 9]:
30-Jun-2007
Phil if you need an IMAP account on a server to test with, we can 
give you access to the one we set up to test Qtask's new Webmail 
interface.  The account contains lots of examples like large attachments, 
deep folders.  As we learn more, we fill it with ore examples.  Just 
shoot me a private message, and I will get you name and password.
Nicolas:
2-Mar-2010
But I can't get any further
Group: SDK ... [web-public]
Gabriele:
1-Nov-2005
henrik, if you only get normal /View, there is no point in the encap 
service. i.e. it wouldn't help the com interface project at all.
Henrik:
1-Nov-2005
but you don't get /Command functions for free. that would be the 
trick to get you to buy the SDK as opposed to using an encapping 
service
Gabriele:
1-Nov-2005
henrik, you don't get any R icon on the desktop the way i described. 
and, as petr says, there are programs around that make the process 
of unzipping and running automatic, so the user only sees one exe.
Ashley:
4-Dec-2005
Most of the GUI work I do does not use VID or networking, so enface 
without any of the view-* or prot-* scripts is what I want. I do 
not want to use a loader front-end based on rebview that includes 
all this code. The cost in executable size may be small (less than 
100Kb), but it's the start-up time and memory cost that I like to 
get as lean as possible. This will become more of an issue if and 
when REBOL is ported to small memory footprint devices.
Graham:
5-Dec-2005
Anyway, it's very good news to finally get a new sdk - and for command 
- before Xmas.
Volker:
5-Dec-2005
IIRC ssh is rts own implementation, or do i get that wrong?
Group: !Uniserve ... Creating Uniserve processes [web-public]
DideC:
9-Mar-2005
encap-fs: context [
	cache: path: none
	root: system/script/path

	get-cache: func [file][
		path: parse file "/"	
		remove-each dir path [dir = ".."]
		file: to-file path	
		either file [
			either file: select cache file [file][load file]			
		][
			make error! join "Cannot access : " file
		]
	]
	
	set 'encap? to-logic select system/components 'decap

	either encap? [
		set 'set-cache func [list [block!] /local bin file][
			cache: list
			;cache: make block! 16
			;parse list [
			;	some [
			;		(bin: no) opt ['binary (bin: yes)]
			;		set file file! (
			;			repend cache [
			;				file
			;				either bin [read/binary file][read file]
			;			]
			;		)
			;	]
			;]
		]
		set 'do-cache func [file [file!]][do get-cache file]
		set 'load-cache func [file [file!]][load first get-cache file]
		set 'read-cache func [file [file!]][]
	][
		set-cache: none
		do-cache: :do
		load-cache: :load
		read-cache: :read
	]
]
Graham:
11-Mar-2005
Got a working pop server now for uniserve .. connected to a firebird 
database.

Now to get the smtp service to save files to the database as well.
Graham:
12-Mar-2005
I've further improved my spam busting mail service.  If I get an 
email from a new user, and that email passes all my spam tests, I 
now will send an smtp challenge to the mail server that should have 
sent that mail.  I know some mail servers will respond that every 
user combination exists, but others will not, and that will all help.
Graham:
13-Mar-2005
It will help me determine how effective this is.

I need people who get a fair bit of spam, and don't mind their mail 
sitting on my server.
Graham:
13-Mar-2005
Just message me here ... and I'll set it up tonight when I get back 
home.
Graham:
16-Mar-2005
Can some of you lurkers help me test out my spam filtering?
I just need you to send me an email to [gchiu-:-compkarori-:-com].

I want to see how many get non delivered, or misclassified as spam.
Just post here if you send me an email.

Thanks,
Graham:
19-Mar-2005
this is my first crude webmail interface to my smtp service.

http://www.compkarori.co.nz:8001/
use userid: "test" password: "account"


If you send a message to [test-:-compkarori-:-com], it will take 15mins 
at least to get thru ( which is the default delay I have built in 
for mail from new users).  But after that it should be very quick.
MikeL:
17-May-2005
From the documentation, "Uniserve's purpose is to offer a simple 
but powerful solution for programming client and servers applications 
that can be combined with View interfaces easily."


The uses for the Asynch that I can come up with are: 1. Backup after 
transactions. 2. Journalizing / reporting after a committed transaction 
update 3. Database access 4. Queuing of side-effect events that are 
not needed for the response in the user interface. 


Aside from that, my understanding is that an synch event could be 
made asynch to allow a lower end server to process the workload.

Does anyone have any other uses from the 4 noted?


Does anyone have a simple sample of tying Uniserve into the View 
interfaces?


Are there any results of driving some load using uniserve versus 
synchronous or other solutions like threaded models?




I am trying to get my head around this a bit more and want to rely 
less on the Doc-likes-it-some-it-must-be-the-right-thing-to-do approach 
that I have used before.


I read the Medusa documentation that Doc refers to but it did not 
lead me to any good application examples.
MikeL:
17-May-2005
Thanks Graham.  Your response came in while I was composing this.... 
OK I have a simple View interface displaying a uniserve response 
so I follow that.  With a view user interface I can see you could 
get the data needed for multiple tab pages asynchronously and have 
some saving there.   For a script serving out html pages, it could 
be broken up so that asynch go after independent parts but they would 
have to be all emitted to the browser at once.   Is anyone doing 
that with Uniserv or other?
MikeL:
17-May-2005
In that ramble, I had both - I have a View client app that I want 
to know how to access Uniservices to make the programming easy and 
I also want to know how to Uniserve if I want to run  a CGI that 
connects to a database, does some credit application calculations, 
and emits html to the client.   For this CGI script, I would get 
both performance improvements and an easier programming model ... 
if I am reading the doc correctly.
Terry:
6-Oct-2005
Any simple examples on using "stop-at" with uniserve to pick up posted 
data??? Can only dig up "GET" ??
Terry:
7-Oct-2005
I have another question though.. with the httpd service, where is 
the actual data?  I get the headers, and i get the length of the 
data, but not the actual binary.. im submitting a form using POST... 
GET is fine.
Terry:
7-Oct-2005
One can get all fancy playing with ports and protocols, but in the 
end, there's alot to be said for DBI
Terry:
8-Oct-2005
Ok, the problem with POST data was with domain forwarding, and not 
with Uniserve.. GET works fine, POST didn't.
Terry:
4-Feb-2006
Ok.. so now I can run the external script by placing waiting till 
i finsh the external, and get back to the 'on-received' function... 
but I have a number of functions that I use to process my external 
script.. 
Do I need to load those functions with every on-received event???
Will:
31-Aug-2006
Mike, I started using Apache and rebol as cgi, this is not suited 
for performances as on every call to the cgi, a new instance of rebol 
is  initialized, run and closed.

I thought about using fastcgi, but never came to a working solution.
Now I use uniserve as main webserver, here some advantages:

-it is fast! On my local machine I get +- 600 req/sec for static 
pages and a max of 160req/sec for dynamic rsp pages

-it is written in rebol, I could easly(less than 10 lines code) add 
a rewrite engine

-child process are persistent, this mean you can keep state of your 
web applications, implement caching, keep a pool of connection to 
databases open (in apache + rebol/cgi you'd have to open and close 
the connection for every request)
-it is written by Dock whom I may be the biggest fan ;-)

btw I'm running an unreleased version (have bought commercial support) 
 that support http 1.1, stuff like If-Modified etc..

If you have more specific questions, I'll be glad to try and answer.
MikeL:
1-Sep-2006
When I can get that simple part working then I want to add Make-Doc, 
my-sql-protocol and Andrew's ML dialect as services so I can get 
some leverage from these.
Group: SVG Renderer ... SVG rendering in Draw AGG [web-public]
shadwolf:
30-Jun-2005
then construc path to get data then translate this data to a draw 
equivalent exploitable datas
Graham:
2-Jul-2005
Firefox is supposed to be able to support SVG ( a subset at least 
) without plugins, but I couldn't get it to work.  I had to download 
Adobe's plugin.
shadwolf:
1-Jan-2006
transform problem are on their way to be solve gradient too by cyphre 
and  Carl those  two things are the most blockant problems until 
they are not completly solved we can't expect to have a full working 
SVG rendering engine  -> most of SVG  imagines use transform effects 
and gradients this means    that if we want to get a pretty good 
and reliable SVG engine we have to fixe those two issue. SVR rendering 
engine is a good and hudge test upon AGG integration to REBOL/View 
and it allows us to embetter it !!! 


Once we get a fully working engine with basic human understandable 
algorithm i will start the  optimisation process using  parse (but 
to be franck i don't  know how parse will react in front svg row 
data or how will be the time to dev this parse based SVG engine ... 
 in all cases I think the actual engine have teached me a lot arrounf 
the SVG to AGG adaptation process so i hope the translation to parse 
and parse/rules will not be too hard and too long)
Pekr:
20-Jun-2006
would following news help us to get AGG - SVG compatible gradients? 
It regards AGG 2.4, new branch of AGG, and I am sure we will get 
it ported to REBOL too ...


New utility class template is added, gradient_lut. It allows you 
to easily create a color LUT for gradients from a set of color stops 
as they are defined in SVG, section Gradients and Patterns.
Group: AJAX ... Web Development Using AJAX [web-public]
Volker:
5-Dec-2005
Interesting, bever thought about that. Seems Google has thought about 
that too. Because with firefox they can build spiders which press 
buttons, read the results from the dom etc. Means you may get some 
robot-users which try mad input..

And they have this new traffic-tools for webmasters, where you can 
see what is searched, how yoursite is ranked etc. So everyone can 
tune his ajax enough to be googable too.
Pekr:
11-Apr-2006
hope we get full-featured plug-in one day ...
BrianW:
21-Apr-2006
Well, Javascript maybe rather than Java, but I get the idea.
Chris:
16-May-2006
For all Yahoo!'s talk about web UI patterns and best practise, I 
still required User Agent Spoofing (through Camitools) to get it 
working...
Henrik:
30-Jan-2009
I was amazed at how well video runs in Silverlight on my Mac. But 
I'd still like to see a separation of video from Flash to get a simpler 
and truly optimized video player.
Group: Syncing ... Syncing technologies [web-public]
BrianH:
4-Jan-2006
By "for comparison purposes", I mean don't change the file date, 
just subtract the diff between you and UTC to get the adjusted file 
date in memory and then compare against the adjusted file date from 
the server.
Group: Tech News ... Interesting technology [web-public]
Geomol:
23-Feb-2006
No. We need to get out of the browser. A place like that should have 
a REBOL client! :-)
Henrik:
23-Feb-2006
http://www.news.uiuc.edu/news/06/0222quantum.html<--- Quantum computing 
reaches more spooky levels. Get an answer from an algorithm without 
running the computer. It's called "counterfactual computation".
Sunanda:
1-Mar-2006
I've been telling people foy years to get a machine for work and 
a machine to trash for games etc.

Because if they call me (as they often do) and say "I've broken my 
only computer by downloading a game and now I can't get it to work 
and I've got to do something important" they get zero sympathy and 
I'm pretty dis-inclined to lend a hand in fixing their crisis.
Sunanda:
6-Mar-2006
MVS is called Z/OS these days.

Hard to hack -- but then not many people wouid have the skills to 
even get started: the concepts are so different to what you'd expect 
from a PC or UNIX background.
But not impossible
[unknown: 10]:
22-Mar-2006
About the Email.. I think they dont understand where email is going.. 
If they would have build an email client that would support encryption 
or packaging from text to grafics they would be on the route to the 
future.. For..re-inventing the wheel with lots of bells and advertising.. 
(yes im a little anti java and .net internet applications currently 
;-) Ever stranger...NET is dead and also is Java..still many use 
it.. i dont get it..
yeksoon:
31-Mar-2006
RoR like most other framework, sells the ease to get things done. 

What I think makes them standout, is the way they SHOW it.


1. Ruby itself is always a 'simpler' approach to Java. That is one 
EASE


2. They SHOW you on their webcast...and they said it themselves. 
'SHOW, Don't Tell'
http://rubyonrails.org/screencasts


3. And they also SHOW it by using tools other programmers use, eg 
TextMate, drawing a targetted group
potential user.


The success of RoR puts a lot of big companies to shame. (given the 
resources they have)
Geomol:
13-Apr-2006
All those Google applications. Wouldn't it be a lot better user experience, 
if REBOL clients were made, instead of having the applications inside 
a browser? Might be a good plan:

1) Get people away from MS products. It's not the best solution having 
everything inside a browser, but it lets them know again, that they 
have a choice.

2) Now people have choices, they can choose the best solution, which 
is REBOL reblets.
Henrik:
19-Apr-2006
he should be careful with windows that can be flipped over and are 
hinged at the center of the frame. I have those in my livingroom. 
When opened at a certain angle, the reflection in the glass is  directed 
towards the roof. Sometimes a bird would get "caught" in the reflection 
while sitting on the roof and start attacking the window glass repeatedly. 
It looks really funny, but you have to clean up the mess afterwards: 
I suppose repeatedly banging their head against the window glass 
every 2 seconds for 10 minutes makes for a bad stomach...
Maxim:
21-Apr-2006
Thanks Henrik, you just made my day ;-)     running windows XP apps 
on OSX natively!  HAHAHAHAHA  get the better OS, and the better Software 
and run them together.  event though they wheren't meant to even 
support each other from the start   :-)
Maarten:
26-Apr-2006
To me, it is all very simple. I just install a program that protects 
all content on my computer before *anything* comes on my PC. Now, 
every piece of software that tries to get anything of my computer... 
of course the protection I offer is cumbersome, so most software 
will circumvent it... and I can sue them. Of cousre I can publish 
something to protect me, espscially from a non-US country.
BrianW:
12-May-2006
Why is it that my favorite languages only get popular when they get 
fat and slow? :)
Pekr:
12-May-2006
dunno how they are organised. They apparently do get some money, 
then they announce possibility to gain some grants ....
JaimeVargas:
12-May-2006
It is better to be a polyglot than succumb on the I don't understand 
that, so I will not use it, and by the way I will bash any other 
language that I don't  get.
Group: !Liquid ... any questions about liquid dataflow core. [web-public]
Maxim:
18-May-2007
so using cgi for that kind of think (for liquid) is almost impossible, 
cause the viewers need to get the information BACK.
Maxim:
18-May-2007
hehe, right now... with the cgi in between, I don't think you'll 
get a lot more out of building it in liquid...
Maxim:
24-May-2007
my next step for liquid (what I was working on During the devcon, 
but wasn't able to get done do to lack of sleep) was the creation 
of liquid net.
Maxim:
24-May-2007
cause in many times when IT changes you get unwanted results out 
of its interaction with other systems.
Josh:
17-Apr-2008
Maxim, you ever get some more of those demos worked up for liquid?
Tomc:
19-Apr-2008
I think you can still get his attention on the maillist
Josh:
26-Feb-2009
the !sum plug is a good example,but I get a little stuck beyond that. 
 From my first impression of trying to do this, it seems like I'm 
going to have to define so many variables to make it too troublesome. 
 But I'm sure that I'll have to learn how to think in the right way 
to avoid all that
Josh:
27-Feb-2009
SOunds great!  If you can't get it finished, at least show me a sizable 
component of it so I can get some ideas
Josh:
6-Mar-2009
That's neat!  I will try not to set them to non integers! ;-)   j/k 
   I'll have to see how it all works under the hood, once I get it
Maxim:
7-Mar-2009
the example is DONE, it has MANY interconnected plugs which handle 
all maner of data integrity, button style effects, even disabling 
some buttons, when values get out of bounds!

built with VID, latest version of liquid.
Maxim:
7-Mar-2009
I'm REALLY happy to do it.  its a great opportunity for me to actually 
get some limelight on liquid  :-)
Sunanda:
7-Mar-2009
I've not had a chance to play with it yet, Max.

I suspect many of the downloads will be bots that like to index new 
content.....Not people passing by to check the scripts. New/changed 
scripts get prominent home page billing, so the bots come flocking 
to feast.
Maxim:
13-Mar-2009
anyone who wants to get to use liquid, don't hesitate to try and 
ask stupid questions.  They are hard to answer, and its giving me 
a chance to get a general feeling of what needs more attention in 
the forthcomming revision to the whole liquid documentation.
Maxim:
13-Mar-2009
pipes work in about the same way, but every time a value is filled 
within a piped plug, ALL of the other members of that pipe ALSO get 
filled with the same value.
Group: reblets ... working reblets (50-100 lines or less) [web-public]
Maxim:
19-Mar-2009
rebol [
	title: "explore.r"
	version 1.0
	date: 2009-03-19
	author: "Maxim Olivier-Adlhoch"
	copyright: "2009(c)Maxim Olivier-Adlhoch"
	tested: "win xp"

 notes: "Add any dir to the dirs block.  options are self explanatory"
]

dirs: [
	%/C/ []
	%"/C/program files/" [expand]
	"%tmp%" [label "temp dir"]
	"" [ label "my documents"]
]

blk: []

explore-dir: func [path expand? /local cmd][

 call/shell rejoin [" explorer " either expand? ["/n,/e,"]["/n,"] 
 path ]
]

ctr: 1
foreach [item opts] dirs [
	ctr: ctr + 1
	expand?: found? find opts 'expand
	label: any [select opts 'label to-local-file item]
	append blk compose/deep [ 
		pad 20 
		(to-set-word setw: rejoin ["dir" ctr]) check (expand?) 
		pad 20 

  btn 200 left (label) [ explore-dir to-local-file item get in (to-word 
  setw) 'data ]
	]
	append blk 'return
]


view layout compose [across vtext right "expand?" vtext "folder" 
 return (blk)]
Maxim:
19-Mar-2009
bug creep: parens disapeared for some strange reason...  replace 
in the above:


btn 200 left (label) [ explore-dir to-local-file item get in (to-word 
setw) 'data ]

with


btn 200 left (label) [ explore-dir (to-local-file item) get in (to-word 
setw) 'data ]
Ammon:
1-Apr-2009
REBOL [
	File: %scramble.r
	Author: "Ammon Johnson"
	Email: [ammon-:-johnson-:-gmail-:-com]
	Version: 0.0.1
	History: [
		0.0.1 31-Mar-2009 "scrambles and descrambles code"
	]
]

scramble: context [
	words: []
	load-words: does [
		foreach word first system/words [
			add-word mold word
		]
	]
	add-word: func [
		word
		/local chars length
	][
		chars: charset word
		unless found? find words chars [repend words [chars copy []]]

  unless found? find words/:chars length: length? word [repend words/:chars 
  [length copy []]]
		length: select words/:chars length
		unless found? find length word [insert tail length word]
		word
	]
	get-word: func [
		word
		/local chars length
	][
		chars: charset word
		unless chars: select words chars [return "UNKNOWN"]
		unless length: select chars length? word [return "UNKNOWN"]
		random/only length
	]
	scramble: func [
		txt
		/local result
	][
		result: parse/all txt " "
		forall result [

   unless empty? trim copy result/1 [change result random add-word result/1]
		]
		form result
	]
	
	descramble: func [
		txt
		/local result
	][
		result: parse/all txt " "
		forall result [

   unless empty? trim copy result/1 [change result get-word result/1]
		]
		form result
	]
]
1601 / 1026212345...1516[17] 1819...99100101102103