mirror of
https://gitlab.com/sheaf/metabrush.git
synced 2024-11-05 14:53:37 +00:00
Set GDK_SCALE = 2 by default
This commit is contained in:
parent
e2e4ae6bfe
commit
8b3705b8d1
12
app/Main.hs
12
app/Main.hs
|
@ -6,7 +6,11 @@ module Main
|
||||||
|
|
||||||
-- base
|
-- base
|
||||||
import Control.Monad
|
import Control.Monad
|
||||||
( void )
|
( void, when )
|
||||||
|
import Data.Maybe
|
||||||
|
( isNothing )
|
||||||
|
import System.Environment
|
||||||
|
( lookupEnv, setEnv )
|
||||||
import System.Exit
|
import System.Exit
|
||||||
( ExitCode(..), exitSuccess, exitWith )
|
( ExitCode(..), exitSuccess, exitWith )
|
||||||
import GHC.Conc
|
import GHC.Conc
|
||||||
|
@ -46,6 +50,12 @@ main = withCP65001 do
|
||||||
= procs
|
= procs
|
||||||
setNumCapabilities caps
|
setNumCapabilities caps
|
||||||
|
|
||||||
|
-- Set GDK_SCALE = 2 by default,
|
||||||
|
-- unless GDK_SCALE is already set.
|
||||||
|
mbGdkScale <- lookupEnv "GDK_SCALE"
|
||||||
|
when (isNothing mbGdkScale) $
|
||||||
|
setEnv "GDK_SCALE" "2"
|
||||||
|
|
||||||
---------------------------------------------------------
|
---------------------------------------------------------
|
||||||
-- Run GTK application
|
-- Run GTK application
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue