[REBOL] Re: Private Object Function
From: g:santilli:tiscalinet:it at: 15-Jan-2001 20:39
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
]
]
]
Regards,
Gabriele.
--
Gabriele Santilli <[giesse--writeme--com]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/
