Mon Oct 26 12:28:10 EDT 2009 Axe...@en...
* Fix construction of SVG objects to use new typles of constructor and destructor.
hunk ./svgcairo/Graphics/Rendering/Cairo/SVG.chs.pp 85
-import System.Glib.GObject (GObjectClass(..), constructNewGObject, unGObject, mkGObject)
+import System.Glib.GObject (GObject(..), GObjectClass(..), constructNewGObject,
+ unGObject, objectUnref)
hunk ./svgcairo/Graphics/Rendering/Cairo/SVG.chs.pp 99
-mkSVG = SVG
-unSVG (SVG o) = o
+mkSVG = (SVG, objectUnref)
+unSVG (SVG obj) = obj
hunk ./svgcairo/Graphics/Rendering/Cairo/SVG.chs.pp 103
- toGObject = mkGObject . castForeignPtr . unSVG
- unsafeCastGObject = mkSVG . castForeignPtr . unGObject
+ toGObject = GObject . castForeignPtr . unSVG
+ unsafeCastGObject = SVG . castForeignPtr . unGObject
hunk ./svgcairo/Graphics/Rendering/Cairo/SVG.chs.pp 163
- constructNewGObject SVG {# call unsafe new #}
+ constructNewGObject mkSVG {# call unsafe new #}
|