[perl-GStreamer-Interfaces] Avoid the "BadDrawable" error when quitting the video sample

[Torsten Schönfeld <tsch src gnome org>]

commit f17ecdd37dc082259709db744163774a5476392b
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Jul 12 21:36:13 2009 +0200

    Avoid the "BadDrawable" error when quitting the video sample
    
    We tried altering the pipeline's state when the window had already been
    destroyed.  Do our clean-up earlier to avoid this.

 examples/gst-video-sample.pl |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/examples/gst-video-sample.pl b/examples/gst-video-sample.pl
index 23a07c0..cf9320a 100644
--- a/examples/gst-video-sample.pl
+++ b/examples/gst-video-sample.pl
@@ -91,7 +91,10 @@ sub create_widgets {
 
 	$window->add($vbox);
 
-	$window->signal_connect(destroy => sub {Gtk2->main_quit()});
+	$window->signal_connect(delete_event => sub {
+		Gtk2->main_quit();
+		return Glib::SOURCE_CONTINUE;
+	});
 	$window->show_all();
 
 	return ($window, $canvas, $buttons);