ableos-idl/sysdata/libraries/horizon_api/src/widgets/label.hb

stn := @use("../../../../libraries/stn/src/lib.hb");
.{string, log} := stn;
.{Vec2} := stn.math

render := @use("../../../../libraries/render/src/lib.hb");
.{Surface, Color} := render;
.{Font} := render.text

Label := struct {
	magic: uint,
	is_dirty: bool,
	surface: Surface,
	text: ^u8,
	text_length: uint,
	bg: Color,
	fg: Color,
}

set_label_text := fn(label: Label, text: ^u8): void {
	text_length := string.length(text)

	label.is_dirty = true
	label.text = text
	label.text_length = text_length
}

render_label_to_surface := fn(surface: Surface, label: Label, font: Font, pos: Vec2(uint)): void {
	if label.is_dirty {
		render.clear(label.surface, label.bg)
		render.put_text(label.surface, font, .(0, 0), label.fg, label.text)
	}
	render.put_surface(surface, label.surface, pos, false)
}

new_label := fn(text: ^u8): Label {
	text_surface := render.new_surface(1024, 20)
	text_length := string.length(text)
	label := Label.(3, true, text_surface, text, text_length, render.black, render.white)
	return label
}

$set_color := fn(label: Label, bg: Color, fg: Color): void {
	label.bg = bg
	label.fg = fg
	label.is_dirty = true
}