diff --git a/gtk-strut.cabal b/gtk-strut.cabal
--- a/gtk-strut.cabal
+++ b/gtk-strut.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 534fe253fbfcca345ba3575a2e1353dea97e5a6c2a07867f3dcd9ae1a8363ace
+-- hash: 314a983e7bd4ef9c89acbe70c1db5890f074902f7732f6ec29ea44db985a3c58
 
 name:           gtk-strut
-version:        0.1.1.0
+version:        0.1.2.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
diff --git a/src/Graphics/UI/GIGtkStrut.hs b/src/Graphics/UI/GIGtkStrut.hs
--- a/src/Graphics/UI/GIGtkStrut.hs
+++ b/src/Graphics/UI/GIGtkStrut.hs
@@ -58,6 +58,8 @@
   Just display <- maybe Gdk.displayGetDefault Gdk.displayOpen displayName
   Just monitor <- maybe (Gdk.displayGetPrimaryMonitor display)
                   (Gdk.displayGetMonitor display) monitorNumber
+  screen <- Gdk.displayGetDefaultScreen display
+
   monitorCount <- Gdk.displayGetNMonitors display
   allMonitors <- catMaybes <$> mapM (Gdk.displayGetMonitor display) [0..(monitorCount-1)]
   allGeometries <- mapM Gdk.monitorGetGeometry allMonitors
@@ -65,7 +67,6 @@
       getFullX geometry = (+) <$> Gdk.getRectangleX geometry <*> Gdk.getRectangleWidth geometry
   screenWidth <- maximum <$> mapM getFullX allGeometries
   screenHeight <- maximum <$> mapM getFullY allGeometries
-  screen <- Gdk.displayGetDefaultScreen display
 
   Gtk.windowSetTypeHint window Gdk.WindowTypeHintDock
   geometry <- Gdk.newZeroGeometry
@@ -78,10 +79,10 @@
 
   let width = case widthSize of
                 ExactSize w -> w
-                ScreenRatio p -> floor $ (p * fromIntegral (monitorWidth - (2 * xpadding)))
+                ScreenRatio p -> floor $ p * fromIntegral (monitorWidth - (2 * xpadding))
       height = case heightSize of
                  ExactSize h -> h
-                 ScreenRatio p -> floor $ (p * fromIntegral (monitorHeight - (2 * ypadding)))
+                 ScreenRatio p -> floor $ p * fromIntegral (monitorHeight - (2 * ypadding))
 
   Gdk.setGeometryBaseWidth geometry width
   Gdk.setGeometryBaseHeight geometry height
@@ -92,8 +93,8 @@
   Gtk.windowSetGeometryHints window (Nothing :: Maybe Gtk.Window)
        (Just geometry) allHints
 
-  let paddedHeight = (height + 2 * ypadding)
-      paddedWidth = (width + 2 * xpadding)
+  let paddedHeight = height + 2 * ypadding
+      paddedWidth = width + 2 * xpadding
       getAlignedPos dimensionPos dpadding monitorSize barSize =
         dimensionPos +
         case alignment of
@@ -111,6 +112,7 @@
 
   Gtk.windowSetScreen window screen
   Gtk.windowMove window xPos yPos
+  Gtk.windowSetKeepBelow window True
 
   let ewmhSettings =
         case position of