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

input := @use("rel:../../intouch/src/lib.hb")

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 {
		return
	} else {
		msg := "\{01}\0"
		msg_length := 2
		return @eca(3, windowing_system_buffer, msg, msg_length)
	}
}