summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_newt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-17 17:28:14 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-17 17:28:14 +0000
commit224b14cb6b741fb15dcc4fd170306dc0165cba29 (patch)
tree6135c5e28a8638890df3e201b5b349136aedb0ba /perl-install/interactive_newt.pm
parentd057708b3e1217b809c383563d54ae9e316bf189 (diff)
downloaddrakx-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar
drakx-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar.gz
drakx-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar.bz2
drakx-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar.xz
drakx-224b14cb6b741fb15dcc4fd170306dc0165cba29.zip
no_comment
Diffstat (limited to 'perl-install/interactive_newt.pm')
-rw-r--r--perl-install/interactive_newt.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 5094efe13..14280db19 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -24,6 +24,8 @@ sub new() {
bless {}, $_[0];
}
+sub suspend { Newt::Suspend }
+sub resume { Newt::Resume }
sub end() { Newt::Finished }
sub exit() { end; exit($_[0]) }
END { end() }
@@ -143,12 +145,12 @@ sub ask_from_entries_refW {
my @updates_inv = mapn {
my ($w, $ref) = @_;
my $val = ${$ref->{val}};
- sub {
- $ref->{type} eq "bool" ?
+ sub {
+ $ref->{type} eq "bool" ?
$w->CheckboxSetValue(checkval($val)) :
$ref->{type} eq "list" ?
$w->ListboxSetCurrentByKey($val) :
- $w->EntrySet($val, 1);
+ $w->EntrySet($val, 1);
};
} \@widgets, $val;
@@ -156,7 +158,7 @@ sub ask_from_entries_refW {
my $grid = Newt::Grid::CreateGrid(3, int @$l);
map_index {
- $grid->GridSetField(0, $::i, 1, ${Newt::Component::Label(-1, -1, $_)}, 0, 0, 0, 0, 1, 0);
+ $grid->GridSetField(0, $::i, 1, ${Newt::Component::Label(-1, -1, $_)}, 0, 0, 1, 0, 1, 0);
$grid->GridSetField(1, $::i, 1, ${$widgets[$::i]}, 0, 0, 0, 0, 1, 0);
} @$l;