5b7bf69a13
Support GUI scaling in much the same way as on Windows, where
the OS setting ("org.gnome.desktop.interface.scaling-factor"
times "...text-scaling-factor") determines the scale that is
used for both graphics and GUI sizing.
As I understand it, a complete solution requires porting to
Gtk3. With Gtk2, the graphical part of a widget doesn't scale.
Text and image labels should scale correctly, though.
22 lines
590 B
Racket
22 lines
590 B
Racket
#lang racket/base
|
|
(require "gsettings.rkt")
|
|
|
|
(provide get-interface-scale-factor)
|
|
|
|
|
|
(define (get-interface-scale-factor display-num)
|
|
(with-handlers ([exn:fail? (lambda (exn) #f)])
|
|
(define schema "org.gnome.desktop.interface")
|
|
(define gs (and (g_settings_schema_source_lookup
|
|
(g_settings_schema_source_get_default)
|
|
schema
|
|
#f)
|
|
(g_settings_new schema)))
|
|
(define v
|
|
(* (g_variant_get_uint32
|
|
(g_settings_get_value gs "scaling-factor"))
|
|
(g_variant_get_double
|
|
(g_settings_get_value gs "text-scaling-factor"))))
|
|
(g_object_unref gs)
|
|
v))
|