keera-hails-reactive-gtk 0.0.3.6 → 0.1

raw patch · 3 files changed

+18/−1 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• keera-hails-reactive-gtk.cabal +2/−1
• src/Graphics/UI/Gtk/Reactive.hs +1/−0
• src/Graphics/UI/Gtk/Reactive/StatusIcon.hs +15/−0

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.0.3.6+Version:             0.1  -- A short (one-line) description of the package. Synopsis:            Haskell on Gtk rails - Reactive Fields for Gtk widgets@@ -60,6 +60,7 @@                  , Graphics.UI.Gtk.Reactive.Property                  , Graphics.UI.Gtk.Reactive.Scale                  , Graphics.UI.Gtk.Reactive.SpinButton+                 , Graphics.UI.Gtk.Reactive.StatusIcon                  , Graphics.UI.Gtk.Reactive.TextView                  , Graphics.UI.Gtk.Reactive.ToolButton                  -- , Graphics.UI.Gtk.Reactive.TypedComboBoxUnsafe

@@ -9,6 +9,7 @@ import Graphics.UI.Gtk.Reactive.MenuItem             as Exported import Graphics.UI.Gtk.Reactive.Scale                as Exported import Graphics.UI.Gtk.Reactive.SpinButton           as Exported+import Graphics.UI.Gtk.Reactive.StatusIcon           as Exported import Graphics.UI.Gtk.Reactive.TextView             as Exported import Graphics.UI.Gtk.Reactive.ToolButton           as Exported import Graphics.UI.Gtk.Reactive.ToggleButton         as Exported

@@ -0,0 +1,15 @@+{-# LANGUAGE MultiParamTypeClasses #-}+-- | Publishes the main elements of a status icon+module Graphics.UI.Gtk.Reactive.StatusIcon where++import Control.Monad+import Control.Monad.Trans(liftIO)+import Graphics.UI.Gtk+import Data.ReactiveValue++statusIconActivateField :: StatusIcon -> ReactiveFieldActivatable IO+statusIconActivateField m = mkActivatable op+ where op f = void (m `on` statusIconActivate $ liftIO f)++instance ReactiveValueActivatable IO StatusIcon where+  defaultActivation = statusIconActivateField