summaryrefslogtreecommitdiffstats
path: root/perl-install
ModeNameSize
-rw-r--r--.cvsignore54logstatsplain
-rw-r--r--.perl_checker203logstatsplain
-rw-r--r--ChangeLog2409877logstatsplain
-rw-r--r--Makefile10379logstatsplain
-rw-r--r--Makefile.config1481logstatsplain
-rw-r--r--Makefile.drakxtools3354logstatsplain
d---------Newt304logstatsplain
d---------Xconfig454logstatsplain
-rw-r--r--any.pm39790logstatsplain
-rw-r--r--authentication.pm19243logstatsplain
-rw-r--r--bootloader.pm44453logstatsplain
-rw-r--r--c.pm352logstatsplain
d---------c431logstatsplain
-rw-r--r--class_discard.pm189logstatsplain
-rwxr-xr-xcommands394logstatsplain
-rw-r--r--commands.pm13946logstatsplain
-rw-r--r--common.pm8166logstatsplain
-rw-r--r--crypto.pm18317logstatsplain
-rw-r--r--detect_devices.pm30194logstatsplain
-rw-r--r--devices.pm7315logstatsplain
d---------diskdrake278logstatsplain
-rw-r--r--do_pkgs.pm5403logstatsplain
-rw-r--r--drakxtools.spec192237logstatsplain
-rw-r--r--fs.pm19547logstatsplain
d---------fs150logstatsplain
-rw-r--r--fsedit.pm22176logstatsplain
-rw-r--r--ftp.pm2204logstatsplain
-rw-r--r--handle_configs.pm4192logstatsplain
d---------harddrake216logstatsplain
-rw-r--r--help.pm42338logstatsplain
-rw-r--r--http.pm1295logstatsplain
-rwxr-xr-xinstall21205logstatsplain
-rw-r--r--install2.pm26541logstatsplain
-rw-r--r--install_any.pm56245logstatsplain
-rw-r--r--install_gtk.pm9139logstatsplain
-rw-r--r--install_interactive.pm11550logstatsplain
-rw-r--r--install_messages.pm6989logstatsplain
-rw-r--r--install_steps.pm38535logstatsplain
-rw-r--r--install_steps_auto_install.pm3305logstatsplain
-rw-r--r--install_steps_gtk.pm24468logstatsplain
-rw-r--r--install_steps_interactive.pm50460logstatsplain
-rw-r--r--install_steps_newt.pm1356logstatsplain
-rw-r--r--install_steps_stdio.pm667logstatsplain
-rw-r--r--interactive.pm17577logstatsplain
d---------interactive140logstatsplain
-rw-r--r--keyboard.pm25792logstatsplain
-rw-r--r--lang.pm60769logstatsplain
-rw-r--r--list.sparc2771logstatsplain
-rw-r--r--log.pm1438logstatsplain
-rw-r--r--loopback.pm3393logstatsplain
-rw-r--r--lvm.pm4605logstatsplain
-rw-r--r--modules.pm8961logstatsplain
d---------modules209logstatsplain
-rw-r--r--mouse.pm21242logstatsplain
d---------network603logstatsplain
-rw-r--r--partition_table.pm20427logstatsplain
d---------partition_table277logstatsplain
d---------patch506logstatsplain
-rwxr-xr-xperl2etags154logstatsplain
d---------pixmaps2388logstatsplain
-rw-r--r--pkgs.pm45010logstatsplain
d---------printer333logstatsplain
-rw-r--r--raid.pm6762logstatsplain
d---------resize_fat531logstatsplain
-rw-r--r--run_program.pm4017logstatsplain
d---------sbus_probing35logstatsplain
-rwxr-xr-xscanner.pm20642logstatsplain
d---------security179logstatsplain
-rw-r--r--services.pm17069logstatsplain
d---------share1666logstatsplain
-rw-r--r--standalone.pm10359logstatsplain
d---------standalone2018logstatsplain
-rw-r--r--steps.pm2356logstatsplain
-rw-r--r--timezone.pm7885logstatsplain
-rw-r--r--ugtk2.pm60647logstatsplain
d---------unused288logstatsplain
-rwxr-xr-xverify_c303logstatsplain
-rw-r--r--wizards.pm8205logstatsplain
d---------xf86misc183logstatsplain
generated by cgit v1.2.1 (git 2.21.0) at 2025-02-27 07:59:03 +0000
ss="hl num">4, 1, 0); } undef %wtree; my $select = sub { my ($node) = @_; for (my $c = $node; $c; $c = $c->row->parent) { $tree->expand($c); } for (my $i = 0; $tree->node_nth($i); $i++) { if ($tree->node_nth($i) == $node) { $tree->set_focus_row($i); last; } } $tree->select($node); $tree->node_moveto($node, 0, 0.5, 0) if $tree->node_is_visible($node) ne 'full'; }; my $curr = $tree->node_nth(0); #- default value $tree->set_column_auto_resize(0, 1); $tree->set_selection_mode('browse'); $tree->set_row_height($tree->style->font->ascent + $tree->style->font->descent + 1); $tree->signal_connect(tree_select_row => sub { $curr = $_[1]; if ($curr->row->is_leaf) { my @ll; for (my $c = $curr; $c; $c = $c->row->parent) { unshift @ll, first $tree->node_get_pixtext($c, 0); } my $val = join $e->{separator}, @ll; mapn { ${$e->{val}} = $_[1] if $val eq $_[0] } \@l, $e->{list}; &$changed; } else { $tree->expand($curr) if $selected_via_click; } }); my ($first_time, $starting_word, $start_reg) = (1, '', "^"); my $timeout; my $toggle = sub { $curr->row->is_leaf ? &$may_go_to_next : $tree->toggle_expansion($curr); }; $tree->signal_connect(key_press_event => sub { my ($w, $event) = @_; $selected_via_click = 0; my $c = chr($event->{keyval} & 0xff); $curr or return; Gtk->timeout_remove($timeout) if $timeout; $timeout = ''; if ($event->{keyval} >= 0x100) { &$toggle if $c eq "\r" || $c eq "\x8d"; $starting_word = '' if $event->{keyval} != 0xffe4; # control } else { my $next; if ($event->{state} & 4) { #- control pressed $c eq "s" or return 1; $start_reg and $start_reg = '', return 1; $next = 1; } else { &$toggle if $c eq ' '; $next = 1 if $starting_word eq '' || $starting_word eq $c; $starting_word .= $c unless $starting_word eq $c; } my $word = quotemeta $starting_word; my ($after, $best); $tree->pre_recursive(undef, sub { my ($tree, $node) = @_; $next &&= !$after; $after ||= $node == $curr; my ($t) = $tree->node_get_pixtext($node, 0); if ($t =~ /$start_reg$word/i) { if ($after && !$next) { ($best, $after) = ($node, 0); } else { $best ||= $node; } } }); if (defined $best) { $select->($best); } else { $starting_word = ''; } $timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 }); } 1; }); $tree->signal_connect(button_press_event => sub { $selected_via_click = 1; &$double_click if $curr->row->is_leaf && $double_click; }); $tree, sub { my $v = may_apply($e->{format}, $_[0]); $select->($wleaves{$v} || return) if $wleaves{$v} != $tree->selection; }, $size; } sub create_list { my ($e, $may_go_to_next, $changed, $double_click) = @_; my $l = $e->{list}; my $list = new Gtk::List(); $list->set_selection_mode('browse'); my $select = sub { $list->select_item($_[0]); }; my $tips = new Gtk::Tooltips; my $toselect; map_index { my $item = new Gtk::ListItem(may_apply($e->{format}, $_)); $item->signal_connect(key_press_event => sub { my ($w, $event) = @_; my $c = chr($event->{keyval} & 0xff); $may_go_to_next->($event) if $event->{keyval} < 0x100 ? $c eq ' ' : $c eq "\r" || $c eq "\x8d"; 1; }); $list->append_items($item); $item->show; if ($e->{help}) { gtkset_tip($tips, $item, ref($e->{help}) eq 'HASH' ? $e->{help}{$_} : ref($e->{help}) eq 'CODE' ? $e->{help}($_) : $e->{help}); } $item->grab_focus if ${$e->{val}} && $_ eq ${$e->{val}}; } @$l; #- signal_connect'ed after append_items otherwise it is called and destroys the default value $list->signal_connect(select_child => sub { my ($w, $row) = @_; ${$e->{val}} = $l->[$list->child_position($row)]; &$changed; }); $list->signal_connect(button_press_event => $double_click) if $double_click; $list, sub { my ($v) = @_; eval { $select->(find_index { $_ eq $v } @$l); }; }; } sub ask_fromW { my ($o, $common, $l, $l2) = @_; my $ignore = 0; #-to handle recursivity my $mainw = my_gtk->new($common->{title}, %$o); $mainw->sync; # for XPM's creation #-the widgets my (@widgets, @widgets_always, @widgets_advanced, $advanced, $advanced_pack, $has_horiz_scroll, $has_scroll, $total_size, $max_width); my $tooltips = new Gtk::Tooltips; my $set_all = sub { $ignore = 1; $_->{set}->(${$_->{e}{val}}) foreach @widgets_always, @widgets_advanced; $_->{real_w}->set_sensitive(!$_->{e}{disabled}()) foreach @widgets_always, @widgets_advanced; $ignore = 0; }; my $get_all = sub { ${$_->{e}{val}} = $_->{get}->() foreach @widgets_always, @widgets_advanced; }; my $update = sub { my ($f) = @_; return if $ignore; $get_all->(); $f->(); $set_all->(); }; my $create_widget = sub { my ($e, $ind) = @_; my $may_go_to_next = sub { my ($w, $event, $kind) = @_; if ($kind eq 'tab') { if (($event->{keyval} & 0x7f) == 0x9) { $w->signal_emit_stop("key_press_event"); if ($ind == $#widgets) { $mainw->{ok}->grab_focus; } else { $widgets[$ind+1]{focus_w}->grab_focus; } } } else { if (!$event || ($event->{keyval} & 0x7f) == 0xd) { $w->signal_emit_stop("key_press_event") if $event; if ($ind == $#widgets) { @widgets == 1 ? $mainw->{ok}->clicked : $mainw->{ok}->grab_focus; } else { $widgets[$ind+1]{focus_w}->grab_focus; } } } }; my $changed = sub { $update->(sub { $common->{callbacks}{changed}($ind) }) }; my ($w, $real_w, $focus_w, $set, $get, $expand, $size, $width); if ($e->{type} eq 'iconlist') { $w = new Gtk::Button; $set = sub { gtkdestroy($e->{icon}); my $f = $e->{icon2f}->($_[0]); $e->{icon} = -e $f ? gtkpng($f) : new Gtk::Label(may_apply($e->{format}, $_[0])); $w->add($e->{icon}); $e->{icon}->show; }; $w->signal_connect(clicked => sub { $set->(${$e->{val}} = next_val_in_array(${$e->{val}}, $e->{list})); $changed->(); }); $real_w = gtkpack_(new Gtk::HBox(0,10), 1, new Gtk::HBox(0,0), 0, $w, 1, new Gtk::HBox(0,0)); } elsif ($e->{type} eq 'bool') { $w = Gtk::CheckButton->new($e->{text}); $w->signal_connect(clicked => $changed); $set = sub { $w->set_active($_[0]) }; $get = sub { $w->get_active }; $width = length $e->{text}; } elsif ($e->{type} eq 'label') { $w = Gtk::Label->new(${$e->{val}}); $set = sub { $w->set($_[0]) }; $width = length ${$e->{val}}; } elsif ($e->{type} eq 'button') { $w = Gtk::Button->new(''); $w->signal_connect(clicked => sub { $get_all->(); if ($::isWizard) { $mainw->{rwindow}->set_sensitive(0); } else { $mainw->{rwindow}->hide; } if (my $v = $e->{clicked_may_quit}()) { $mainw->{retval} = $v; Gtk->main_quit; } if ($::isWizard) { $mainw->{rwindow}->set_sensitive(1); } else { $mainw->{rwindow}->show; } $set_all->(); }); $set = sub { $w->child->set(may_apply($e->{format}, $_[0])) }; $width = length may_apply($e->{format}, ${$e->{val}}); } elsif ($e->{type} eq 'range') { my $adj = create_adjustment(${$e->{val}}, $e->{min}, $e->{max}); $adj->signal_connect(value_changed => $changed); $w = new Gtk::HScale($adj); $w->set_digits(0); $w->signal_connect(key_press_event => $may_go_to_next); $set = sub { $adj->set_value($_[0]) }; $get = sub { $adj->get_value }; $size = 2; } elsif ($e->{type} =~ /list/) { my $quit_if_double_click = #- i'm the only one, double click means accepting @$l == 1 || $e->{quit_if_double_click} ? sub { if ($_[1]{type} =~ /^2/) { $mainw->{retval} = 1; Gtk->main_quit } } : ''; my @para = ($e, $may_go_to_next, $changed, $quit_if_double_click); my $use_boxradio = exists $e->{gtk}{use_boxradio} ? $e->{gtk}{use_boxradio} : @{$e->{list}} <= 8; if ($e->{help}) { #- used only when needed, as key bindings are dropped by List (CList does not seems to accepts Tooltips). ($w, $set, $focus_w) = $use_boxradio ? create_boxradio(@para) : create_list(@para); } elsif ($e->{type} eq 'treelist') { ($w, $set, $size) = create_ctree(@para, $e->{tree_expanded}); } else { ($w, $set, $focus_w) = $use_boxradio ? create_boxradio(@para) : create_clist(@para); } if (@{$e->{list}} > (@$l == 1 ? 10 : 4)) { $has_scroll = 1; $expand = 1; $real_w = createScrolledWindow($w); $size = (@$l == 1 ? 10 : 4); } else { $size ||= @{$e->{list}}; } $width = max(map { length } @{$e->{list}}); } else { if ($e->{type} eq "combo") { $w = new Gtk::Combo; $w->set_use_arrows_always(1); $w->entry->set_editable(!$e->{not_edit}); $w->set_popdown_strings(@{$e->{list}}); $w->disable_activate; ($real_w, $w) = ($w, $w->entry); my @l = sort { $b <=> $a } map { length } @{$e->{list}}; $has_horiz_scroll = 1; $width = $l[@l / 16]; # take the third octile (think quartile) } else { $w = new Gtk::Entry; $w->signal_connect(focus_in_event => sub { $w->select_region }); $w->signal_connect(focus_out_event => sub { $w->select_region(0,0) }); } $w->signal_connect(key_press_event => $may_go_to_next); $w->signal_connect(changed => $changed); $w->set_visibility(0) if $e->{hidden}; $set = sub { $w->set_text($_[0]) if $_[0] ne $w->get_text }; $get = sub { $w->get_text }; } $w->signal_connect(focus_out_event => sub { $update->(sub { $common->{callbacks}{focus_out}($ind) }); }); $tooltips->set_tip($w, $e->{help}) if $e->{help} && !ref($e->{help}); $max_width = max($max_width, $width); $total_size += $size || 1; { e => $e, w => $w, real_w => $real_w || $w, focus_w => $focus_w || $w, expand => $expand, get => $get || sub { ${$e->{val}} }, set => $set || sub {}, icon_w => $e->{icon} && eval { gtkpng($e->{icon}) } }; }; @widgets_always = map_index { $create_widget->($_, $::i) } @$l; my $always_total_size = $total_size; @widgets_advanced = map_index { $create_widget->($_, $::i + @$l) } @$l2; my $advanced_total_size = $total_size - $always_total_size; my $pack = create_box_with_title($mainw, @{$common->{messages}});