From cbca79ff272a836f9f65b14a22afad149c3886ea Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 Apr 2004 14:06:51 +0000
Subject: (shrink_topwindow) support both 10.0 and cooker

---
 perl-install/ugtk2.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index d5756b3b9..8407686a7 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -999,7 +999,11 @@ sub sync {
 sub flush() { gtkflush() }
 sub shrink_topwindow {
     my ($o) = @_;
-    $o->{rwindow}->signal_emit('size_allocate', Gtk2::Gdk::Rectangle->new(-1, -1, -1, -1));
+    if ($Gtk2::VERSION < 1.040) {
+        $o->{rwindow}->signal_emit('size_allocate', Gtk2::Allocation->new(-1, -1, -1, -1));
+    } else {
+        $o->{rwindow}->signal_emit('size_allocate', Gtk2::Gdk::Rectangle->new(-1, -1, -1, -1));
+    }
 }
 sub exit {
     gtkset_mousecursor_normal(); #- for restoring a normal in any case
-- 
cgit v1.2.1