[REBOL] Private Object Function

[CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN]

Hi REBOLS,

I would like to make an object function private to this object. That is:

>> o: make object! [
[    value: make integer! 1
[    ; some privatization code ...
[    add-one: does [value: value + 1]
[    get-value: does [add-one
[        print value]
[    ]
>> o/get-value
2
>> o/add-one

here I should get something like...

** Script Error: Invalid path value: add-one.
** Where: o/add-one

Any idea ? Of course the principle could be extended to the privatization of
variables...

Thx a lot,

Best Regards,

chr==


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.