ableos/sysdata/libraries/horizon_api/src/lib.hb

stn := @use("rel:../../stn/src/lib.hb");
.{string, memory, buffer} := stn

WindowID := struct {
	host_id: int,
	window_id: int,
}

create_window := fn(channel: int): void {
	// get the horizon buffer
	// request a new window and provide the callback buffer
	// wait to recieve a message

	windowing_system_buffer := buffer.search("XHorizon\0")

	if windowing_system_buffer == 0 {
	} else {
		msg := "\{01}\0"
		msg_length := 2
		@eca(void, 3, windowing_system_buffer, msg, msg_length)
	}

	return
}