forked from AbleOS/ableos
24 lines
498 B
Plaintext
24 lines
498 B
Plaintext
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
|
|
} |