keera-hails-reactive-gtk-0.0.3.5: src/Graphics/UI/Gtk/Reactive/CheckMenuItem.hs

-- | Publishes the main elements of a checkmenuitem
module Graphics.UI.Gtk.Reactive.CheckMenuItem where

import Control.Monad
import Graphics.UI.Gtk
import Data.ReactiveValue

checkMenuItemActiveReactive :: CheckMenuItem -> ReactiveFieldReadWrite IO Bool
checkMenuItemActiveReactive e = ReactiveFieldReadWrite setter getter notifier
 where getter   = checkMenuItemGetActive e
       setter   = checkMenuItemSetActive e
       notifier = void . (on e checkMenuItemToggled)