diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-12-05 12:46:03 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-05 12:46:03 -0500 |
| commit | 4872ad930ab09536cc19567126e0ed3631ac2d34 (patch) | |
| tree | fdf0b462c9eedfe4de47b91dedc6eb66a4185fd5 | |
| parent | 82e4b15dbcadb8c7819d6b899d30aca7b8eb1be7 (diff) | |
video: Change set-window-position! argument list.
| -rw-r--r-- | doc/api.texi | 5 | ||||
| -rw-r--r-- | sdl2/video.scm | 9 |
2 files changed, 5 insertions, 9 deletions
diff --git a/doc/api.texi b/doc/api.texi index ef7d702..1e97a8e 100644 --- a/doc/api.texi +++ b/doc/api.texi @@ -156,9 +156,8 @@ remove the border. Set the title of @var{window} to the string @var{title}. @end deffn -@deffn {Procedure} set-window-position! window position -Set the position of @var{window} to @var{position}, a two-element list -of (x,y) coordinates measured in pixels. +@deffn {Procedure} set-window-position! window x y +Set the position of @var{window} to (@var{x}, @var{y}). @end deffn @deffn {Procedure} set-window-size! window size diff --git a/sdl2/video.scm b/sdl2/video.scm index d26eb62..1c08495 100644 --- a/sdl2/video.scm +++ b/sdl2/video.scm @@ -225,12 +225,9 @@ the border." (ffi:sdl-set-window-title (unwrap-window window) (string->pointer title))) -(define (set-window-position! window position) - "Set the position of WINDOW to POSITION, a two-element list of (x,y) -coordinates measured in pixels." - (match position - ((x y) - (ffi:sdl-set-window-position (unwrap-window window) x y)))) +(define (set-window-position! window x y) + "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 |