diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-17 17:28:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-17 17:28:14 +0000 |
| commit | 224b14cb6b741fb15dcc4fd170306dc0165cba29 (patch) | |
| tree | 6135c5e28a8638890df3e201b5b349136aedb0ba /perl-install/interactive_newt.pm | |
| parent | d057708b3e1217b809c383563d54ae9e316bf189 (diff) | |
| download | drakx-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.pm | 10 |
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; |