[perl-Gtk2] Allow undef in Gtk2::Menu->set_screen

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

commit f442efa09de15470657e0b8a04358d5ac3d68b16
Author: Kevin Ryde <user42 zip com au>
Date:   Wed Mar 31 19:37:12 2010 +0200

    Allow undef in Gtk2::Menu->set_screen
    
    https://bugzilla.gnome.org/show_bug.cgi?id=614137

 t/GtkMenu.t   |    1 +
 xs/GtkMenu.xs |    2 +-
 2 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/t/GtkMenu.t b/t/GtkMenu.t
index 29726f1..61e7daa 100644
--- a/t/GtkMenu.t
+++ b/t/GtkMenu.t
@@ -58,6 +58,7 @@ foreach $num (qw/1 2 3/)
 			unless Gtk2->CHECK_VERSION (2, 2, 0);
 
 		$menu->set_screen (Gtk2::Gdk::Screen->get_default);
+		$menu->set_screen (undef);
 	}
 
 	$menuitem = undef;
diff --git a/xs/GtkMenu.xs b/xs/GtkMenu.xs
index 88d9b8f..a738af7 100644
--- a/xs/GtkMenu.xs
+++ b/xs/GtkMenu.xs
@@ -255,7 +255,7 @@ gtk_menu_get_title (menu)
 void
 gtk_menu_set_screen (menu, screen)
 	GtkMenu   * menu
-	GdkScreen * screen
+	GdkScreen_ornull * screen
 
 #endif