AltME groups: search

Here is a suggestion for match - add /any and /case refinements like 
the parse refinements, and then change the line:
    parse data recurse
to this line, indented properly if needed:

    do pick pick [[parse parse/case] [parse/all parse/all/case]] none? 
    all none? case data recurse


It's the quickest way to pass along refinements I've figured out 
yet, short of rebcode apply.

After going nuts for some while now, I'll ask the community maybe 
someoe has a good tip for me:

I need an application that can do two things with more than 2 persons 
at the same time:
- video conferencing

- application sharing (or at least having one exporting his desktop 
to a number of users)


I thought that netmeeting might be good but it's quite old and doesn't 
seem to be further developed.

What do you want to know?  WE support LDAP and RADIUS in Qtask.

this is different, I got mails like this:

This is the Postfix program at host mail.rebol.net.

I'm sorry to have to inform you that your message could not be
be delivered to one or more recipients. It's attached below.

For further assistance, please send mail to <postmaster>

If you do so, please include this problem report. You can
delete your own text from the attached returned message.

			The Postfix program

switch1: func [
    "Selects a choice and evaluates what follows it."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local blk
][
	value: find cases value
	if value [value: find next value block!]
    either value [do first value] [if default [do case]]
]

switch2: func [

    "Selects a choice and evaluates the first block that follows it."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local rule
][
	rule: [
		1 1 () ; <-- value
		to block! set value block! (return do value) 
		to end
		| skip to () ; <-- type? value
	]
	rule/3: value
	change back tail rule type? value
	any [
		parse cases [some rule]
		do case
	]
]

;test
repeat n 10 [
	print [
		n

  switch2/default n [2 4 6 ['even] 1 3 5 ['odd]] [mold "--default--"]
	]
]
switch2 1 []
switch2/default 1 [] ["--default--"]

switch2: func [

    "Selects a choice and evaluates the first block that follows it."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local rule
][
	rule: [
		1 1 () ; <-- value
		to block! set case block! ; <- re-use the 'case variable
		to end
		| skip to () ; <-- type? value
	]
	rule/3: value
	change back tail rule type? value
	parse cases [some rule]
	do case
]

{switch2: func [

    "Selects a choice and evaluates the first block that follows it. 
    This occurs for every matching value and following block found."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local rule
][
	rule: [
		1 1 () ; <-- value

  to block! set case block! (case: do case) ; <- re-use the 'case variable, 
  twice...
		| [skip to ()] ; <-- type? value
		| skip
	]
	rule/3: value
	rule/11/3: type? value
	any [
		all [
			parse cases [some rule]
			case
		]
		do case
	]
]}

;test
repeat n 10 [
	print [
		n

  switch2/default n [2 4 6 ['even] 1 3 5 ['odd]] [mold "--default--"]
	]
]
switch2 1 []
switch2/default 1 [] [probe "--default, ok--"]
switch2 1 [1 [probe "ok"]]
switch2 2 [1 [probe "bad"]]
switch2 1 [1 2 [probe "ok"]]
switch2 2 [1 2 [probe "ok"]]
switch2 3 [1 2 [probe "bad"]]

; multiple action blocks
switch2 1 [1 2 [probe "ok"] 1 3 4 [probe "ok#2"]] ; <-- 
switch2 2 [1 2 [probe "ok"] 1 3 4 [probe "bad"]]
switch2 3 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
switch2 4 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
switch2 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]]


switch2/default 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]] [probe 
"--default, ok--"]

Ok, here it is:
; FIND-based, multi-action
switch3: func [

    "Selects a choice and evaluates the first block that follows it. 
    This occurs for every matching value and following block found."

    [throw] ; <-- allows RETURN to be used by the user to jump out of 
    an enclosing function (not just this one)
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."

    /local result done? ; <-- flag so we know whether an action block 
    was done. (Can't just check 'result, could be unset!)
][
	while [cases: find cases value][

  either cases: find next cases block! [set/any 'result do first cases 
  done?: yes][break]
	]
	either done? [
		get/any 'result
	][
		if default [do case]
	]
]


my-switch: :switch3   ; <--- set to the function we want to test


;test
repeat n 10 [
	print [
		n

  my-switch/default n [2 4 6 ['even] 1 3 5 ['odd]] [mold "--default--"]
	]
]
my-switch 1 []
my-switch/default 1 [] [probe "--default, ok--"]
my-switch 1 [1 [probe "ok"]]
my-switch 2 [1 [probe "bad"]]
my-switch 1 [1 2 [probe "ok"]]
my-switch 2 [1 2 [probe "ok"]]
my-switch 3 [1 2 [probe "bad"]]

; multiple action blocks
my-switch 1 [1 2 [probe "ok"] 1 3 4 [probe "ok#2"]] ; <-- 
my-switch 2 [1 2 [probe "ok"] 1 3 4 [probe "bad"]]
my-switch 3 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
my-switch 4 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
my-switch 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]]


my-switch/default 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]] [probe 
"--default, ok--"]

I'm rather badly needing a pagemaker pm5 file converted to ASCII 
format. My copy of Pagemaker has been corrupted, and I just want 
to print a document using LaTeX. The file is about 309 MB. Is there 
anyone here that can do this for me?

I have my rebol multi-server, hopefully it would work, but I would 
need to think of how to do calculations :-)

If I were to do the same for FF it would:

I plan to keep running Opera on a regular bases.  I think there are 
more features than I'm seeing so far, but in a nutshell:


-	Separate Universe: Having a "another" browser is a good way of 
keeping things sepeate.  For example I might use Opera for my Qtask 
test accounts, and for checking up on some "grouping" of sites, since 
Opera is good at opening multiple tabs at start up (although it should 
stagger them since this is one of the speed hits).


-	Cache: It seems to auto pull a page it decides is the last version. 
 I'm not sure how it decides this yet.  But if I figure it out, this 
is a cool feature.


-	Magic wand: Great feature.  It should have its OWN password.  In 
other words.  Andy, Billy, and Carry, all use the same computer. 
 There are a lot of families that do this. IT would be nice to group 
your log ins to the same sites (AB and C all have separate Yahoo 
account, and separate Amazon accounts).  So they can basically Log 
in first with Opera, then go to town.  Even better would be an online 
service for this.  Can't wait for Identity 2.0.


-	Overview:  Opera has this cool feature of showing you a 3x3 grid 
of thumbnails of you fav sites.  This is cool.  So cool I want to 
see if there is a plug in for FF for this too.-

I haven't used callbacks in REBOL, but that might work. SetWindowsHookEx 
expect a pointer to a C func, which a REBOL func is not, so that 
won't work.


Low level integration with the OS is not REBOL's strong suit. There 
is a lot you *can* do, but also a lot you can't.

John Lennon - Imagine

Imagine there's no Heaven 
It's easy if you try 
No hell below us 
Above us only sky 
Imagine all the people 
Living for today 

Imagine there's no countries 
It isn't hard to do 
Nothing to kill or die for 
And no religion too 
Imagine all the people 
Living life in peace 

You may say that I'm a dreamer 
But I'm not the only one 
I hope someday you'll join us 
And the world will be as one 

Imagine no possessions 
I wonder if you can 
No need for greed or hunger 
A brotherhood of man 
Imagine all the people 
Sharing all the world 

You may say that I'm a dreamer 
But I'm not the only one 
I hope someday you'll join us 
And the world will live as one

print ["happy new year for" to-integer (10 ** 3) + (10 ** 3) + (2 
** 3) "to us all"]


(There's a second way to do that as the sum of three positive integers 
cubed. Try it!.)

There are many ways to do that.

Show image
Show image upside down below it.
Put alpha gradiant of table colour in front of that.

It will alos look a lot better if you add a feathered ellipse near 
the base of the highlight colour from the image.

I was hoping for existing code. :-) I already have the flip bit, 
but then couldn't find a draw command to let me alpha a four-point 
spec'd image. I figure I'll have to do it with two faces, which is 
OK.

Hello, I whish to create the DocBase group. Is there with admin priviledge 
that could do this thing ?

Hi Izkata, I have been trying to use your calendar application. When 
I paste Scheduler.r in to view I get the following error message:

** Script Error: Interface has no value
** Near: view/new/title Interface "Calendar"
do %NetworkingStuff.r


when I click on the file it causes view to shut down. What am I doing 
wrong?

there is one thing we could do though, which is to buy one laptop, 
and start making our own clone of their ui with rebol, and then show 
them how much better it is. :)

pekr, good point. :-) I don't think they can be impartial to the 
language used. I wonder what they would do if Python wasn't open 
source.

do you think that those that go to the usa don't have relatives or 
friends? and, isn't that an improvement for them at least anyway? 
keep in mind, in most of these countries, the problem is corruption, 
and sending more money makes that worse. sending laptops does not 
increase corruption at least.

You can do it by making your own MAKE function like:

omake: func [o blk /local newo] [newo: make o blk newo/c newo]


This function take 2 arguments like MAKE does. An object and a block. 
It first create a new object based on the 2 arguments. Then it call 
the function c (constructor) in the new object and finally return 
the new object. You can use it like:


>> o: make object! [a: 0 c: does [a: to-integer ask "Value? "]]	; 
This is the "class"
>> o1: omake o []
Value? 3
>> ?? o
o: make object! [
    a: 0
    c: func [][a: to-integer ask "Value? "]
]
>> ?? o1
o1: make object! [
    a: 3
    c: func [][a: to-integer ask "Value? "]
]

On the constructor question, another way to do it is to define your 
object spec, and include initialization code in that.


>> o-spec: [time: none set-time: does [time: now/precise]  set-time]
== [time: none set-time: does [time: now/precise] set-time]
>> probe o1: context o-spec
make object! [
    time: 27-Jan-2008/11:07:00.875-7:00
    set-time: func [][time: now/precise]
]
>> probe o2: context o-spec
make object! [
    time: 27-Jan-2008/11:07:04.5-7:00
    set-time: func [][time: now/precise]
]

Reichart, i think it should be easy to do. (Especially in R3 :)

Which REBOL script do you think would be the best to start with?

You know......................after much thought, what I might just 
do is write a simple ML to SVG converter.

It would be almost a 1:1 command set (in fact mostly what I would 
be doing is translating offsets).

The ML would be clean, while the emiter would allow a browser to 
be the viewer.

http://en.wikipedia.org/wiki/Scalable_Vector_Graphics

Graham, what part do you doubt?

SVG has promise, and "smells" to me like someting that will grow. 
 It badly needs a Pcode, since there is no reason to parse every 
time.

It looks very promising as a way to do what I want to do, and keep 
things standard.  Plus we might build a DRAW to SVG dialect for Reports, 
Graphs, and even light interface (like Gantt).

(but I don't like SVG... I really hate to open page with 3 SVG diagrams 
and my computer does nothing else than parse and draws these diagrams... 
the worst it is that the page is from W3C, so they should know that 
thay can use PNG for these images.. it would require less space to 
transfer and my computer could do better things while displaying 
such a page.

OK, but do you think that it is a bad thing to have vector gfx available? 
That way, VID3 UI will be scallable. Carl also said, that there is 
some space for improvement. What Cyphre thinks is, that maybe we 
could get compound rasteriser workind, which could speed things up 
a bit (Flash uses it)

This is not a compitition...............just showing a cute example. 
 You guys sure do jump to the negative quickly...

Do you think we could add kind of PCode to Draw?

Reichart - do you know - http://www.caligari.com/? Maybe good enough 
to "record" stuff around your house? Hmm, but maybe way too much 
complicated for what you need ...

Yup, I knew Roman (the founded) when he introduced his stuff at SIGGRAPH, 
an when he first showed Calagari on the Amiga.  His stuff has come 
a LONG way.  Very impressive (very cool guy too).
I need only a 2D scripting system though.


BrianH, I did not know about EBML, but I don't see the advantage 
of EBML, or Rebin for that matter.  PCode (in my simple mind) servers 
several purposes:

- Portability to multiple systems.
- Faster execution
- Smaller size

Pretty much in that order.


Back when I did video games, I designed a language called MIDAS (which, 
while it looks like I made the name fit the acronym, I did not….Machine 
Independent Demonstration and Animation System)


It was designed to do the opening credits, scores, dialogs, win sequences, 
and it produced simple (very very simple pcode) out to the C64, IBM, 
Amiga, etc.  All you had to do was convert the art, and we had a 
tool to do that too.


Each command would become 1 byte (since there were less than 256 
commands.  So it produced something that looked like assembly.


With both EBML and Rebin, there would be (I assume) still parsing, 
unless you are writing everything yourself (in other words, a player).

You have to parse Pcode too - it's just easier to do so (I have).

Hmmm...I am still not following here.  I know the history of Pcode. 
 But you used "Rebin" above to imply a Pcode for REBOL.
I'm still not seeing why this would be worth it.

I want to see this (undertand it), I'm just not getting it.

It does not (seem to me) match the three reasons to do it
 
- Portability to multiple systems.
- Faster execution
- Smaller size

Here's a breakdown for any encoding (Pcode, XML, REBOL, whatever):

Portability:

You need to build or acquire a decoder or encoder, and third-party 
code would need to as well. Advantage: XML


Faster execution: The main way you get that is to make the model 
of your data format match your data model. If the match is close 
enough you can translate the data to your internal model in insignificant 
time, like EBML to XML, Rebin to REBOL, or CPU instructions. If your 
internal semantic model is simple enough you can quickly do a direct 
interpretation of the data, like older Pcode interpreters or the 
original Java byte code, or the micro-operations inside modern CPUs.


In the case of REBOL, we have it easy because REBOL is primarily 
a data model. All we have to do is encode that data in an efficient 
binary format and then decode that format to the memory model. That's 
Rebin, the proposed Pcode of REBOL.


In the case of XML, it is slightly more difficult because there are 
competing binary encodings, and none of those will be supported in 
a web browser until it wins the format war. EBML is like a Zip for 
the XML data model, rather than its syntax (similar compression algorithm 
too) - much faster than unzipping XML and parsing it. The main problem 
is that only Matroska decoders support it right now - no web browsers. 
Similar constraints exist for the other binary encodings of XML.


In the case of SVG, we are much less lucky. SVG has its own data 
model on top of the XML data model. Once you decode the XML from 
whatever format it was encoded in, you end up with data of the XML 
model - then you have to interpret that data to get a dataset in 
the SVG model, much like the relation between REBOL and the Draw 
dialect. There may be some advantage to coming up with a Pcode for 
SVG.


The main thing that you need to keep in mind is that your Postscript 
experience is throwing you off: The semantic models of modern graphic 
formats are declarative, not programmatic - this was the main change 
between Postscript and PDF. A Pcode for a modern graphic model would 
not be executed like code, it would be loaded as data.

;Robert, should be easy enough to do a script based around these 
examples from the draw docs

I got some good info from Antons page, great summary anton thanks... 
I think I know what to do now ;-)

Is there anything I can do about the "no 'wait in view handlers" 

I try to use an sqlite call in a button, but sqlite uses wait internally 
...

there's a million things wrong with VID, but right now there isn't 
much to do but work around it

now to do what? report new bug, or to check all styles?

I would do it this way ... just try to probe main, it seems to be 
some whole VID :-)

yes yes.. i think thats it ;-) I forgot to do a make face of the 
bolck..

The point is that it should be easy for everyone to do this. VID 
does not offer a standardized way to do this and you need to study 
how to switch layouts in panes, etc. It should work out of the box

I am not sure how universal the library is for graphing ... maybe 
if we want to do graphing, we should look for the best of kind library, 
then to port ... I am not sure if there is any advantage to matplotlib 
- it calls agg library, which we have inside of rebol already, so 
:-)

Is it possible to add effects to am image using the draw dialect 
? (ie do something like tinting an image inside the draw dialect)

The docs arent clear on how to do it though ....

how do we know if current view or core version has access to pro 
features (a part from doing an /attempt on a lib call

I tried to create with the following code a circle with a transparent 
background and save it. I tried some different versions, but currently 
I have no glue how to achieve this. The point is I need a file with 
a circle and a transparent background :-) and I thought I quickly 
do this with Rebol instead of using a paintprogram. So am I doing 
something wrong ? It's saving the background from the window and 
if that is set to 'none then it's black ?

view layout [
    b: box 22x22 effect [
        draw [pen red line-width 2 circle 11x11 10]
    ]
    across 
    f: field 200 button "Save" [
        file-name: to-file f/text

        unless find/last file-name ".png" [append file-name ".png"]
        save/png file-name to-image b
    ]
]

What is the application to do ?

so ... what is the application to do ?

Yes, do you want full history like Photoshop ? (Not that hard to 
do, really, except the styles which need to be created for the user 
interface will be time consuming).

Rooky: how do i get this thing to become a tuple ? -> rejoin [ random 
white "." 64 ]
whatever i try it stays a string..

well i want random collors in my 'draw effect like this ->

 effect: compose [ merge fit draw [  
                        pen randomcolor + alpha blending
                        line-width 4
                        line-pattern 1 5
                        fill-pen randomcolor + alpha blending
                        box 10 10 8
]

but somehow Im unable to do that with compose or reduce...

so i need to rejoin the random color with i.e. the alpha of .64...
Do i need a compose/deep on this perhpas?

Q: focusing a specific field

Whar's the best way to focus a specific field on display of a layout? 
ATM I append sth like:
do [focus the-field]

What are you actually trying to do, Paul ?

I'm not trying to do anything actually - I actually do it from within 
the feel as well.  I agree that I don't want REBOL to bloat anymore 
than necessary.  I think this could be something that could be added 
to VID for example.  I think VID could even be pulled out of the 
system object and just loaded when needed.

Yes, but there must be some reason why you want to do this on this 
particular day :)  But I still don't agree it's good to add a new 
facet to the face object just for this one purpose. Consider how 
many different confining systems there can be. This is something 
that should remain user-programmable.

I've never seen a way to do that.

I'm going to do the same here with Johns dialect. Does yours produce 
PS from his dialect?

One thing I love using View for is to make very quick custom GUIs 
for customers who need to carry out special tasks, but have no idea 
how to do it via the command line. It takes minutes to build something 
up (say a simple backup/restore system) and show them which buttons 
to press. It can almost be done right in front of them.


I'd hate having to resort to downloading a 50-100 MB Flash development 
tool or build and compile Visual Basic apps, which, ooops, don't 
really work on their Linux box, and I just need a GUI with two buttons 
and a text field. Also how much system access does Flash give you? 
Can you create/move/delete files?


It's so much nicer to say "Sure, let me do this and it can be done 
in an hour" rather than "I'll have a look at it at home and we'll 
see what I can deliver some time next week."


For those things, it doesn't matter that View doesn't use Aero, Quartz 
Extreme or super fast hardware acceleration to display a few simple 
buttons. It just does the job you need to do.

Anton, I know about matrix math and have a book here with the standard 
4x4 matrix operations for transformation like rotation, scale, etc. 
in 3D, if you need those. But are you sure, AGG use matrix math to 
do the 4-corner IMAGE trick? I would guess, it's some (2D) texture 
algorithm.

but I wouldn't do that to anton's server...

The events are captured in wake-event. Instead of just allowing wake-event 
to DO them, I simulate DO with my reverse-engineered version (mimic-do-event). 
Since I have programmed it I can add features like event-transparent 
faces.

Ok, well I have shown how to mimic do event, so:
	wake-event
		mimic-do-event
			either event-is-for-local-view-of-remote-desktop? [
				send-event-to-remote-desktop
			][
				handle-event-as-usual
			]

	forever [
		wait-for-remote-desktop-message
		update-our-view-of-remote-desktop
	]

No Volker, you can't do that !  What if you only want to restart 
the remote computer for instance ? :-)

(I'm not going to do that, probably.)

this is imo why RT came with native console. Nowadays, I do prefer 
separate console, but I would like to see better support for keyboard 
navigation, which is currently very weak ...

now the thing is, if we want to reinvent the wheel. I do remember 
very powerfull consoles (even with coloring modes) from Amiga days, 
and if we talk non X-windows Linux installation, we do want to use 
text based console anyway ...

having a separate console seems to me causes a problem with rebol 
processes that do not initially print anything on a console. the 
problem arises when needing to print to a console. where to go? If 
another rebol process is already running, the new process starts 
printing there, "merging" the two consoles and rendering the console 
useless.

I'd like the option to use a native console. I'm frequently using 
Windows remotely and that can be a little awkward to do cross-platform, 
and can be high bandwidth as well. The NT console is powerful enough.

as for Windows, I am used to own graphical one. And how do we get 
cross-platform console, which behaves the same way, if not having 
rebol own one?

Well, I want native console mode REBOL to integrate with other console 
mode apps and scripts, and for when I am already in console mode 
and need to do something without switching to a GUI. When I am in 
GUI mode already, the existing console is fine. I need both.

I would like to know though, if ppl do prefer identical behavior 
of console on each platform, some extended console functionality 
- e.g. multirow arrow navigation, coloring (simply close to editor), 
or they prefer to use OS native console ...

Did anyone try to patch the behaviour of area? Especially I'd like 
to have:
- autoindent

- doubleclick on words in the area to do something interesting - 
e.g. look up in dictionary, use like a wiki word, ...
- maybe add additional shortcut keys.


I've tried to patch ctx-text/edit-text, but only was able to get 
no change at all, or crashes. Seems to be a bind problem:
ctx-text/edit-text: func[][] ;no change

ctx-text/edit-text: func[] bind [] in ctx-text 'edit-text ; unknown 
word ...

How feasible is it to do the latter in View?

But for some fun, you might be able to do something like this:
>> do to-path [help.gif size]
== 48x48

maybe the select action could be overloaded to do what Henrik wants. 
i'm not too much in favor of overloading functions though.

I think a separate function such as ACCESS should do that. SELECT 
should be left alone to do its series operations as usual.

SIZE? is a function using INFO?

INFO? is a funciton working on ports. It's easy to do the same for 
images.
image-size?: func [img] [img/size]

How do you know the frame rate on a moving pattern?  It could be 
187 frames per second, and moving so fast that it appears to be moving 
slow, or even backwards : )

ctx-viewtop: context ctx-viewtop

do bind [if block? ctx-prefs-gui [ctx-prefs-gui: context ctx-prefs-gui]] 
ctx-viewtop
;do bind [slide-to email-settings] ctx-viewtop/ctx-prefs-gui
do bind [
	use [face][

  face: foreach face prefs-face/pane [if all [face/style = 'tog face/text 
  = "Email settings"][break/return face]]
		face/feel/engage face 'down none
	]
] ctx-viewtop/ctx-prefs-gui
ctx-viewtop/view-prefs

I have a bunch of *.bmp with a transparent color (effect[key]) and 
want to make animated gifs from them. how can i do that? Cn rebol 
help, or which tools?

Ok, from RebGUI group, as it's not just related to RebGUI:


I have the following problem from time to time on my system and always 
on the system of one of my testers.


On my system: I start my app, the gui comes up and I click the first 
widget and the app falls back to the console. Without an error. This 
happens as do-events returns.


The same problem is on the other system, but here I only can do one 
click on a widget.

Hmm... I now have added to records to my app and since then it works. 
What could cause do-events to exit?

So am I right:

I need to define before ports:

gps-port:  open ....

url-port: open ... ??? ( read  doesnot fit here?)

user-port: ??? also is needed 

and then loop with wait [ gps-port url-port user-port ] [
	do I need here to catch what port it is 
	and do apropriate actions
]

and decide what to do based on active,
 if same? avtive gps-port[..]

perhpas a silly question, but how do I determine the name of a function 
mi currently in ?

As in, Im creating functions with a random-name and I would like 
to know in what function-name
im currently in... Is this possible ??? Like a 'SELF or 'ME ?

text is required to be centered. this is not possible to do with 
draw accurately.

The question I tried to answer for a long time was "how do I know 
if the mouse is in this rectangle or not ?"

How is about clipboard for last version of view?
Is it possible to 
insert in clipboard port image?

I have code to do it for Windows.

Do you to inject a resize event into View's event handler?

how do you bind layout words to an object easily? I want to set faces 
to variables which are supposed to be local to the context of my 
Tester program. I realize this is really the old "dynamic variable 
list in an object problem" all over again (I run into this very often 
it seems), but was wondering if LAYOUT specifically allowed some 
tricks...

I was afraid that is what I needed to do :-(

aha, you do not want to "duplicate" declarations?

I've figured out a way to avoid showing the caret for you custom 
styles. It requires patching FOCUS and using insert-event-func to 
install a handler that sends key events to the focal-face when there 
is no caret.  (DO EVENT won't do that, so we have to.)
See http://anton.wildit.net.au/rebol/patch/focus-system-patch.r

gabriele, in my program it was triggered by closing an inform window, 
but after stripping away all the code to the above, it didn't have 
anything to do with it. It merely triggered the bug accidentally.

anton, interestingly also, speed has nothing to do with it. you can 
do the same thing at keyboard typing speed.