|
|
|
@ -125,7 +125,7 @@ proc draw(screenshot: PXImage, camera: Camera, shader, vao, texture: GLuint,
|
|
|
|
|
glDrawElements(GL_TRIANGLES, count = 6, GL_UNSIGNED_INT, indices = nil)
|
|
|
|
|
|
|
|
|
|
proc getCursorPosition(display: PDisplay): Vec2f =
|
|
|
|
|
var root, child: TWindow
|
|
|
|
|
var root, child: Window
|
|
|
|
|
var root_x, root_y, win_x, win_y: cint
|
|
|
|
|
var mask: cuint
|
|
|
|
|
discard XQueryPointer(
|
|
|
|
@ -137,7 +137,7 @@ proc getCursorPosition(display: PDisplay): Vec2f =
|
|
|
|
|
result.x = root_x.float32
|
|
|
|
|
result.y = root_y.float32
|
|
|
|
|
|
|
|
|
|
proc selectWindow(display: PDisplay): TWindow =
|
|
|
|
|
proc selectWindow(display: PDisplay): Window =
|
|
|
|
|
var cursor = XCreateFontCursor(display, XC_crosshair)
|
|
|
|
|
defer: discard XFreeCursor(display, cursor)
|
|
|
|
|
|
|
|
|
@ -156,7 +156,7 @@ proc selectWindow(display: PDisplay): TWindow =
|
|
|
|
|
CurrentTime)
|
|
|
|
|
defer: discard XUngrabKeyboard(display, CurrentTime)
|
|
|
|
|
|
|
|
|
|
var event: TXEvent
|
|
|
|
|
var event: XEvent
|
|
|
|
|
while true:
|
|
|
|
|
discard XNextEvent(display, addr event)
|
|
|
|
|
case event.theType
|
|
|
|
@ -307,7 +307,7 @@ proc main() =
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
echo "Visual ", vi.visualid, " selected"
|
|
|
|
|
var swa: TXSetWindowAttributes
|
|
|
|
|
var swa: XSetWindowAttributes
|
|
|
|
|
swa.colormap = XCreateColormap(display, DefaultRootWindow(display),
|
|
|
|
|
vi.visual, AllocNone)
|
|
|
|
|
swa.event_mask = ButtonPressMask or ButtonReleaseMask or
|
|
|
|
@ -317,7 +317,7 @@ proc main() =
|
|
|
|
|
swa.override_redirect = 1
|
|
|
|
|
swa.save_under = 1
|
|
|
|
|
|
|
|
|
|
var attributes: TXWindowAttributes
|
|
|
|
|
var attributes: XWindowAttributes
|
|
|
|
|
discard XGetWindowAttributes(
|
|
|
|
|
display,
|
|
|
|
|
DefaultRootWindow(display),
|
|
|
|
@ -332,7 +332,7 @@ proc main() =
|
|
|
|
|
|
|
|
|
|
var wmName = "boomer"
|
|
|
|
|
var wmClass = "Boomer"
|
|
|
|
|
var hints = TXClassHint(res_name: wmName, res_class: wmClass)
|
|
|
|
|
var hints = XClassHint(res_name: wmName, res_class: wmClass)
|
|
|
|
|
|
|
|
|
|
discard XStoreName(display, win, wmName)
|
|
|
|
|
discard XSetClassHint(display, win, addr(hints))
|
|
|
|
@ -438,11 +438,11 @@ proc main() =
|
|
|
|
|
if not windowed:
|
|
|
|
|
discard XSetInputFocus(display, win, RevertToParent, CurrentTime);
|
|
|
|
|
|
|
|
|
|
var wa: TXWindowAttributes
|
|
|
|
|
var wa: XWindowAttributes
|
|
|
|
|
discard XGetWindowAttributes(display, win, addr wa)
|
|
|
|
|
glViewport(0, 0, wa.width, wa.height)
|
|
|
|
|
|
|
|
|
|
var xev: TXEvent
|
|
|
|
|
var xev: XEvent
|
|
|
|
|
while XPending(display) > 0:
|
|
|
|
|
discard XNextEvent(display, addr xev)
|
|
|
|
|
|
|
|
|
@ -479,7 +479,7 @@ proc main() =
|
|
|
|
|
mouse.prev = mouse.curr
|
|
|
|
|
|
|
|
|
|
of ClientMessage:
|
|
|
|
|
if cast[TAtom](xev.xclient.data.l[0]) == wmDeleteMessage:
|
|
|
|
|
if cast[Atom](xev.xclient.data.l[0]) == wmDeleteMessage:
|
|
|
|
|
quitting = true
|
|
|
|
|
|
|
|
|
|
of KeyPress:
|
|
|
|
|