Commit 6c7550044287d2acbcef9ecbc7782d2974bb7497
Parent: f0bc8878f4f48085733b2daef1d2c5c24163983b
Author: mcol <mcol@posteo.net>
Date: 2021-08-25 18:05:31 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2021-08-25 18:05:31 +0100

Set window hint to "desktop"

xanadu.cabal Modified

@@ -20,6 +20,7 @@
   default-language:    Haskell2010
   build-depends:       base >= 4.7 && < 5
                      , directory
+                     , gi-gdk
                      , gi-gdkpixbuf
                      , gi-gio
                      , gi-gtk

src/Main.hs Modified

@@ -5,6 +5,7 @@
 import qualified Icons
 
 import Data.GI.Base
+import qualified GI.Gdk.Enums as Enums
 import qualified GI.Gio as Gio
 import qualified GI.Gtk as Gtk
 
@@ -25,6 +26,7 @@
         , #title := "xanadu"
         , #resizable := False
         ]
+    #setTypeHint win Enums.WindowTypeHintDesktop
     iconView <- Icons.initIcons win
     #add win iconView
     #showAll win