From 50276cbd9b676e1eb5df19b26afa6b41844788aa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Jan 2005 19:02:46 +0000
Subject: fix backward compatibility

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 24b0ab6f5..792462ca4 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -617,6 +617,11 @@ sub gtktext_insert { &mygtk2::_text_insert }
 sub icon_paths { &mygtk2::_icon_paths }
 sub add_icon_path { &mygtk2::add_icon_path }
 
+sub set_main_window_size { 
+    my ($o) = @_;
+    mygtk2::set_main_window_size($o->{rwindow});
+}
+
 # extracts interesting font metrics for a given widget
 sub gtkfontinfo {
     my ($widget) = @_;
-- 
cgit v1.2.1