1 files changed, 5 insertions, 0 deletions
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) = @_;