[REBOL] Re: Refinements and Andrews ML Dialect
From: AJMartin::orcon::net::nz at: 24-Dec-2003 22:47
Hi, Mike.
You wrote:
> The problem seems to be that HTML just wants a "Checked" word.
That's right. Radio button tags have to have:
checked="checked"
to conform to XHTML and XML. HTML radio button tags just need:
checked
And most browsers will accept either and usually do the right thing.
Here's what I came up with help fix the problem:
Rebol []
English: false
French: true
Ook: false
write File: %Checked.html ML compose/deep [
html [
head [
title "Checked"
]
body [
h1 "Checked"
form [
(either English [[input/checked/type/name/value
checked
]][[input/type/name/value]])
radio language english "English"
(either French [[input/checked/type/name/value
checked
]][[input/type/name/value]])
radio language french "Francais"
(either Ook [[input/checked/type/name/value
checked
]][[input/type/name/value]])
radio language french "Ook!"
]
]
]
]
browse File
Of course, that's a little long and error prone to keep writing all the
time. So, after a bit of thought:
English: true
French: false
Ook: false
Multilingual: true
Check: func [Checked? [logic!] Dialect [path!]] [
either Checked? [
reduce [head insert next copy :Dialect 'checked "checked"]
] [
:Dialect
]
]
write File: %Checked.html ML compose/deep [
html [
head [
title "Checked"
]
body [
h1 "Checked"
form [
(Check English 'input/type/name/value) radio language english "English"
(Check French 'input/type/name/value) radio language french "Francais"
(Check Ook 'input/type/name/value) radio language french "Ook!"
(Check Multilingual 'input/type/name/value) checkbox multilingual
multilingual "Multilingual?"
]
]
]
]
browse File
Note that the last option is a checkbox, not a radio button.
I hope that helps!
Andrew J Martin
Speaking in tongues and performing miracles.
ICQ: 26227169
http://www.rebol.it/Valley/
http://valley.orcon.net.nz/
http://Valley.150m.com/
