forked from AbleOS/ableos
25 lines
538 B
Plaintext
25 lines
538 B
Plaintext
stn := @use("../../stn/src/lib.hb");
|
|
.{string, memory, buffer} := stn
|
|
|
|
input := @use("../../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)
|
|
}
|
|
} |