diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-12-05 12:46:30 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-05 12:46:30 -0500 |
| commit | f68b22ee64a737b121d5f4eb306175a3a53341bf (patch) | |
| tree | a251bda287f0e45902cd766818896088b8f65085 | |
| parent | 4872ad930ab09536cc19567126e0ed3631ac2d34 (diff) | |
video: Change set-window-size! argument list.
| -rw-r--r-- | doc/api.texi | 6 | ||||
| -rw-r--r-- | sdl2/video.scm | 9 |
2 files changed, 6 insertions, 9 deletions
diff --git a/doc/api.texi b/doc/api.texi index 1e97a8e..f72178b 100644 --- a/doc/api.texi +++ b/doc/api.texi @@ -160,9 +160,9 @@ Set the title of @var{window} to the string @var{title}. Set the position of @var{window} to (@var{x}, @var{y}). @end deffn -@deffn {Procedure} set-window-size! window size -Set the dimensions of @var{window} to @var{size}, a two-element list of -(width,height) coordinates measured in pixels. +@deffn {Procedure} set-window-size! window width height +Set the dimensions of @var{window} to @var{width} x @var{height} +pixels. @end deffn @deffn {Procedure} set-window-minimum-size! window width height diff --git a/sdl2/video.scm b/sdl2/video.scm index 1c08495..dda917a 100644 --- a/sdl2/video.scm +++ b/sdl2/video.scm @@ -229,12 +229,9 @@ the border." "Set the position of WINDOW to (X, Y)." (ffi:sdl-set-window-position (unwrap-window window) x y)) -(define (set-window-size! window size) - "Set the dimensions of WINDOW to SIZE, a two-element list -of (width,height) coordinates measured in pixels." - (match size - ((width height) - (ffi:sdl-set-window-size (unwrap-window window) width height)))) +(define (set-window-size! window width height) + "Set the dimensions of WINDOW to WIDTH x HEIGHT pixels." + (ffi:sdl-set-window-size (unwrap-window window) width height)) (define (set-window-minimum-size! window width height) "Set the minimum dimensions of WINDOW to WIDTH x HEIGHT pixels." |