From f68b22ee64a737b121d5f4eb306175a3a53341bf Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 5 Dec 2020 12:46:30 -0500 Subject: video: Change set-window-size! argument list. --- doc/api.texi | 6 +++--- 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." -- cgit v1.2.3