[REBOL] Re: to-string do question?
From: g:santilli:tiscalinet:it at: 22-Jul-2003 15:22
Hi Bryan,
On Tuesday, July 22, 2003, 2:58:47 PM, you wrote:
b> If the protocol is reb://1 + 7 then what gets written to field f2 is 8.
b> So if f1/text = read dsisdfa that should raise an error because dsisdfa
b> is not a file url object or block, and of course dsisdfa has no value
b> whatsoever, not having been declared anywhere.
Try this:
form-error: func [errobj /local txt] [
txt: get in get in system/error errobj/type errobj/id
either block? txt [
txt: bind/copy txt in errobj 'self
reform txt
] [txt]
]
view layout [
inp: field 500 [
out/text: either error? set/any 'err try [do inp/text] [
form-error disarm err
] [
to string! get/any 'err
]
show out
]
out: info 500x300
]
Regards,
Gabriele.
--
Gabriele Santilli <[g--santilli--tiscalinet--it]> -- REBOL Programmer
Amiga Group Italia sez. L'Aquila --- SOON: http://www.rebol.it/