summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig/card.pm
Commit message (Expand)AuthorAgeFilesLines
* xorg_version is 6.8.2Pascal Rigaux2005-01-261-1/+1
* fix auto_install graphic card configuration (when one specify the Driver)Pascal Rigaux2005-01-161-13/+16
* better english (writing style rather than spoken one)Thierry Vignaud2004-12-131-4/+4
* simplifyPascal Rigaux2004-11-261-1/+1
* create function libgl_config() and have it after setting Driver to 'fglrx' soPascal Rigaux2004-11-251-12/+19
* enable UseFBDev in X configs on ppc, for rage128 and radeonPascal Rigaux2004-11-161-0/+3
* set raw_LINES on every fglrx devicesPascal Rigaux2004-11-161-5/+9
* drop broken codePascal Rigaux2004-11-161-3/+0
* fix regexp given to matching_driver (otherwise smartcard:xxx matches)Pascal Rigaux2004-11-091-1/+1
* make perl_checker happyGwenolé Beauchesne2004-10-041-1/+1
* x86_64 is a lib64 platform, so handle nvidia glx here too (and ati in the fut...Gwenolé Beauchesne2004-10-041-6/+8
* adapt to new proprietary package namingPascal Rigaux2004-09-131-2/+2
* add __regexp suffix to matching_desc() and matching_driver()Thierry Vignaud2004-08-271-1/+2
* (to_raw_X) do not set DRI mode anymore; this is not needed anymoreThierry Vignaud2004-08-231-1/+0
* replace freeDriver with freedriver (stage2 para are lower cased)Pascal Rigaux2004-08-161-1/+1
* s/XFree/Xorg/Pascal Rigaux2004-08-101-11/+11
* replaced XFree86 and XFree with Xorg (bugzilla #10531)Pascal Rigaux2004-08-051-3/+3
* - create X_options_from_o() and use itPascal Rigaux2004-07-081-1/+5
* merge from MDK-10-branch: add support for ATI_GLX and NVIDIA_GLX cohabitationThierry Vignaud2004-06-181-1/+16
* switch to xorgPascal Rigaux2004-06-081-3/+3
* perl_checker compliancePascal Rigaux2004-05-111-1/+2
* don't succeed automatic configuration (not auto_install) when there is many c...Pascal Rigaux2004-05-061-1/+3
* XFree 3 is gone!Pascal Rigaux2004-05-031-158/+26
* catch exception (bugzilla #8726)Pascal Rigaux2004-03-091-2/+2
* well we reverted to 4.3Guillaume Cottenceau2004-02-171-1/+1
* handle case where rpm can't be found (eg: XFree86-SVGA for xfree3) (part of b...Pascal Rigaux2004-02-121-1/+7
* fix typoPascal Rigaux2004-02-091-1/+3
* handle allowNVIDIA_rpms & allowATI_rpms directly in Xconfig::card::install_se...Pascal Rigaux2004-02-091-6/+9
* force XF4 on all archsPascal Rigaux2004-02-091-1/+1
* make XFdrake startup be instantenous for non nv|ati cards (allowNVIDIA_rpms andThierry Vignaud2004-02-081-2/+2
* don't test X config if using driver vmware (bugzilla #5346)Pascal Rigaux2004-02-061-1/+1
* replace 4.3 with 4.4 (XFree version) (bugzilla #7378)Pascal Rigaux2004-02-041-1/+1
* detect_devices::matching_driver -> matching_desc but matching driver names (k...Guillaume Cottenceau2004-01-131-1/+1
* obsolete livedrake, live_install, live_updatePascal Rigaux2004-01-061-1/+0
* use Options "IgnoreEDID" when using the proprietary X driver "nvidia"Pascal Rigaux2003-12-041-0/+1
* check that libglx.so is a link instead of checking if it exists (since it isPascal Rigaux2003-11-251-1/+1
* choose a not-to-bad default when X auto config fails in auto installPascal Rigaux2003-11-101-2/+5
* perl_checker fixesPascal Rigaux2003-09-291-1/+1
* fixup default fglrx config to be included in Device Section. thanks pixelNicolas Planel2003-09-101-51/+52
* fixed perl_checker fixes.Francois Pons2003-09-101-2/+2
* added nplanel patch for ATI proprietary drivers.Francois Pons2003-09-101-1/+78
* don't propose XF3 when $force_xf4Pascal Rigaux2003-08-211-4/+6
* fix typo ($::force_xf4 doesn't exist anymore)Pascal Rigaux2003-08-211-1/+1
* Use xf4 on AMD64 tooGwenolé Beauchesne2003-08-191-1/+1
* Intel drivers don't need DontVTSwitch anymore (dixit Arnaud de Lorbeau)Pascal Rigaux2003-08-011-4/+0
* perl_checker adaptations + fixesPascal Rigaux2003-04-241-2/+2
* fix typo, grr...Pascal Rigaux2003-03-281-1/+1
* also have DontVTSwitch for i845 (and i85x)Pascal Rigaux2003-03-281-1/+1
* use option DontVTSwitch for i865Pascal Rigaux2003-03-281-0/+4
* don't vivify @cardsPascal Rigaux2003-02-201-1/+1
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-04 21:17:43 +0000
lesystem type then choose an action")), 1, (my $notebook_widget = Gtk2::Notebook->new), 0, (my $per_kind_action_box = Gtk2::HBox->new(0,0)), 0, (my $general_action_box = Gtk2::HBox->new(0,0)), ), ); my $lock; $update_all = sub { $lock and return; $lock = 1; partition_table::assign_device_numbers($_) foreach fs::get::hds($all_hds); create_automatic_notebooks($notebook_widget); general_action_box($general_action_box); per_kind_action_box($per_kind_action_box, $current_kind); current_kind_changed($in, $current_kind); current_entry_changed($current_kind, $current_entry); $lock = 0; }; create_automatic_notebooks($notebook_widget); $notebook_widget->signal_connect(switch_page => sub { $current_kind = $notebook[$_[2]]; $current_entry = ''; $update_all->(); }); $w->sync; $done_button->grab_focus; $in->ask_from_list_(N("Read carefully!"), N("Please make a backup of your data first"), [ N_("Exit"), N_("Continue") ], N_("Continue")) eq N_("Continue") or return if $::isStandalone; $in->ask_warn('', N("If you plan to use aboot, be careful to leave a free space (2048 sectors is enough) at the beginning of the disk")) if arch() eq 'alpha' && !$::isEmbedded; $w->main; } sub try { my ($name, @args) = @_; my $f = $diskdrake::interactive::{$name} or die "unknown function $name"; try_($name, \&$f, @args); } sub try_ { my ($name, $f, @args) = @_; my $v = eval { $f->($in, @args, $all_hds) }; if (my $err = $@) { $in->ask_warn(N("Error"), formatError($err)); } if ($v eq 'force_reload') { $all_hds = $do_force_reload->(); } $current_entry = '' if !diskdrake::interactive::is_part_existing($current_entry, $all_hds); $update_all->(); Gtk2->main_quit if $v && member($name, 'Done'); } ################################################################################ # generic: helpers ################################################################################ sub add_kind2notebook { my ($notebook_widget, $kind) = @_; die if $kind->{main_box}; $kind->{display_box} = gtkset_size_request(Gtk2::HBox->new(0,0), $width, $height); $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(), $::isStandalone ? 165 : 150, $::isEmbedded ? 150 : 180); $kind->{info_box} = Gtk2::VBox->new(0,0); my $box = gtkpack_(Gtk2::VBox->new(0,7), 0, $kind->{display_box}, 0, filesystems_button_box(), 1, $kind->{info_box}); $kind->{main_box} = gtknew('HBox', spacing => 5, children => [ 1, $box, 0, $kind->{action_box}, ]); ugtk2::add2notebook($notebook_widget, $kind->{name}, $kind->{main_box}); push @notebook, $kind; $kind; } sub interactive_help() { if ($::isInstall) { my $func = $in->interactive_help_sub_display_id('partition_with_diskdrake'); $func and $func->(); } else { require run_program; run_program::raw({ detach => 1 }, 'drakhelp', '--id', 'diskdrake'); } } sub general_action_box { my ($box) = @_; $_->destroy foreach $box->get_children; gtkadd($box, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => \&interactive_help)); my @actions = ( diskdrake::interactive::general_possible_actions($in, $all_hds), N_("Done")); foreach my $s (@actions) { my $button = Gtk2::Button->new(translate($s)); $done_button = $button if $s eq 'Done'; gtkadd($box, gtksignal_connect($button, clicked => sub { try($s) })); } } sub per_kind_action_box { my ($box, $kind) = @_; $_->destroy foreach $box->get_children; $kind->{type} =~ /hd|lvm/ or return; foreach my $s (diskdrake::interactive::hd_possible_actions($in, kind2hd($kind), $all_hds)) { gtkadd($box, gtksignal_connect(Gtk2::Button->new(translate($s)), clicked => sub { try($s, kind2hd($kind)) })); } } sub per_entry_action_box { my ($box, $kind, $entry) = @_; $_->destroy foreach $box->get_children; if ($entry) { my @buttons = map { my $s = $_; my $w = Gtk2::Button->new(translate($s)); $w->signal_connect(clicked => sub { try($s, kind2hd($kind), $entry) }); $w; } diskdrake::interactive::part_possible_actions($in, kind2hd($kind), $entry, $all_hds); gtkadd($box, create_scrolled_window(gtkpack__(Gtk2::VBox->new(), @buttons), shadow_type => 'none')) if @buttons; } else { my $txt = !$::isStandalone && fsedit::is_one_big_fat_or_NT($all_hds->{hds}) ? N("You have one big Microsoft Windows partition. I suggest you first resize that partition (click on it, then click on \"Resize\")") : N("Please click on a partition"); gtkpack($box, gtktext_insert(Gtk2::TextView->new, $txt)); } } sub per_entry_info_box { my ($box, $kind, $entry) = @_; $_->destroy foreach $box->get_children; my $info; if ($entry) { $info = diskdrake::interactive::format_part_info(kind2hd($kind), $entry); } elsif ($kind->{type} =~ /hd|lvm/) { $info = diskdrake::interactive::format_hd_info($kind->{val}); } gtkpack($box, gtkadd(gtkcreate_frame(N("Details")), gtknew('HBox', border_width => 5, children_loose => [ gtkset_alignment(gtkset_justify(Gtk2::Label->new($info), 'left'), 0, 0) ]))); } sub current_kind_changed { my ($_in, $kind) = @_; $_->destroy foreach $kind->{display_box}->get_children; my $v = $kind->{val}; my @parts = $kind->{type} eq 'raid' ? grep { $_ } @$v : $kind->{type} eq 'loopback' ? @$v : fs::get::hds_fstab_and_holes($v); my $totalsectors = $kind->{type} =~ /raid|loopback/ ? sum(map { $_->{size} } @parts) : $v->{totalsectors}; create_buttons4partitions($kind, $totalsectors, @parts); } sub current_entry_changed { my ($kind, $entry) = @_; $current_entry = $entry; if ($kind) { per_entry_action_box($kind->{action_box}, $kind, $entry); per_entry_info_box($kind->{info_box}, $kind, $entry); } } sub create_automatic_notebooks { my ($notebook_widget) = @_; $_->{marked} = 0 foreach @notebook; my $may_add = sub { my ($kind) = @_; my @l = grep { $kind->{val} == $_->{val} } @notebook; @l > 1 and log::l("weird: create_automatic_notebooks"); $kind = $l[0] || add_kind2notebook($notebook_widget, $kind); $kind->{marked} = 1; }; $may_add->(hd2kind($_)) foreach @{$all_hds->{hds}}; $may_add->(lvm2kind($_)) foreach @{$all_hds->{lvms}}; $may_add->(raid2kind()) if @{$all_hds->{raids}}; $may_add->(loopback2kind()) if @{$all_hds->{loopbacks}}; @notebook = grep_index { my $b = $_->{marked} or $notebook_widget->remove_page($::i); $b; } @notebook; @notebook or $in->ask_warn(N("Error"), N("No hard drives found")), $in->exit(1); } ################################################################################ # parts: helpers ################################################################################ sub create_buttons4partitions { my ($kind, $totalsectors, @parts) = @_; $width = max($width, 0.9 * second($w->{window}->window->get_size)) if $w->{window}->window; my $ratio = $totalsectors ? ($width - @parts * $minwidth) / $totalsectors : 1; while (1) { my $totalwidth = sum(map { $_->{size} * $ratio + $minwidth } @parts); $totalwidth <= $width and last; $ratio /= $totalwidth / $width * 1.1; } my $current_button; my $set_current_button = sub { my ($w) = @_; $current_button->set_active(0) if $current_button; ($current_button = $w)->set_active(1); }; foreach my $entry (@parts) { my $info = $entry->{mntpoint}; $info .= "\n" . ($entry->{size} ? formatXiB($entry->{size}, 512) : N("Unknown")) if $info; my $w = Gtk2::ToggleButton->new_with_label($info) or internal_error('new_with_label'); $w->signal_connect(clicked => sub { $current_button != $w or return; current_entry_changed($kind, $entry); $set_current_button->($w); }); $w->signal_connect(key_press_event => sub { my (undef, $event) = @_; member('control-mask', @{$event->state}) && $w == $current_button or return; my $c = chr $event->keyval; foreach my $s (diskdrake::interactive::part_possible_actions($in, kind2hd($kind), $entry, $all_hds)) { ${{ Create => 'c', Delete => 'd', Format => 'f', Loopback => 'l', Resize => 'r', Type => 't', Mount => 'M', Unmount => 'u', 'Mount point' => 'm', 'Add to LVM' => 'L', 'Remove from LVM' => 'L', 'Add to RAID' => 'R', 'Remove from RAID' => 'R', }}{$s} eq $c or next; try($s, kind2hd($kind), $entry); last; } }); my @colorized_fs_types = qw(ext3 ext4dev xfs swap vfat ntfs ntfs-3g); $w->set_name("PART_" . (isEmpty($entry) ? 'empty' : $entry->{fs_type} && member($entry->{fs_type}, @colorized_fs_types) ? $entry->{fs_type} : 'other')); $w->set_size_request($entry->{size} * $ratio + $minwidth, 0); gtkpack__($kind->{display_box}, $w); if ($current_entry && fsedit::are_same_partitions($current_entry, $entry)) { $set_current_button->($w); $w->grab_focus; } } } ################################################################################ # disks: helpers ################################################################################ sub current_hd() { $current_kind->{type} eq 'hd' or die 'current_hd called but $current_kind is not an hd'; $current_kind->{val}; } sub current_part() { current_hd(); $current_entry; } sub kind2hd { my ($kind) = @_; $kind->{type} =~ /hd|lvm/ ? $kind->{val} : bless({}, 'partition_table::raw'); } sub hd2kind { my ($hd) = @_; { type => 'hd', name => $hd->{device}, val => $hd }; } sub filesystems_button_box() { my @types = (N_("Ext3"), N_("XFS"), N_("Swap"), arch() =~ /sparc/ ? N_("SunOS") : arch() eq "ppc" ? N_("HFS") : N_("Windows"), N_("Other"), N_("Empty")); my %name2fs_type = (Ext3 => 'ext3', Ext4 => 'ext4dev', 'XFS' => 'xfs', Swap => 'swap', Other => 'other', "Windows" => 'vfat', HFS => 'hfs'); gtkpack(Gtk2::HBox->new(0,0), map { my $t = $name2fs_type{$_}; my $w = gtknew('Button', text => translate($_), widget_name => 'PART_' . ($t || 'empty'), tip => N("Filesystem types:"), clicked => sub { try_('', \&createOrChangeType, $t, current_hd(), current_part()) }); $w->can_focus(0); $w; } @types); } sub createOrChangeType { my ($in, $fs_type, $hd, $part, $all_hds) = @_; $part ||= !fs::get::hds_fstab($hd) && { pt_type => 0, start => 1, size => $hd->{totalsectors} - 1 }; $part or return; if ($fs_type eq 'other') { if (isEmpty($part)) { try('Create', $hd, $part); } else { try('Type', $hd, $part); } } elsif (!$fs_type) { if (isEmpty($part)) { $in->ask_warn(N("Warning"), N("This partition is already empty")); } else { try('Delete', $hd, $part); } } elsif (isEmpty($part)) { fs::type::set_fs_type($part, $fs_type); diskdrake::interactive::Create($in, $hd, $part, $all_hds); } else { return if $fs_type eq $part->{fs_type}; $in->ask_warn('', isBusy($part) ? N("Use ``Unmount'' first") : N("Use ``%s'' instead (in expert mode)", N("Type"))); } } ################################################################################ # lvms: helpers ################################################################################ sub lvm2kind { my ($lvm) = @_; { type => 'lvm', name => $lvm->{VG_name}, val => $lvm }; } ################################################################################ # raids: helpers ################################################################################ sub raid2kind() { { type => 'raid', name => 'raid', val => $all_hds->{raids} }; } ################################################################################ # loopbacks: helpers ################################################################################ sub loopback2kind() { { type => 'loopback', name => 'loopback', val => $all_hds->{loopbacks} }; } 1;
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-04 21:17:39 +0000