diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog')
9 files changed, 0 insertions, 373 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 deleted file mode 100644 index 3976414..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm +++ /dev/null @@ -1,32 +0,0 @@ -#!/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 deleted file mode 100644 index c0a25b4..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm +++ /dev/null @@ -1,20 +0,0 @@ -#!/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 deleted file mode 100644 index e62f3d4..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm +++ /dev/null @@ -1,69 +0,0 @@ -#!/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 deleted file mode 100644 index 4cab4cf..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm +++ /dev/null @@ -1,20 +0,0 @@ -#!/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 deleted file mode 100644 index e32f863..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm +++ /dev/null @@ -1,32 +0,0 @@ -#!/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 deleted file mode 100644 index 53f6270..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm +++ /dev/null @@ -1,87 +0,0 @@ -#!/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 deleted file mode 100644 index 09a45d4..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm +++ /dev/null @@ -1,57 +0,0 @@ -#!/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 deleted file mode 100644 index 6978724..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm +++ /dev/null @@ -1,36 +0,0 @@ -#!/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 deleted file mode 100644 index 9169b85..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm +++ /dev/null @@ -1,20 +0,0 @@ -#!/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 |