From 702e6fa6031c8798837d4ecbbd441e721bc9af37 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 6 Apr 2004 21:14:57 +0000 Subject: (shrink_topwindow) fix faillure with perl-Gtk+-1.04x (#9411) --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index eff1c8b95..5dfa7a9c1 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -994,7 +994,7 @@ sub sync { sub flush() { gtkflush() } sub shrink_topwindow { my ($o) = @_; - $o->{rwindow}->signal_emit('size_allocate', Gtk2::Allocation->new(-1, -1, -1, -1)); + $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