From 55ce63ae71728a8b284255afa6439a9f86a8d8a5 Mon Sep 17 00:00:00 2001 From: nixo Date: Sat, 9 Jan 2021 14:06:57 +0100 Subject: [PATCH] change anchor to fix clickable range --- run.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/run.scm b/run.scm index d21057a..dc12be4 100644 --- a/run.scm +++ b/run.scm @@ -34,14 +34,17 @@ (pressed . ,simple-pressed))) (checkbox-button (make-button (s32vector 0 0) "" 0 font textures + #:dimensions (s32vector 25 25) #:text-colors colors - #:text-pos (s32vector 30 5) + #:anchor 'center + #:text-pos (s32vector 30 -7) #:text-alignment '(left . top) #:callback checkbox-button-callback)) (radio-button (make-button (s32vector 0 0) "" 0 font textures-radio #:text-colors colors #:dimensions (s32vector 200 20) + #:anchor 'top-left #:text-alignment '(left . top) #:text-pos (s32vector 30 0) #:callback radio-button-callback))