1{-# LANGUAGE CPP #-}
2module Graphics.UI.Gtk.ModelView.TreeView.Compat
3    ( treeViewSetModel
4    ) where
5import Graphics.UI.Gtk hiding (treeViewSetModel)
6import qualified Graphics.UI.Gtk.ModelView.TreeView as Gtk
7#if !MIN_VERSION_gtk(0, 14, 9)
8import qualified System.Glib.FFI as Glib
9import qualified Graphics.UI.GtkInternals as Gtk
10#endif
11
12treeViewSetModel
13    :: (TreeViewClass self, TreeModelClass model)
14    => self
15    -> Maybe model
16    -> IO ()
17#if MIN_VERSION_gtk(0, 14, 9)
18treeViewSetModel = Gtk.treeViewSetModel
19#else
20treeViewSetModel self model = Gtk.treeViewSetModel self
21    (maybe (Gtk.TreeModel Glib.nullForeignPtr) toTreeModel model)
22#endif
23