{-# LANGUAGE CPP #-}
module Data.GI.Gtk.BuildFn
( BuildFn
, buildWithBuilder
, getObject
) where
import Prelude ()
import Prelude.Compat
import Control.Monad.Reader (ReaderT, runReaderT, ask, MonadIO, liftIO)
import Data.GI.Base (GObject, castTo)
#if !MIN_VERSION_haskell_gi_base(0,20,1)
import Data.GI.Base.BasicTypes (nullToNothing)
#endif
import Data.Maybe (fromJust)
import qualified Data.Text as T
import Foreign.ForeignPtr (ForeignPtr)
import GI.Gtk hiding (main)
type BuildFn a = ReaderT Builder IO a
buildWithBuilder :: MonadIO m => BuildFn a -> Builder -> m a
buildWithBuilder fn builder = liftIO $ runReaderT fn builder
getObject :: GObject a => (ManagedPtr a -> a) -> T.Text -> BuildFn a
getObject ctor name = do
builder <- ask
#if MIN_VERSION_haskell_gi_base(0,20,1)
Just obj <- builderGetObject builder name
#else
Just obj <- nullToNothing $ builderGetObject builder name
#endif
liftIO $ fromJust <$> castTo ctor obj