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