Wed Oct 31 06:50:16 PDT 2007 Bertram Felgenhauer <in...@gm...>
* SVG: provide implementation for GObjectClass
hunk ./svgcairo/Graphics/Rendering/Cairo/SVG.chs 85
-import System.Glib.GObject (GObjectClass, constructNewGObject)
+import System.Glib.GObject (GObjectClass(..), constructNewGObject, unGObject, mkGObject)
hunk ./svgcairo/Graphics/Rendering/Cairo/SVG.chs 98
-instance GObjectClass SVG
+mkSVG = SVG
+unSVG (SVG o) = o
+
+instance GObjectClass SVG where
+ toGObject = mkGObject . castForeignPtr . unSVG
+ unsafeCastGObject = mkSVG . castForeignPtr . unGObject
|