diff --git a/keera-hails-reactive-gtk.cabal b/keera-hails-reactive-gtk.cabal
--- a/keera-hails-reactive-gtk.cabal
+++ b/keera-hails-reactive-gtk.cabal
@@ -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
diff --git a/src/Graphics/UI/Gtk/Reactive.hs b/src/Graphics/UI/Gtk/Reactive.hs
--- a/src/Graphics/UI/Gtk/Reactive.hs
+++ b/src/Graphics/UI/Gtk/Reactive.hs
@@ -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
diff --git a/src/Graphics/UI/Gtk/Reactive/StatusIcon.hs b/src/Graphics/UI/Gtk/Reactive/StatusIcon.hs
new file mode 100644
--- /dev/null
+++ b/src/Graphics/UI/Gtk/Reactive/StatusIcon.hs
@@ -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