Tweak windows and x11 backends to work with changes made for offscreen rendering

db4
Joe Groff 2008-12-09 10:19:14 -08:00
parent 98c0daae2a
commit 4f6ed727d0
2 changed files with 4 additions and 4 deletions

View File

@ -498,10 +498,10 @@ M: windows-ui-backend (open-window) ( world -- )
dupd (>>handle)
hWnd>> show-window ;
M: windows-ui-backend select-gl-context ( handle -- )
M: win select-gl-context ( handle -- )
[ hDC>> ] keep hRC>> wglMakeCurrent win32-error=0/f ;
M: windows-ui-backend flush-gl-context ( handle -- )
M: win flush-gl-context ( handle -- )
hDC>> SwapBuffers win32-error=0/f ;
! Move window to front

View File

@ -248,12 +248,12 @@ M: x11-ui-backend raise-window* ( world -- )
dpy get swap window>> XRaiseWindow drop
] when* ;
M: x11-ui-backend select-gl-context ( handle -- )
M: x11-handle select-gl-context ( handle -- )
dpy get swap
dup window>> swap glx>> glXMakeCurrent
[ "Failed to set current GLX context" throw ] unless ;
M: x11-ui-backend flush-gl-context ( handle -- )
M: x11-handle flush-gl-context ( handle -- )
dpy get swap window>> glXSwapBuffers ;
M: x11-ui-backend ui ( -- )