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

2015-08-04 15:45:30 -06:00 · 2015-08-04 15:45:30 -06:00 · bf79fb427c
commit bf79fb427c
parent 54de09f30e
1 changed files with 3 additions and 1 deletions
--- a/gui-lib/mred/private/wx/gtk/resolution.rkt
+++ b/gui-lib/mred/private/wx/gtk/resolution.rkt
@ -43,4 +43,6 @@
 	 (g_variant_get_double
 	  (g_settings_get_value gs "text-scaling-factor"))))
    (g_object_unref gs)
-    v))
+    (and (rational? v)
+	 (positive? v)
+	 v)))