Window creation: Difference between revisions
→SDL: Quit on a SDL_QUIT event too.
(→{{header|TXR}}: SDL version added.) |
(→SDL: Quit on a SDL_QUIT event too.) |
||
Line 2,051:
(pad (array 8 uint32))))
(defvarl SDL_NOEVENT 0)▼
(defvarl SDL_KEYUP 3)
(with-dyn-lib "libSDL.so"
Line 2,072 ⟶ 2,070:
(SDL_SetVideoMode 800 600 16 (logior SDL_SWSURFACE SDL_HWPALETTE))
(let ((e (make-union (ffi SDL_Event))))
(until* (
(SDL_WaitEvent e))))
(SDL_Quit))</lang>
| |||