[perl-Gtk3] Add an override for Gtk3::main_level

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

commit cd6223be4bc28fd2c98067f4606ae52024fb5f77
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sun Jan 13 22:06:02 2013 +0100

    Add an override for Gtk3::main_level

 NEWS        |    1 +
 lib/Gtk3.pm |    5 +++++
 2 files changed, 6 insertions(+), 0 deletions(-)
---
diff --git a/NEWS b/NEWS
index d993ca4..92a6607 100644
--- a/NEWS
+++ b/NEWS
@@ -5,6 +5,7 @@
   response IDs to nick names.  This is an API change.
 * Add overrides for Gtk3::Editable.
 * Add overrides for Gtk3::FileChooserDialog.
+* Add an override for Gtk3::main_level.
 * Add Gtk3::EVENT_PROPAGATE and Gtk3::EVENT_STOP.
 * Test that no double-frees occur for custom Gtk3::Widget subclasses.
 
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 25f94dd..e0388bc 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -278,6 +278,11 @@ sub Gtk3::main {
   Glib::Object::Introspection->invoke ($_GTK_BASENAME, undef, 'main');
 }
 
+sub Gtk3::main_level {
+  # Ignore any arguments passed in.
+  return Glib::Object::Introspection->invoke ($_GTK_BASENAME, undef, 'main_level');
+}
+
 sub Gtk3::main_quit {
   # Ignore any arguments passed in.
   Glib::Object::Introspection->invoke ($_GTK_BASENAME, undef, 'main_quit');