summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm106
1 files changed, 0 insertions, 106 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 0e613a620..ac8188d8a 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -200,112 +200,6 @@ sub selectMouse {
}
#------------------------------------------------------------------------------
-sub doPartitionDisks {
- my ($o, $hds, $raid) = @_;
-
- if ($o->{lnx4win}) {
- eval { install_steps::doPartitionDisks(@_) };
- if ($@ =~ /no fat/) {
- $o->ask_warn('', _("You don't have any windows partitions!"));
- } elsif ($@ =~ /not enough room/) {
- $o->ask_warn('', _("You don't have any enough room for Lnx4win"));
- } else { return }
-#- delete $o->{lnx4win};
- }
- if ($::beginner && fsedit::is_one_big_fat($hds)) {
- #- wizard
- my $min_linux = 600 << 11;
- my $max_linux = 1500 << 11;
- my $min_freewin = 300 << 11;
-
- my ($part) = fsedit::get_fstab(@{$o->{hds}});
- my $w = $o->wait_message(_("Resizing"), _("Computing FAT filesystem bounds"));
- my $resize_fat = eval { resize_fat::main->new($part->{device}, devices::make($part->{device})) };
- $@ and goto diskdrake;
- my $min_win = $resize_fat->min_size;
- if (!$@ && $part->{size} > $min_linux + $min_freewin + $min_win && $o->ask_okcancel('',
-_("WARNING!
-
-DrakX now needs to resize your Windows partition. Be careful: this operation is
-dangerous. If you have not already done so, you should first exit the
-installation, run scandisk under Windows (and optionally run defrag), then
-restart the installation. You should also backup your data.
-When sure, press Ok."))) {
- my $hd = $hds->[0];
- my $oldsize = $part->{size};
- $hd->{isDirty} = $hd->{needKernelReread} = 1;
- $part->{size} -= min($max_linux, $part->{size} - $min_win);
- $hd->adjustEnd($part);
- partition_table::adjust_local_extended($hd, $part);
- partition_table::adjust_main_extended($hd);
-
- local *log::l = sub { $w->set(join(' ', @_)) };
- my $b = before_leaving { close $resize_fat->{fd} };
- eval { $resize_fat->resize($part->{size}) };
- if ($@) {
- $part->{size} = $oldsize;
- $o->ask_warn('', _("Automatic resizing failed"));
- } else {
- $part->{isFormatted} = 1;
- eval { fsedit::auto_allocate($hds, $o->{partitions}) };
- if (!$@) {
- partition_table::write($hd) unless $::testing;
- return;
- }
- }
- }
- }
-
- diskdrake:
- while (1) {
- diskdrake::main($hds, $raid, interactive_gtk->new, $o->{partitions});
- if (!grep { isSwap($_) } fsedit::get_fstab(@{$o->{hds}})) {
- if ($::beginner) {
- $o->ask_warn('', _("You must have a swap partition"));
- } elsif (!$::expert) {
- $o->ask_okcancel('', _("You don't have a swap partition\n\nContinue anyway?")) and last;
- } else { last }
- } else { last }
- }
-}
-
-sub doPartitionDisksLnx4winDev {
- my ($o, @l) = @_;
- return $l[0] if $::beginner;
- $o->ask_from_listf('', _("Which partition do you want to use to put Linux4Win?"), \&partition_table_raw::description, \@l);
-}
-
-sub doPartitionDisksLnx4winSize {
- my ($o, $root_size, $swap_size, $max_root_size, $max_swap_size) = @_;
- return 1 if $::beginner;
-
- my $w = my_gtk->new('');
-
- my $root_adj = create_adjustment($max_root_size >> 11, 250, $$root_size >> 11);
- my $swap_adj = create_adjustment($max_swap_size >> 11, 32, $$swap_size >> 11);
- my $root_spin = new Gtk::SpinButton($root_adj, 0, 0);
- my $swap_spin = new Gtk::SpinButton($swap_adj, 0, 0);
-
- gtkadd($w->{window},
- gtkpack(new Gtk::VBox(0,20),
-_("Choose the sizes"),
- create_packtable({},
- [ _("Root partition size in MB: "), $root_spin ],
- [ undef, new Gtk::HScrollbar($root_adj) ],
- [ _("Swap partition size in MB: "), $swap_spin ],
- [ undef, new Gtk::HScrollbar($swap_adj) ],
- ),
- create_okcancel($w)
- ),
- );
- $w->{ok}->grab_focus;
- $w->main(sub {
- $$root_size = $root_spin->get_value_as_int << 11;
- $$swap_size = $swap_spin->get_value_as_int << 11;
- });
-}
-
-#------------------------------------------------------------------------------
sub chooseSizeToInstall {
my ($o, $packages, $min_size, $max_size_, $availableC, $individual) = @_;
my $max_size = min($max_size_, $availableC);