----- Original Message -----
From: "CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN"
<[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, January 16, 2001 9:56 AM
Subject: [REBOL] Re: Private Object Function
>
>
> > 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.
>
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
