suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ignore system scaling factor if it's not a positive rational

Browse Source
This commit is contained in:
Matthew Flatt 2015-08-04 15:45:30 -06:00
parent 54de09f30e
commit bf79fb427c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-lib/mred/private/wx/gtk/resolution.rkt
View File

@ -43,4 +43,6 @@
(g_variant_get_double (g_variant_get_double
(g_settings_get_value gs "text-scaling-factor")))) (g_settings_get_value gs "text-scaling-factor"))))
(g_object_unref gs) (g_object_unref gs)
v)) (and (rational? v)
(positive? v)
v)))