97 lines
3.7 KiB
Text
97 lines
3.7 KiB
Text
# controls_build.ludic - a control's parts, made as plain child boxes a stylesheet can style:
|
|
# input[type=checkbox|radio] .ui-label .ui-track > .ui-knob
|
|
# input[type=range] .ui-label .ui-track > .ui-fill, .ui-thumb .ui-value
|
|
# input[type=text|number|key] .ui-label .ui-field > .ui-value (+ .ui-caret while focused)
|
|
# select .ui-label .ui-prev .ui-value .ui-next (its <option>s hidden)
|
|
# with a note="...", the label is .ui-labels > .ui-label + .ui-note
|
|
function ct_part(ui_st: mut UiState, n: UiNode, cls: string, text: string) -> UiNode {
|
|
let p = nd_take(ui_st)
|
|
p.key = mm_join(ui_st, n.key, "/", cls)
|
|
p.tag = "span"
|
|
p.env = n.env
|
|
p.sheet = n.sheet
|
|
push(p.classes, cls)
|
|
if text != "" {
|
|
p.kind = UI_TEXT
|
|
p.text = text
|
|
}
|
|
return p
|
|
}
|
|
# <progress value max> and <meter value min max>: a track with a fill as far as the value
|
|
function ct_build_bar(ui_st: mut UiState, n: UiNode) -> void {
|
|
n.dir = UI_ROW
|
|
let lo = Value.as_float(ui_attr(n, "min"))
|
|
var hi = Value.as_float(ui_attr(n, "max"))
|
|
if hi <= lo { hi = lo + 1.0 }
|
|
let fill = ct_part(ui_st, n, "ui-fill", "")
|
|
fill.w_pct = Math.clamp((Value.as_float(ui_attr(n, "value")) - lo) / (hi - lo), 0.0, 1.0) * 100.0
|
|
push(n.children, fill)
|
|
}
|
|
function ct_build(ui_st: mut UiState, n: UiNode) -> void {
|
|
if n.tag == "progress" or n.tag == "meter" {
|
|
ct_build_bar(ui_st, n)
|
|
return
|
|
}
|
|
n.dir = UI_ROW
|
|
n.focusable = true
|
|
let t = ui_attr_text(n, "type")
|
|
if n.tag == "select" {
|
|
ct_build_select(ui_st, n)
|
|
return
|
|
}
|
|
ct_label(ui_st, n)
|
|
if t == "checkbox" or t == "radio" {
|
|
let track = ct_part(ui_st, n, "ui-track", "")
|
|
push(track.children, ct_part(ui_st, n, "ui-knob", ""))
|
|
push(n.children, track)
|
|
} else if t == "range" {
|
|
ct_build_range(ui_st, n)
|
|
} else {
|
|
let field = ct_part(ui_st, n, "ui-field", "")
|
|
push(field.children, ct_part(ui_st, n, "ui-value", ct_field_text(ui_st, n)))
|
|
if ui_st.fc_key == n.key and t != "key" { push(field.children, ct_part(ui_st, n, "ui-caret", "")) }
|
|
push(n.children, field)
|
|
}
|
|
}
|
|
function ct_build_range(ui_st: mut UiState, n: UiNode) -> void {
|
|
let lo = Value.as_float(ui_attr(n, "min"))
|
|
var hi = Value.as_float(ui_attr(n, "max"))
|
|
if hi <= lo { hi = lo + 1.0 }
|
|
let v = Value.as_float(ui_attr(n, "value"))
|
|
let track = ct_part(ui_st, n, "ui-track", "")
|
|
let fill = ct_part(ui_st, n, "ui-fill", "")
|
|
fill.w_pct = Math.clamp((v - lo) / (hi - lo), 0.0, 1.0) * 100.0
|
|
push(track.children, fill)
|
|
push(track.children, ct_part(ui_st, n, "ui-thumb", ""))
|
|
push(n.children, track)
|
|
push(n.children, ct_part(ui_st, n, "ui-value", ct_value_text(n)))
|
|
}
|
|
function ct_build_select(ui_st: mut UiState, n: UiNode) -> void {
|
|
if n.opts == null { n.opts = new []UiNode } # its options moved to a list the node keeps, not a new one
|
|
let opts = n.opts
|
|
List.clear(opts)
|
|
for i in 0 .. len(n.children) { push(opts, n.children[i]) }
|
|
List.clear(n.children)
|
|
ct_label(ui_st, n)
|
|
var shown = ""
|
|
let at = ct_option_at(n, opts)
|
|
if at >= 0 { shown = opts[at].text }
|
|
push(n.children, ct_part(ui_st, n, "ui-prev", "<"))
|
|
push(n.children, ct_part(ui_st, n, "ui-value", shown))
|
|
push(n.children, ct_part(ui_st, n, "ui-next", ">"))
|
|
}
|
|
# which option the select's value names: an option's value="...", else its place
|
|
function ct_option_at(n: UiNode, opts: []UiNode) -> int {
|
|
let v = ui_attr_text(n, "value")
|
|
for i in 0 .. len(opts) {
|
|
let ov = ui_attr_text(opts[i], "value")
|
|
if ov == v or (ov == "" and ct_is_int(v, i)) { return i }
|
|
}
|
|
return -1
|
|
}
|
|
function ct_field_text(ui_st: UiState, n: UiNode) -> string {
|
|
let t = ui_attr_text(n, "type")
|
|
if t == "key" { return ct_key_text(ui_st, n) }
|
|
if t == "number" { return ct_num_shown(ui_st, n) }
|
|
return ui_attr_text(n, "value")
|
|
}
|