change anchor to fix clickable range
This commit is contained in:
parent
9038cf979b
commit
55ce63ae71
5
run.scm
5
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))
|
||||
|
|
Loading…
Reference in New Issue