initial commit

examples/multithread/main.odin

@@ -0,0 +1,79 @@
+package libui_multithread
+
+import "base:runtime"
+import "core:c/libc"
+import "core:thread"
+import "core:sync"
+import "core:mem"
+import "core:time"
+
+import "../../"
+
+// BUG: The program segfaults on exit. Not sure how to fix it.
+
+e: ^libui.MultilineEntry
+cv: sync.Cond
+m: sync.Mutex
+timeThread: ^thread.Thread
+
+sayTime :: proc "c" (data: rawptr) {
+	context = runtime.default_context()
+	s := transmute(cstring)data
+
+	libui.MultilineEntryAppend(e, s)
+	delete(s)
+}
+
+threadproc :: proc() {
+	sync.lock(&m)
+	for !sync.cond_wait_with_timeout(&cv, &m, time.Second) {
+		s: cstring
+
+		t := libc.time(nil)
+		base := transmute(cstring)libc.ctime(&t)
+		mem.copy(&s, &base, len(base))
+		libui.QueueMain(sayTime, transmute(rawptr)s)
+	}
+}
+
+onClosing :: proc "c" (w: ^libui.Window, data: rawptr) -> b32 {
+	context = runtime.default_context()
+	sync.cond_broadcast(&cv)
+	thread.join(timeThread)
+	libui.Quit()
+	return true
+}
+
+saySomething :: proc "c" (b: ^libui.Button, data: rawptr) {
+	libui.MultilineEntryAppend(e, "Saying something\n")
+}
+
+main :: proc() {
+	o: libui.InitOptions
+
+	if libui.Init(&o) != nil {
+		return
+	}
+
+	w := libui.NewWindow("Hello", 320, 240, false)
+	libui.WindowSetMargined(w, true)
+
+	b := libui.NewVerticalBox()
+	libui.BoxSetPadded(b, true)
+	libui.WindowSetChild(w, cast(^libui.Control)b)
+
+	e = libui.NewMultilineEntry()
+	libui.MultilineEntrySetReadOnly(e, true)
+
+	btn := libui.NewButton("Say Something")
+	libui.ButtonOnClicked(btn, saySomething, nil)
+	libui.BoxAppend(b, cast(^libui.Control)btn, false)
+
+	libui.BoxAppend(b, cast(^libui.Control)e, true)
+
+	timeThread = thread.create_and_start(threadproc)
+
+	libui.WindowOnClosing(w, onClosing, nil)
+	libui.ControlShow(cast(^libui.Control)w)
+	libui.Main()
+}