>> oz: make object! [
zz: use [zz] [
func [/set set_zz] [either set [zz: set_zz] [zz]]
]
]
>> oz/zz/set 23
== 23
>> oz/zz
== 23
>> oz/zz/set 25
== 25
>> oz/zz
== 25
>> probe oz
make object! [
zz: func [/set set_zz][either set [zz: set_zz] [zz]]
]
Now my only problem is trying to make it generic. Any suggestions?
oz: make object! [
zz: setget zz [integer!] [/set set_zz] [either set [zz: set_zz] [zz]]
Title: setget Title [string!] [/set set_Title] [
either set [
join newline [<TITLE> Title: Set_Title </TITLE>
][
Title
]
]
]
Andrew Martin
[EMAIL PROTECTED]
http://members.xoom.com/AndrewMartin/
Online @ 33,600 Baud!
-><-
