gtk-strut 0.1.0.0 → 0.1.1.0

raw patch · 2 files changed

+11/−9 lines, 2 files

Files

• gtk-strut.cabal +2/−2
• src/Graphics/UI/GIGtkStrut.hs +9/−7

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: fe4485dfb03709a5eca48ff263f4c8d94171ddf58082c04fd8f0aad138ca6048+-- hash: 534fe253fbfcca345ba3575a2e1353dea97e5a6c2a07867f3dcd9ae1a8363ace  name:           gtk-strut-version:        0.1.0.0+version:        0.1.1.0 synopsis:       Libary for creating strut windows with gi-gtk description:    Please see the README on Github at <https://github.com/IvanMalison/gtk-strut#readme> category:       System

@@ -1,6 +1,5 @@ module Graphics.UI.GIGtkStrut where - import           Control.Monad import           Control.Monad.IO.Class import           Control.Monad.Trans.Class@@ -40,7 +39,13 @@   }  buildStrutWindow :: MonadIO m => StrutConfig -> m Gtk.Window-buildStrutWindow StrutConfig+buildStrutWindow config = do+  window <- Gtk.windowNew Gtk.WindowTypeToplevel+  setupStrutWindow config window+  return window++setupStrutWindow :: MonadIO m => StrutConfig -> Gtk.Window -> m ()+setupStrutWindow StrutConfig               { strutWidth = widthSize               , strutHeight = heightSize               , strutXPadding = xpadding@@ -49,7 +54,7 @@               , strutPosition = position               , strutAlignment = alignment               , strutDisplayName = displayName-              } = do+              } window = do   Just display <- maybe Gdk.displayGetDefault Gdk.displayOpen displayName   Just monitor <- maybe (Gdk.displayGetPrimaryMonitor display)                   (Gdk.displayGetMonitor display) monitorNumber@@ -62,7 +67,6 @@   screenHeight <- maximum <$> mapM getFullY allGeometries   screen <- Gdk.displayGetDefaultScreen display -  window <- Gtk.windowNew Gtk.WindowTypeToplevel   Gtk.windowSetTypeHint window Gdk.WindowTypeHintDock   geometry <- Gdk.newZeroGeometry @@ -139,9 +143,7 @@           gdkWindow <- MaybeT $ Gtk.widgetGetWindow window           lift $ setStrut gdkWindow ewmhSettings -  Gtk.onWidgetRealize window setStrutProperties--  return window+  void $ Gtk.onWidgetRealize window setStrutProperties  allHints =   [ Gdk.WindowHintsMinSize