[REBOL] Re: Ready for REBOL/Core 2.6?
From: robert:muench:robertmuench at: 11-Mar-2002 13:23
> -----Original Message-----
> From: [rebol-bounce--rebol--com] [mailto:[rebol-bounce--rebol--com]]On Behalf
> Of Louis Cyphre
> Sent: Saturday, March 09, 2002 12:21 PM
> To: [rebol-list--rebol--com]
> Subject: [REBOL] Re: [REBOL] Re: Ready for REBOL/Core 2.6?
> I think "extend" will be very useful ;-) Especially in /View
> applications where is whole graphical layout constructed from
> objects(faces).
Hi, IIRC I have posted this snippet several times already. But anyway, here it's
once again:
Is this what you are looking for?
extend-object: func ['obj-word [word!] 'word [word!] value [any-type!] /local
the-obj][
all [not object? the-obj: get obj-word make error! "No object provided."]
if in the-obj word [
set in the-obj word value
return the-obj
]
set obj-word make the-obj reduce [to-set-word word value]
]
--
Robert M. Münch
IT & Management Freelancer
Mobile: +49 (0)177 2452 802
Fax : +49 (0)721 8408 9112
Web : http://www.robertmuench.de