cdo/ham
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove default width and height in graphics-context

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-05-29 01:14:30 +01:00
parent af5cb1ed93
commit 49767ecbe7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
drawing.lisp
View File

@@ -73,8 +73,8 @@
(defclass graphics-context () (defclass graphics-context ()
(window (window
renderer renderer
(width :initarg :width :initform 800) (width :initarg :width)
(height :initarg :height :initform 600))) (height :initarg :height)))
(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