module Graphics.UI.Gtk.Reactive.Entry where
import Data.ReactiveValue
import Graphics.UI.Gtk
import Graphics.UI.Gtk.Reactive.Property
entryTextReactive :: (EditableClass e, EntryClass e) => e -> ReactiveFieldReadWrite IO String
entryTextReactive e = reactiveProperty e editableChanged entryText
instance ReactiveValueReadWrite Entry String IO where
instance ReactiveValueRead Entry String IO where
reactiveValueOnCanRead = reactiveValueOnCanRead . entryTextReactive
reactiveValueRead = reactiveValueRead . entryTextReactive
instance ReactiveValueWrite Entry String IO where
reactiveValueWrite = reactiveValueWrite . entryTextReactive