From: Duncan C. <dun...@wo...> - 2007-08-29 02:02:21
|
Tue Aug 28 19:01:53 PDT 2007 Duncan Coutts <du...@ha...> * Fill in the GObjectClass methods for the ListStore and TreeStore We still seem to be getting some iter stamp errors :-( hunk ./gtk/Graphics/UI/Gtk/ModelView/CustomStore.chs 79 -instance GObjectClass (CustomTreeModel private row) hunk ./gtk/Graphics/UI/Gtk/ModelView/CustomStore.chs 80 +instance GObjectClass (CustomTreeModel private row) where + toGObject (CustomTreeModel tm) = mkGObject (castForeignPtr tm) + unsafeCastGObject = CustomTreeModel . castForeignPtr . unGObject hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 59 -import Graphics.UI.Gtk.Types (GObjectClass, TreeModelClass) +import Graphics.UI.Gtk.Types (GObjectClass(..), TreeModelClass) hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 66 -instance GObjectClass (ListStore a) -instance TreeModelClass (ListStore a) hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 67 +instance TreeModelClass (ListStore a) +instance GObjectClass (ListStore a) where + toGObject (ListStore tm) = toGObject tm + unsafeCastGObject = ListStore . unsafeCastGObject hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeStore.hs 57 -import Graphics.UI.Gtk.Types (GObjectClass, TreeModelClass) +import Graphics.UI.Gtk.Types (GObjectClass(..), TreeModelClass) hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeStore.hs 69 -instance GObjectClass (TreeStore a) -instance TreeModelClass (TreeStore a) hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeStore.hs 70 +instance TreeModelClass (TreeStore a) +instance GObjectClass (TreeStore a) where + toGObject (TreeStore tm) = toGObject tm + unsafeCastGObject = TreeStore . unsafeCastGObject |