Add layout and a common widget type

1 files changed, 42 insertions, 0 deletions

diff --git a/libui/layout/layout.ha b/libui/layout/layout.ha
new file mode 100644
index 0000000..ef6bf71
--- /dev/null
+++ b/libui/layout/layout.ha
@@ -0,0 +1,42 @@
+use libui::widget;
+use io;
+use unix::tty;
+use fmt;
+use os;
+
+export type layout = struct {
+	widgets: []*widget::widget,
+};
+
+// Create and return a new layout from a list of widgets. [[finishall]] must be
+// called to  properly free the widget's nad layout's resources.
+export fn newlayout(widgets: *widget::widget...) layout = {
+	return layout {
+		widgets = widgets,
+	};
+};
+
+// Display all the widgets contained in the given layout.
+export fn print(layout: layout) (void | widget::error) = {
+	for (let i = 0z; i < len(layout.widgets); i += 1) {
+		match (layout.widgets[i].print) {
+		case null =>
+			return;
+		case let f: *widget::print =>
+			f(layout.widgets[i])?;
+		};
+	};
+};
+
+// Finish and free the widgets in the given layout.
+export fn finishall(layout: *layout) void = {
+	for (let i = 0z; i < len(layout.widgets); i += 1) {
+		match (layout.widgets[i].finish) {
+		case null =>
+			return;
+		case let f: *widget::finish =>
+			f(layout.widgets[i]);
+		};
+	};
+	free(layout.widgets);
+};