seed r437 - trunk/modules/canvas

[racarr svn gnome org]

Author: racarr
Date: Sat Dec 13 00:06:51 2008
New Revision: 437
URL: http://svn.gnome.org/viewvc/seed?rev=437&view=rev

Log:
Canvas.destroy.


Modified:
   trunk/modules/canvas/seed-canvas.c

Modified: trunk/modules/canvas/seed-canvas.c
==============================================================================
--- trunk/modules/canvas/seed-canvas.c	(original)
+++ trunk/modules/canvas/seed-canvas.c	Sat Dec 13 00:06:51 2008
@@ -779,9 +779,24 @@
 	return seed_make_null(ctx);
 }
 
+SeedValue seed_canvas_destroy (SeedContext ctx,
+								 SeedObject function,
+								 SeedObject this_object,
+								 size_t argument_count,
+								 const SeedValue arguments[],
+								 SeedException * exception)
+{
+	GET_CR;
+	cairo_destroy(cr);
+	
+	return seed_make_null(ctx);
+}
+
 static void canvas_finalize(SeedObject object)
 {
-	cairo_destroy((cairo_t *)seed_object_get_private(object));
+	cairo_t * cr = seed_object_get_private(object);
+	if (cr)
+		cairo_destroy(cr);
 }
 
 seed_static_function canvas_funcs[] = {
@@ -809,6 +824,7 @@
 	{"flush", seed_canvas_flush, 0},
 	{"finish", seed_canvas_finish, 0},
 	{"showPage", seed_canvas_showpage, 0},
+	{"destroy", seed_canvas_destroy, 0},
 	{0, 0, 0}
 };