From f3fb118ac213d2e6e3bce3cd580a66298f6254d7 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 28 Oct 2009 16:58:45 +0000
Subject: import ugtk2 wrappers

---
 perl-install/fs/partitioning_wizard.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index f6d1a6760..248bb04ed 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -494,6 +494,8 @@ sub main {
     if ($o->isa('interactive::gtk')) {
         require mygtk2;
         import mygtk2 qw(gtknew);
+        require ugtk2;
+        ugtk2->import(qw(:wrappers));
 
         my $mainw = ugtk2->new(N("Partitioning"), %$o, if__($::main_window, transient => $::main_window));
         $mainw->{box_allow_grow} = 1;
-- 
cgit v1.2.1