gtk-sni-tray 0.1.3.0 → 0.1.3.1

raw patch · 2 files changed

+15/−9 lines, 2 filesdep ~gtk-strut

Dependency ranges changed: gtk-strut

Files

• gtk-sni-tray.cabal +5/−4
• src/StatusNotifier/Tray.hs +10/−5

@@ -1,11 +1,11 @@--- This file has been generated from package.yaml by hpack version 0.28.2.+-- This file has been generated from package.yaml by hpack version 0.27.0. -- -- see: https://github.com/sol/hpack ----- hash: 7df63c6c96e3fca85aa9675c23240c83d4a6deeedfdbd6b0a4ddd1295965abf8+-- hash: d1e672e55e7a2e314add18da0c35b7cb0a029595671050692864ae0b56395ffa  name:           gtk-sni-tray-version:        0.1.3.0+version:        0.1.3.1 synopsis:       A standalone StatusNotifierItem/AppIndicator tray description:    Please see the README on Github at <https://github.com/IvanMalison/gtk-sni-tray#readme> category:       System@@ -18,6 +18,7 @@ license-file:   LICENSE build-type:     Simple cabal-version:  >= 1.10+ extra-source-files:     ChangeLog.md     README.md@@ -49,7 +50,7 @@     , gi-gdkpixbuf >=2.0.16     , gi-glib     , gi-gtk >=3.0.21-    , gtk-strut+    , gtk-strut >=0.1.2.1     , haskell-gi >=0.21.2     , haskell-gi-base >=0.21.1     , hslogger

@@ -1,3 +1,4 @@+{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedLabels #-} module StatusNotifier.Tray where @@ -38,6 +39,12 @@ trayLogger :: Priority -> String -> IO () trayLogger = logM "StatusNotifier.Tray" +logItemInfo :: ItemInfo -> String -> IO ()+logItemInfo info message =+  trayLogger INFO $ printf "%s - %s pixmap count: %s" message+         (show $ info { iconPixmaps = []})+         (show $ length $ iconPixmaps info)+ getScaledWidthHeight :: Bool -> Int32 -> Int32 -> Int32 -> (Int32, Int32) getScaledWidthHeight shouldTargetWidth targetSize width height =   let getRatio :: Int32 -> Rational@@ -265,6 +272,9 @@                 pixBuf <- getScaledPixBufFromInfo size info                 Gtk.imageNewFromPixbuf pixBuf +          Gtk.widgetGetStyleContext image >>=+             flip Gtk.styleContextAddClass "tray-icon-image"+           Gtk.containerAdd button image            maybeMenu <- sequenceA $ DM.menuNew (T.pack serviceNameStr) .@@ -309,11 +319,6 @@       updateHandler IconNameUpdated i = updateIconFromInfo i        updateHandler _ _ = return ()--      logItemInfo info message =-        trayLogger INFO $ printf "%s - %s pixmap count: %s" message-               (show $ info { iconPixmaps = []})-               (show $ length $ iconPixmaps info)        getScaledPixBufFromInfo size info =         getPixBufFromInfo size info >>=