diff options
| author | Olivier Blin <oblin@mandriva.com> | 2009-10-28 14:53:39 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2009-10-28 14:53:39 +0000 |
| commit | 48d7d284a65ece03c8918053147c2cbd11c78735 (patch) | |
| tree | c3807917e7ef46c3f6bfe9922cf156207312f738 /perl-install | |
| parent | c3355616592a6ff4982cadc2dc07322b3604a8e9 (diff) | |
| download | drakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar drakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar.gz drakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar.bz2 drakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar.xz drakx-48d7d284a65ece03c8918053147c2cbd11c78735.zip | |
do not "use" gtk modules, it might crash in text mode
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 3d1d8d849..ad54cb1be 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -494,14 +494,15 @@ sub main { my $sol; if ($o->isa('interactive::gtk')) { - use mygtk2; - + require mygtk2; + import mygtk2 qw(gtknew); + my $mainw = ugtk2->new(N("Partitioning"), %$o, if__($::main_window, transient => $::main_window)); $mainw->{box_allow_grow} = 1; mygtk2::set_main_window_size($mainw->{rwindow}); - use diskdrake::hd_gtk; + require diskdrake::hd_gtk; diskdrake::hd_gtk::load_theme(); my $mainbox = Gtk2::VBox->new; |