[REBOL] Re: Private Object Function

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

> Hello COUSSEMENT Christoph!
> 
> On 15-Gen-01, you wrote:
> 
>  CC>>> o/add-one
> 
>  CC> here I should get something like...
> 
>  CC> ** Script Error: Invalid path value: add-one.
>  CC> ** Where: o/add-one
> 
> The most recent /Core experimental allows you to write:
> 
>   o: make object! [
>     ; public
>     get-value: none
>     ; private
>     make object! [
>       value: make integer! 1
>       add-one: does [value: value + 1]
>       set 'get-value does [
>         add-one
>         print value
>       ]
>     ]
>   ]
> 
> or:
> 
>   o: make object! [
>     ; public
>     get-value: none
>     ; private
>     use [value add-one] [
>       value: make integer! 1
>       add-one: does [value: value + 1]
>       get-value: does [
>         add-one
>         print value
>       ]
>     ]
>   ]
        [thanks for answering !
        it works fine to me, but it does not simplify and clarify the
writing of the code, in that way that the body of the 'public function' must
be found back into the 'private' part, due to the runtime binding...
        Anyway, it's my best solution for now ;-)

        best regards,

        chr==
        ]  


> Regards,
>     Gabriele.
> -- 
> Gabriele Santilli <[EMAIL PROTECTED]> - Amigan - REBOL programmer
> Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/
> 
> -- 
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the 
> subject, without the quotes.
-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.