gtk-strut 0.1.2.0 → 0.1.2.1

raw patch · 2 files changed

+11/−11 lines, 2 files

Files

• gtk-strut.cabal +6/−6
• src/Graphics/UI/GIGtkStrut.hs +5/−5

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 314a983e7bd4ef9c89acbe70c1db5890f074902f7732f6ec29ea44db985a3c58+-- hash: c1b982826943ec79586e57d5e35f06abdebdb82dcfa8f11b96293a880f553c88  name:           gtk-strut-version:        0.1.2.0+version:        0.1.2.1 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@@ -28,6 +28,10 @@   location: https://github.com/IvanMalison/gtk-strut  library+  exposed-modules:+      Graphics.UI.GIGtkStrut+  other-modules:+      Graphics.UI.EWMHStrut   hs-source-dirs:       src   build-depends:@@ -36,8 +40,4 @@     , gi-gtk     , text     , transformers-  exposed-modules:-      Graphics.UI.GIGtkStrut-  other-modules:-      Graphics.UI.EWMHStrut   default-language: Haskell2010

@@ -6,7 +6,6 @@ import           Control.Monad.Trans.Maybe import           Data.Int import           Data.Maybe-import           Data.Ratio import qualified Data.Text as T import qualified GI.Gdk as Gdk import qualified GI.Gtk as Gtk@@ -120,25 +119,25 @@             zeroStrutSettings             { _top = monitorY + paddedHeight             , _top_start_x = xPos - xpadding-            , _top_end_x = xPos + width + xpadding+            , _top_end_x = xPos + width + xpadding - 1             }           BottomPos ->             zeroStrutSettings             { _bottom = screenHeight - monitorY - monitorHeight + paddedHeight             , _bottom_start_x = xPos - xpadding-            , _bottom_end_x = xPos + width + xpadding+            , _bottom_end_x = xPos + width + xpadding - 1             }           LeftPos ->             zeroStrutSettings             { _left = monitorX + paddedWidth             , _left_start_y = yPos - ypadding-            , _left_end_y = yPos + height + ypadding+            , _left_end_y = yPos + height + ypadding - 1             }           RightPos ->             zeroStrutSettings             { _right = screenWidth - monitorX - monitorWidth + paddedWidth             , _right_start_y = yPos - ypadding-            , _right_end_y = yPos + height + ypadding+            , _right_end_y = yPos + height + ypadding - 1             }       setStrutProperties =         void $ runMaybeT $ do@@ -147,6 +146,7 @@    void $ Gtk.onWidgetRealize window setStrutProperties +allHints :: [Gdk.WindowHints] allHints =   [ Gdk.WindowHintsMinSize   , Gdk.WindowHintsMaxSize