change anchor to fix clickable range

master
nixo 2021-01-09 14:06:57 +01:00
parent 9038cf979b
commit 55ce63ae71
1 changed files with 4 additions and 1 deletions

View File

@ -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))