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