keera-hails-reactive-gtk-0.6.0: src/Graphics/UI/Gtk/Reactive/Image.hs

{-# LANGUAGE TypeSynonymInstances  #-}
{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE MultiParamTypeClasses #-}
-- | Publishes the main elements of an entry as reactive fields
--
-- Copyright   : (C) Keera Studios Ltd, 2013
-- License     : BSD3
-- Maintainer  : support@keera.co.uk
module Graphics.UI.Gtk.Reactive.Image where

import Data.ReactiveValue
import Graphics.UI.Gtk
import Graphics.UI.Gtk.Reactive.Property

imageFileReactive :: Image -> ReactiveFieldWrite IO FilePath
imageFileReactive e = ReactiveFieldWrite (imageSetFromFile e)

instance ReactiveValueWrite Image String IO where
 reactiveValueWrite = reactiveValueWrite . imageFileReactive