Initialise SDL properly in graphics-context
This commit is contained in:
@@ -78,7 +78,7 @@
|
|||||||
|
|
||||||
(defmethod initialize-instance :after ((ctx graphics-context) &key)
|
(defmethod initialize-instance :after ((ctx graphics-context) &key)
|
||||||
(with-slots (window renderer width height) ctx
|
(with-slots (window renderer width height) ctx
|
||||||
(sdl2:init)
|
(sdl2:init :video)
|
||||||
(setf window
|
(setf window
|
||||||
(sdl2:create-window :title "Simulation"
|
(sdl2:create-window :title "Simulation"
|
||||||
:w width :h height
|
:w width :h height
|
||||||
|
|||||||
Reference in New Issue
Block a user