From 175551618f579623ec87f3b6c12b6eaddb55d660 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 17 Aug 2001 23:03:58 +0000 Subject: use diskdrake_interactive instead of diskdrake --- perl-install/install_interactive.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 214b8546f..e38adabb1 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -31,8 +31,8 @@ sub partition_with_diskdrake { $o->set_help('partition_with_diskdrake'); do { $ok = 1; - require diskdrake; - diskdrake::main(interactive_gtk->new, $all_hds, $nowizard); + require diskdrake_interactive; + diskdrake_interactive::main($o, $all_hds, $nowizard); delete $o->{wizard} and return partitionWizard($o, 'nodiskdrake'); my @fstab = fsedit::get_all_fstab($all_hds); @@ -166,7 +166,7 @@ When sure, press Ok.")) or return; } ]; } - if (!$readonly && $o->isa('interactive_gtk')) { #- diskdrake only available in gtk for now + if (!$readonly) { $solutions{diskdrake} = [ 0, _("Custom disk partitioning"), sub { partition_with_diskdrake($o, $all_hds, 'nowizard') } ]; } -- cgit v1.2.1