module Graphics.UI.Gtk.Reactive.Label where
import Data.ReactiveValue
import Graphics.UI.Gtk
import Graphics.UI.Gtk.Reactive.Property
labelTextReactive :: LabelClass e => e -> ReactiveFieldReadWrite IO String
labelTextReactive e = passiveProperty e labelText
instance ReactiveValueReadWrite Label String IO where
instance ReactiveValueRead Label String IO where
reactiveValueOnCanRead = reactiveValueOnCanRead . labelTextReactive
reactiveValueRead = reactiveValueRead . labelTextReactive
instance ReactiveValueWrite Label String IO where
reactiveValueWrite = reactiveValueWrite . labelTextReactive