World: r3wp

you must DO right at the button.

Ohhhh, I missed that

How to solve such problem ?
It seems like input-file is evaluated with none as infile value.

REBOL []

container: make object! [
    infile: none
    input-file: read join infile ".txt"
]

c: make container [infile: %rme/test]

When you are making the container Rebol evaluates the code in the 
argument block. So in this case, it first  sets infile to none and 
then tries to set input-file to the result of evaluting read join 
infile ".txt".

To achieve what I think you want you need to make input-file a function!:

container: make object! [
	infile: none
	input-file: make function! [] [read join infile ".txt"]
]

Or use DOES again:
input-file: does [read join infile ".txt"]


When stuff is evaluated can be a bit difficult to figure out. The 
more you use and learn about REBOL, the more clear it will become.

So "input-file: does [read join infile ".txt"]" is the same I suppose.

Geomol: sorry, too late :)

what about 'construct? It does not evaluate anything :-)

I've just tried this :

REBOL []

container: make object! [
    infile: none
    content: none
    input-file: does [content: read join infile ".txt"]
]

c: make container [infile: %user]

But it fails.

construct doesn't work in this case, because then input-file just 
become the word READ.

Kib, what fails? You have to call input-file, before you have the 
result in content.

I named my script "ooo.r" and I have a "user.r" file inside that 
directory too.

sorry : "user.txt"

c: make container [infile: %user]
d/input-file

now c/content should hold your file content.

>> do %ooo1.r
Script: "Untitled" (none)
>> c/infile
== %user
>> c/content
== none

You have to call input-file. :-)

Geomol: hoops!!! my fault, I was calling "infile" not "input-file" 
!

works fine now !

I'm mising something here :

#!/usr/bin/rebol -q

REBOL [
    Title: "Tests with oo programming"
    Date: 26-Feb-2009
    Author: "Kib"
    File: "ooo1.r"
    Purpose: "nothing interesting"
]

son: make object! [
    parent: none
    name: "object b"
    get-parent: does [print parent]
]

mother: make object! [
    name: "object a"
    son-instance: make son [parent: self]
]

pony-mum: make mother []
print ["object name: " pony-mum/name]
print ["instance name: " pony-mum/son-instance/name]

print ["instance name:(other method) " pony-mum/son-instance/get-parent]

What's wrong with the last call ?

son-instance: make son [parent: self] 

self refers to son-instance

Graham : as i'm inside mother, self refers to a mother no ?

It looks like you're inside son-instance

mother: make object! [ name: "object a" myparent: self son-instance: 
make son [ parent: myparent ]]

>>it looks like you're inside son-instance


I don't understand why, sorry. I'm inside mother (I mean, when I 
write it "son-instance", but maybe it's a bad Python habit). 
 
mother: make object! [
    name: "object a"
    son-instance: make son [parent: self]
]

http://rebol.com/r3/docs/concepts/objects-self.html

you're creating a new object son-instance so self now refers to son-instance

You mean when I write "make son ..." I'm already inside the son object 
?

that may explain my problem

I think so.

ok: thanks !

Is there any lib somewhere to encode or decode a file to utf-8 ?

Test it:
>> son: context [parent: self]
>> son/parent = son
== true

You could do:

	mother: context [
		son: context compose [parent: (self)]
	]

so now

	>> mother/son/parent = mother
	== true

better idea :)

Oldes did some work with unicode, if I remember correctly.

Anton: hi! thanks a lot: what's the meaning of the parenthesis here 
?

The COMPOSE rebuilds the block, with anything in parens evaluated 
first.

So SELF will be evaluated before the second CONTEXT has a chance 
to see it.

But, if you're curious, you can always have a look yourself, using 
PROBE, eg:

	mother: context [son: context compose probe [parent: (self)]]

	mother: context [son: context probe compose [parent: (self)]]

mother: context [son: context probe compose [parent: (self)]]

etc..

ah...funny : nice example.

For the encoding, I was asking this because all my accented chars 
in HTML appear correctly but one, the "à".

Just move the probe from right to left to find out what's happening.

kib2, check rebol.org. I just did some quick searching.
http://www.rebol.org/view-script.r?script=utf8-encode.r
http://www.rebol.org/view-script.r?script=utf-8.r

Anton: thanks, exactly what I was looking for :)

Is it possible to draw something (lines, arrows, curves, etc) on 
top of buttons in a GUI app ?

view layout [button 200 "Button with graphics" effect [draw [line 
0x0 10x20 40x0 60x20]]]

Geomol: sorry, I should have said "on top of several buttons". 

See http://farm4.static.flickr.com/3664/3323050539_dbd72b61e8_o.png
where I want to draw lines between numbers.

view layout [origin 0 space 0 button 50x50 "1" button 50x50 "2" at 
0x0 box 50x100 effect [draw [line 0x0 30x20 0x60 40x100]]]