hashirama/metabrush
1
0
Fork 0
mirror of https://gitlab.com/sheaf/metabrush.git synced 2024-11-05 14:53:37 +00:00
Code Issues Actions Projects Releases Wiki Activity

Set GDK_SCALE = 2 by default

Browse source
This commit is contained in:
sheaf 2024-09-08 17:04:41 +02:00
parent e2e4ae6bfe
commit 8b3705b8d1
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
app/Main.hs
View file

@ -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