World: r3wp

if you have fixed width or height, you could make a face of that 
fixed with or height with the text in it with the same font as for 
the area. then you can with SIZE-TEXT get the size back of the required 
size of the area. BTN does this.

the face you are using should be of quite large height or width, 
depending on what you want to size the area on. SIZE-TEXT bases the 
size of the text on the visible amount of text in the face, so if 
the face is too small, it will use the face size and not the text 
size.

I fetch the text asynchronously ie. I don't have the text at the 
time I construct the layout .. oh well...

; You could make the text face dynamically each time:


make-textbox: func [width [integer!] text [string!] /local textbox][
	textbox: make-face/size 'text (width * 1x0)
	textbox/text: :text
	textbox/size/y: second size-text textbox
	textbox
]

Does the line-list facet hold it?

open the area just enough to show all the text
 - size-text ?

Amacleod and Graham, my apologies for the two week delay. I don't 
know where I got it either now though it was written by Didec with 
Notes: "Code abstracted from altme offline reader by Graham Chiu 
and used for this chat client". I just saw the Graham part when I 
first saw it so I thought he had written it. Of course the cool thing 
is the scrollable boxes work great.

Nope, can't find where I got it from. : (

Can you post it again. I would like to have a look.

I recently found this on my HD and as I'm not sure I've ever posted 
it somewhere, I'm posting it here. Do what you want with it.
do http://bolek.techno.cz/reb/request-color.r

Also check this small GUI experiment:
do http://bolek.techno.cz/reb/efflist-complete.r


rearange the effects using drag'n'drop, duplicate effect whit green 
"o", remove them with red "x" (that's not good idea, as you cannot 
add removed effects back) and set their values with knobs, check 
box and color-picker.

nice. could it be simplified?

if we could get that color wheel in along with the sliders and a 
storage for colors, that would be nice.

(I'm considering that colorwheel for R3 VID

)

Thanks, it could be simplified, I've added the preset paletes so 
one can get consistent color shades, but it can be easily removed.

what's the license? BSD?

I think it should be much faster under R3. At least I hope ;)

Yes, BSD

I will post this in the internal VID3 group.

but I may change to MIT or even PD. It's been sleeping on my HD for 
1.5 year without any usage :)

are there any known bugs in it?

Just that the precision of picking color in the triangle is limited. 
You can test it if you try to move the picker to one of the edges 
and you will see that the sliders won't go to min/max values. There's 
some rounding involved, missing decimal pair! and of course, to be 
really precise, the color wheel should be at least 256pixels wide. 
But you can alwas finetune using sliders.

do you directly read the color in the triangle or calculate it based 
on the cursor position?

(the latter might give increased precision, I think)

I was reading the color from the triangle but there's difference 
between calculated value and value from the gradient so now I'm calculating 
it from the cursor position. There's some comented code to show you 
the difference between both methods.

ok

Very nice work, Rebolek!

Nice GUI elements used; I like the rearrangement method used in the 
list of effects, and I see you've done some nice rotate knobs.

Anyone got a simple busy animation I can use with draw?

http://hmkdesign.dk/rebol/wait-anim.r

Not sure it isn't broken though. Never used it.

I see certain things I would have done differently today. :-)

do http://hmkdesign.dk/rebol/wait-anim.r

view layout [a: wait-image tog "Wait for it" [either value [a/start][a/stop]]]

nice

I remember not using it, because it didn't work with networking somehow. 
When View doesn't receive events, it can't work.

If you're using BEER, maybe you don't have that problem.

I

I'll try it out after dinner

Actually the images in wait-images can be used for the anim widget 
in Rebgui :)

; Similar idea -- copied the Apple busy style:

do http://www.ross-gill.com/r/busy-style.r
view layout [bsy: busy black do [set-face bsy true]]

very cool

Trying to figure out how it works again : )  Same problems with events 
though...

I picked up an Asus Eee PC with XP on my latest vacation in Japan. 
Rebol runs quite nicely. The relatively small resolution has caused 
me to redo an app. Is there an "easy" way to do screen resizing? 
Is this something best left up to 3.0?

I could in a pinch enclose the screen I have in a scrollable pane 
set to limits of the Eee PC, I suppose.
Thanks as always in advance.

Romano and others have done resizing systems for R2. They can work 
very well, without tooooo much more effort than normal

I did one interface once where all sizes (components and text) were 
set relative to the layout size, though it was intended to run full-screen. 
 Not sure that's applicable...

Thanks. I will look those up.

I have done a resixing system for R2 that is intended to be incorporated 
directly in future versions. It can be used as is now though.

resizing

BrianH, is it something that is available?

hi.  I run View in Win XP.  My script is very simple... 

blk: load %/c/input.txt foreach url blk [if not find attempt [read 
append url "cvap"] "Nothing found"  [browse url]]
and a line in the input file is something like this:
http://website1.com/search?query=
http://website2.com/search?query=


So, I want to search for "cvap", and it appends that to the URL and 
I search the result string and if it DOES NOT say "Nothing Found", 
then I open that URL so I can visually examine it.


It works 95% of the time, but sometimes I get the following error:

** Script Error: find expected series argument of type: series port 
bitset
** Near: if not find attempt [read append url "cvap"]

Any ideas how I can fix this?
thx

If 'attempt fails, it returns none.