summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-26 15:41:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-26 15:41:51 +0000
commite273a4105a5899089a70ab2b2408dd4f12676825 (patch)
tree229f5c005b8615a3cf8ebd19438f92ce3a62cb9e /perl-install
parent97782fc75d5f38eca557ab1e16c7f266f3c89e50 (diff)
downloaddrakx-e273a4105a5899089a70ab2b2408dd4f12676825.tar
drakx-e273a4105a5899089a70ab2b2408dd4f12676825.tar.gz
drakx-e273a4105a5899089a70ab2b2408dd4f12676825.tar.bz2
drakx-e273a4105a5899089a70ab2b2408dd4f12676825.tar.xz
drakx-e273a4105a5899089a70ab2b2408dd4f12676825.zip
new function add_modify_remove_action()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm59
1 files changed, 35 insertions, 24 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 640b870a2..5825ddd22 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -338,6 +338,29 @@ sub create_list {
};
}
+#- $actions is a ref list of $action
+#- $action is a { kind => $kind, action => sub { ... }, button => Gtk2::Button->new(...) }
+#- where $kind is one of '', 'modify', 'remove', 'add'
+sub add_modify_remove_action {
+ my ($button, $buttons, $e, $treelist) = @_;
+
+ if (member($button->{kind}, 'modify', 'remove')) {
+ @{$e->{list}} or return;
+ }
+ my $r = $button->{action}->(${$e->{val}});
+ defined $r or return;
+
+ if ($button->{kind} eq 'add') {
+ ${$e->{val}} = $r;
+ } elsif ($button->{kind} eq 'remove') {
+ ${$e->{val}} = $e->{list}[0];
+ }
+ ugtk2::gtk_set_treelist($treelist, [ map { may_apply($e->{format}, $_) } @{$e->{list}} ]);
+ $_->{button}->set_sensitive(@{$e->{list}} != ()) foreach
+ grep { member($_->{kind}, 'modify', 'remove') } @$buttons;
+ 1;
+}
+
sub ask_fromW {
my ($o, $common, $l, $l2) = @_;
my $ignore = 0; #-to handle recursivity
@@ -442,39 +465,27 @@ sub ask_fromW {
$e->{formatted_list} = [ map { may_apply($e->{format}, $_) } @{$e->{list}} ];
if (my $actions = $e->{add_modify_remove}) {
- my %buttons;
+ my @buttons = map {
+ { kind => lc $_, action => $actions->{$_}, button => Gtk2::Button->new(translate($_)) };
+ } N_("Add"), N_("Modify"), N_("Remove");
+ my $modify = find { $_->{kind} eq 'modify' } @buttons;
+
my $do_action = sub {
- @{$e->{list}} || $_[0] eq 'Add' or return;
- my $r = $actions->{$_[0]}->(${$e->{val}});
- defined $r or return;
-
- if ($_[0] eq 'Add') {
- ${$e->{val}} = $r;
- } elsif ($_[0] eq 'Remove') {
- ${$e->{val}} = $e->{list}[0];
- }
- $e->{formatted_list} = [ map { may_apply($e->{format}, $_) } @{$e->{list}} ];
- my $list = $w->get_model;
- $list->clear;
- $list->append_set([ 0 => $_ ]) foreach @{$e->{formatted_list}};
- $changed->();
- $buttons{$_}->set_sensitive(@{$e->{list}} != ()) foreach 'Modify', 'Remove';
+ my ($button) = @_;
+ add_modify_remove_action($button, \@buttons, $e, $w) and $changed->();
};
- my @actions = (N_("Add"), N_("Modify"), N_("Remove"));
($w, $set, $focus_w) = create_treeview_list($e, $may_go_to_next, $changed,
- sub { $do_action->('Modify') if $_[1]->type =~ /^2/ });
+ sub { $do_action->($modify) if $_[1]->type =~ /^2/ });
$e->{saved_default_val} = ${$e->{val}};
- %buttons = map {
- my $action = $_;
- $action => gtksignal_connect(Gtk2::Button->new(translate($action)),
- clicked => sub { $do_action->($action) });
- } @actions;
+ foreach my $button (@buttons) {
+ $button->{button}->signal_connect(clicked => sub { $do_action->($button) });
+ }
$w->set_size_request(400, -1);
$real_w = gtkpack_(Gtk2::HBox->new(0,0),
1, create_scrolled_window($w),
- 0, gtkpack__(Gtk2::VBox->new(0,0), map { $buttons{$_} } @actions));
+ 0, gtkpack__(Gtk2::VBox->new(0,0), map { $_->{button} } @buttons));
$real_w->set_data(must_grow => 1)
} else {