World: r3wp

Okay! Then you need another developer also. ;-P

well, some parts can be done separately, can't they? I did the button 
menu, so I would suspect a thing like a real palette requester could 
be done separately.

sure

Great progress guys, I think this project deserves its own group 
now. ;)

but.. what is the name of the program? :-)

REBOL Paint?

dunno... I guess it doesn't matter right now. also it seems the canvas.r 
will be somewhat modular so you can throw any interface on top of 
it

RPaint ?
;-)

GeoPaint

there was one called KoalaPaint. what about PandaPaint? :-)

Why not just "Canvas"? That's what it is (when it's more complete), 
a canvas, where you can use different tools to put paint on. I searched 
Google, and found a program called "Canvas Paint", which is based 
on the canvas widget of Tcl/Tk. That's not a problem, I think. There's 
another called "3D Canvas", also different. "Canvas" it is.

I don't have much time today, but next thing, I'll do, is to reimplement 
the brush, so different shapes are possible. And so you can select 
an area of the image as a brush.

I've got a flood algorithm:
http://www.lexicon.net/antonr/rebol/library/flood-recurse.r
do http://www.lexicon.net/antonr/rebol/demo/demo-flood.r

as my Furby says,   "Yummm..."    (guess the world is your canvas, 
Geomol)

As my Furby says... "Yummm..."  (guess the world is your canvas, 
Geomol"

sorry about that repeat repeat...curious, AltME was really dragging. 
 Hmmn, related to canvas???

test

trying to flood this forum?

:-)

Canvas group created.

In the new DRAW dialect, should SCALE have influence on LINE-WIDTH?

Better ask in AGG ?

can anyone outside of our firewall ping or see this? http://66.136.133.209

http://66.136.133.209

Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),

Pinger 66.136.133.209 med 32 byte data:

Svar fra 66.136.133.209: byte=32 tid=793ms TTL=234
Svar fra 66.136.133.209: byte=32 tid=604ms TTL=234
Svar fra 66.136.133.209: byte=32 tid=317ms TTL=234
Svar fra 66.136.133.209: byte=32 tid=753ms TTL=234

eFistAnt, LOL Why in group "View"? :)

That's one of the groups, I'm 'monitoring'. You made me look, so 
now you earn me a beer in Italy! ;-P

(if you show up)

connecting to: 66.136.133.209

** User Error: Error.  Target url: http://66.136.133.209/could not 
be retrieved.  Server response: HTTP/1.0 401 Unauthorized
** Near: cont: read http://66.136.133.209


Firefox: {Enter username and password for "level_15_or_view_access" 
at http://66.136.133.209}
(a security requester prompting for username and password).

I was trying to extend iterated faces example from http://www.rebol.com/docs/view-system.html#section-10
to support feel/over but with I was not very succesful. Iterated 
faces react on over (I'm changing color of edge) but when I click 
on one of the faces, now all other iterated faces' edges use the 
"over" color. Can anybody help me?

What is a good way to check for certain values in an input field?

Let's say, I want to do an integer field, I've tried this as the 
action function:

if error? try [to-integer value] [set-face face 0]


It works first time, but if I try enter an integer afterwards, it 
just get settet to zero again. Any ideas?

maybe "0"? if you dump the later errors, it should say something 
like "cant append to an integer" your way".

No, doesn't work setting it to "0". Try this:

view layout [field "0" [if error? try [to-integer value] [set-face 
face "0"]]]

You can enter integers at first, but if you enter a letter, it stops 
working.

I had the same problem and did not find a solution

You can note something to rambo:

view layout [field "0" [probe face/text probe value if error? err: 
try [to-integer value] [probe disarm err set-face face "0"]]]

the face/text contains the new value, but 'value itself stays on 
the buggy one.

so this works:

view layout [field "0" [if error? err: try [probe to-integer face/text] 
[set-face face "0"]]]

because ctx-text/edit-text uses /data, not /text.
not updated because of error.
                if flag-face? face return [
                    if flag-face? face hide swap-text 

                    if flag-face? face tabbed [focus next-field face] 
                    action face face/data 
                    exit
                ]

so setting /data by hand works too:

view layout [field "0" [probe face/text if error? err: try [to-integer 
value] [probe disarm err set-face face "0"]]]

pasted wrong version

view layout [field "0" [if error? try [ probe to-integer value] [set-face 
face "0" face/data: face/text ]]]

Thanks Volker!

(dont forget to met rambo ;)

Sent it to RAMBO.