summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-05 13:59:16 +0000
committerpad <pad@mandriva.com>1999-09-05 13:59:16 +0000
commitb2dcc1f05939631e7583740a36f3c41c87235639 (patch)
treebee0630d0f11935a8e812b8fed0798e1148d449f /perl-install/interactive_gtk.pm
parenta7c17125164aa7fd336fdab93e49032239f2b626 (diff)
downloaddrakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.gz
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.bz2
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.xz
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.zip
clean graphical to use ask_from_entries
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm34
1 files changed, 18 insertions, 16 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 4e525e5c7..457406acc 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -82,15 +82,11 @@ sub ask_from_entries_refW {
my $w = my_gtk->new($title, %$o);
my @entries = map {
if ($_->{type} eq "list") {
- if (@{$_->{list}}) {
- my $depth_combo = new Gtk::Combo;
- $depth_combo->set_use_arrows_always(1);
- $depth_combo->entry->set_editable($_->{is_edit});
- $depth_combo->set_popdown_strings(@{$_->{list}});
- $depth_combo;
- } else {
- new Gtk::Entry;
- }
+ my $depth_combo = new Gtk::Combo;
+ $depth_combo->set_use_arrows_always(1);
+ $depth_combo->entry->set_editable(!$_->{not_edit});
+ $depth_combo->set_popdown_strings(@{$_->{list}});
+ $depth_combo;
} else {
new Gtk::Entry;
}
@@ -130,10 +126,10 @@ sub ask_from_entries_refW {
comb_entry($entry,$val->[$i])->signal_connect(changed => $callback);
comb_entry($entry,$val->[$i])->signal_connect(activate => sub {
($ind == ($num_champs -1)) ?
- $w->{ok}->grab_focus() : $entries[$ind+1]->grab_focus();
+ $w->{ok}->grab_focus() : comb_entry($entries[$ind+1],$val->[$ind+1])->grab_focus();
});
comb_entry($entry,$val->[$i])->set_text(${$val->[$i]{val}}) if ${$val->[$i]{val}};
- comb_entry($entry,$val->[$i])->set_visibility(0) if $_[0] =~ /password/i;
+ comb_entry($entry,$val->[$i])->set_visibility(0) if $l->[$i] =~ /password/i;
# &{$updates[$i]};
}
@@ -146,21 +142,27 @@ sub ask_from_entries_refW {
$ok
));
+ comb_entry($entries[0],$val->[0])->grab_focus();
if ($hcallback{complete}) {
my $callback = sub {
- my ($error, $focus) = &{$hcallback{changed}};
+ my ($error, $focus) = &{$hcallback{complete}};
#update all the value
$ignore = 1;
foreach (@updates_inv) { &{$_};}
$ignore = 0;
if ($error) {
- $entries[$focus]->grab_focus();
+ comb_entry($entries[$focus], $val->[$focus])->grab_focus();
+ } else {
+ return 1;
}
};
- $w->{ok}->signal_connect(activate => $callback)
+ #$w->{ok}->signal_connect(clicked => $callback)
+ $w->main($callback);
+ } else {
+ $w->main();
}
- $entries[0]->grab_focus();
- $w->main();
+
+
}