diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog')
9 files changed, 373 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm new file mode 100644 index 0000000..3976414 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Boolean; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my @params=('--yesno'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, $this->frontend->makeprompt($this->question, 1); + if (defined $this->question->value && $this->question->value eq 'false') { + unshift @params, '--defaultno'; + } + + my ($ret, $value)=$this->frontend->showdialog($this->question, @params); + if (defined $ret) { + $this->value($ret eq 0 ? 'true' : 'false'); + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm new file mode 100644 index 0000000..c0a25b4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Error; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->showtext($this->question, + $this->question->description."\n\n". + $this->question->extended_description + ); + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm new file mode 100644 index 0000000..e62f3d4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm @@ -0,0 +1,69 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Multiselect; +use strict; +use base qw(Debconf::Element::Multiselect); +use Debconf::Encoding qw(width); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question, -2); + + my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer; + my @params=(); + my @choices=$this->question->choices_split; + my %value = map { $_ => 1 } $this->translate_default; + + my $menu_height=$#choices + 1; + if ($lines + $#choices + 2 >= $screen_lines) { + $menu_height = $screen_lines - $lines - 4; + if ($menu_height < 3 && $#choices + 1 > 2) { + $this->frontend->showtext($this->question, $this->question->extended_description); + ($text, $lines, $columns)=$this->frontend->sizetext($this->question->description); + $menu_height=$#choices + 1; + if ($lines + $#choices + 2 >= $screen_lines) { + $menu_height = $screen_lines - $lines - 4; + } + } + } + + $lines=$lines + $menu_height + $this->frontend->spacer; + my $selectspacer = $this->frontend->selectspacer; + my $c=1; + foreach (@choices) { + push @params, ($_, ""); + push @params, ($value{$_} ? 'on' : 'off'); + + if ($columns < width($_) + $selectspacer) { + $columns = width($_) + $selectspacer; + } + } + + if ($this->frontend->dashsep) { + unshift @params, $this->frontend->dashsep; + } + + @params=('--separate-output', '--checklist', + $text, $lines, $columns, $menu_height, @params); + + my $value=$this->frontend->showdialog($this->question, @params); + + if (defined $value) { + $this->value(join(", ", $this->order_values( + map { $this->translate_to_C($_) } + split(/\n/, $value)))); + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm new file mode 100644 index 0000000..4cab4cf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Note; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->showtext($this->question, + $this->question->description."\n\n". + $this->question->extended_description + ); + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm new file mode 100644 index 0000000..e32f863 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Password; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question); + + my @params=('--passwordbox'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, ($text, $lines + $this->frontend->spacer, $columns); + my $ret=$this->frontend->showdialog($this->question, @params); + + if (! defined $ret || $ret eq '') { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } + else { + $this->value($ret); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm new file mode 100644 index 0000000..53f6270 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm @@ -0,0 +1,87 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Progress; +use strict; +use base qw(Debconf::Element); + + +sub _communicate { + my $this=shift; + my $data=shift; + my $dialoginput = $this->frontend->dialog_input_wtr; + + print $dialoginput $data; +} + +sub _percent { + my $this=shift; + + use integer; + return (($this->progress_cur() - $this->progress_min()) * 100 / ($this->progress_max() - $this->progress_min())); +} + +sub start { + my $this=shift; + + $this->frontend->title($this->question->description); + + my ($text, $lines, $columns); + if (defined $this->_info) { + ($text, $lines, $columns)=$this->frontend->sizetext($this->_info->description); + } else { + ($text, $lines, $columns)=$this->frontend->sizetext(' '); + } + if ($this->frontend->screenwidth - $this->frontend->columnspacer > $columns) { + $columns = $this->frontend->screenwidth - $this->frontend->columnspacer; + } + + my @params=('--gauge'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, ($text, $lines + $this->frontend->spacer, $columns, $this->_percent); + + $this->frontend->startdialog($this->question, 1, @params); + + $this->_lines($lines); + $this->_columns($columns); +} + +sub set { + my $this=shift; + my $value=shift; + + $this->progress_cur($value); + $this->_communicate($this->_percent . "\n"); + + return 1; +} + +sub info { + my $this=shift; + my $question=shift; + + $this->_info($question); + + my ($text, $lines, $columns)=$this->frontend->sizetext($question->description); + if ($lines > $this->_lines or $columns > $this->_columns) { + $this->stop; + $this->start; + } + + + $this->_communicate( + sprintf("XXX\n%d\n%s\nXXX\n%d\n", + $this->_percent, $text, $this->_percent)); + + return 1; +} + +sub stop { + my $this=shift; + + $this->frontend->waitdialog; + $this->frontend->title($this->frontend->requested_title); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm new file mode 100644 index 0000000..09a45d4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm @@ -0,0 +1,57 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Select; +use strict; +use base qw(Debconf::Element::Select); +use Debconf::Encoding qw(width); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question, -2); + + my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer; + my $default=$this->translate_default; + my @params=(); + my @choices=$this->question->choices_split; + + my $menu_height=$#choices + 1; + if ($lines + $#choices + 2 >= $screen_lines) { + $menu_height = $screen_lines - $lines - 4; + } + + $lines=$lines + $menu_height + $this->frontend->spacer; + my $c=1; + my $selectspacer = $this->frontend->selectspacer; + foreach (@choices) { + push @params, $_, ''; + + if ($columns < width($_) + $selectspacer) { + $columns = width($_) + $selectspacer; + } + } + + if ($this->frontend->dashsep) { + unshift @params, $this->frontend->dashsep; + } + + @params=('--default-item', $default, '--menu', + $text, $lines, $columns, $menu_height, @params); + + my $value=$this->frontend->showdialog($this->question, @params); + if (defined $value) { + $this->value($this->translate_to_C($value)) if defined $value; + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm new file mode 100644 index 0000000..6978724 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm @@ -0,0 +1,36 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + my @params=('--inputbox'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, ($text, $lines + $this->frontend->spacer, + $columns, $default); + + my $value=$this->frontend->showdialog($this->question, @params); + if (defined $value) { + $this->value($value); + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm new file mode 100644 index 0000000..9169b85 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->showtext($this->question, + $this->question->description."\n\n". + $this->question->extended_description + ); + $this->value(''); +} + +1 |