diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element')
68 files changed, 2720 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 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm new file mode 100644 index 0000000..d16124c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm @@ -0,0 +1,50 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Boolean; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element); + + + +sub show { + my $this=shift; + + $this->frontend->comment($this->question->extended_description."\n\n". + "(".gettext("Choices").": ".join(", ", gettext("yes"), gettext("no")).")\n". + $this->question->description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + if ($default eq 'true') { + $default=gettext("yes"); + } + elsif ($default eq 'false') { + $default=gettext("no"); + } + + $this->frontend->item($this->question->name, $default); +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + + if ($value eq 'yes' || $value eq gettext("yes")) { + return $this->SUPER::value('true'); + } + elsif ($value eq 'no' || $value eq gettext("no")) { + return $this->SUPER::value('false'); + } + else { + return $this->SUPER::value($this->question->value); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm new file mode 100644 index 0000000..5733c98 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Error; +use strict; +use base qw(Debconf::Element::Editor::Text); + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm new file mode 100644 index 0000000..7cadbe8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm @@ -0,0 +1,39 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Multiselect; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element::Multiselect); + + +sub show { + my $this=shift; + + my @choices=$this->question->choices_split; + + $this->frontend->comment($this->question->extended_description."\n\n". + "(".gettext("Choices").": ".join(", ", @choices).")\n". + gettext("(Enter zero or more items separated by a comma followed by a space (', ').)")."\n". + $this->question->description."\n"); + + $this->frontend->item($this->question->name, join ", ", $this->translate_default); +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my @values=split(',\s+', shift); + + my %valid=map { $_ => 1 } $this->question->choices_split; + + $this->SUPER::value(join(', ', $this->order_values( + map { $this->translate_to_C($_) } + grep { $valid{$_} } @values))); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm new file mode 100644 index 0000000..fd5006a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Note; +use strict; +use base qw(Debconf::Element::Editor::Text); + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm new file mode 100644 index 0000000..f1dce00 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Password; +use strict; +use base qw(Debconf::Element::Editor::String); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm new file mode 100644 index 0000000..c538abb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm @@ -0,0 +1,25 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Progress; +use strict; +use base qw(Debconf::Element); + + + +sub start { +} + +sub set { + return 1; +} + +sub info { + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm new file mode 100644 index 0000000..f73d126 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm @@ -0,0 +1,41 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Select; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element::Select); + + +sub show { + my $this=shift; + + my $default=$this->translate_default; + my @choices=$this->question->choices_split; + + $this->frontend->comment($this->question->extended_description."\n\n". + "(".gettext("Choices").": ".join(", ", @choices).")\n". + $this->question->description."\n"); + $this->frontend->item($this->question->name, $default); +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + + my %valid=map { $_ => 1 } $this->question->choices_split; + + if ($valid{$value}) { + return $this->SUPER::value($this->translate_to_C($value)); + } + else { + return $this->SUPER::value($this->question->value); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm new file mode 100644 index 0000000..4b9676d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm @@ -0,0 +1,22 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->comment($this->question->extended_description."\n\n". + $this->question->description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + $this->frontend->item($this->question->name, $default); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm new file mode 100644 index 0000000..172031c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->comment($this->question->extended_description."\n\n". + $this->question->description."\n\n"); + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm new file mode 100644 index 0000000..655c8bd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm @@ -0,0 +1,145 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome; +use strict; +use utf8; +use Gtk2; +use Debconf::Gettext; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element); + + +sub init { + my $this=shift; + + $this->hbox(Gtk2::VBox->new(0, 10)); + + $this->hline1(Gtk2::HBox->new(0, 10)); + $this->hline1->show; + $this->line1(Gtk2::VBox->new(0, 10)); + $this->line1->show; + $this->line1->pack_end ($this->hline1, 1, 1, 0); + + $this->hline2(Gtk2::HBox->new(0, 10)); + $this->hline2->show; + $this->line2(Gtk2::VBox->new(0, 10)); + $this->line2->show; + $this->line2->pack_end ($this->hline2, 1, 1, 0); + + $this->vbox(Gtk2::VBox->new(0, 5)); + $this->vbox->pack_start($this->line1, 0, 0, 0); + $this->vbox->pack_start($this->line2, 1, 1, 0); + $this->vbox->show; + + $this->hbox->pack_start($this->vbox, 1, 1, 0); + $this->hbox->show; + + $this->fill(0); + $this->expand(0); + $this->multiline(0); +} + + +sub addwidget { + my $this=shift; + my $widget=shift; + + if ($this->multiline == 0) { + $this->hline1->pack_start($widget, 1, 1, 0); + } + else { + $this->hline2->pack_start($widget, 1, 1, 0); + } +} + + +sub adddescription { + my $this=shift; + my $description=to_Unicode($this->question->description); + + my $label=Gtk2::Label->new($description); + $label->show; + $this->line1->pack_start($label, 0, 0, 0); +} + + +sub addbutton { + my $this=shift; + my $text = shift; + my $callback = shift; + + my $button = Gtk2::Button->new_with_mnemonic(to_Unicode($text)); + $button->show; + $button->signal_connect("clicked", $callback); + + my $vbox = Gtk2::VBox->new(0, 0); + $vbox->show; + $vbox->pack_start($button, 1, 0, 0); + $this->hline1->pack_end($vbox, 0, 0, 0); +} + + +sub create_message_dialog { + my $this = shift; + my $type = shift; + my $title = shift; + my $text = shift; + + my $dialog = + Gtk2::Dialog->new_with_buttons(to_Unicode($title), undef, + "modal", "gtk-close", "close"); + $dialog->set_border_width(3); + + my $hbox = Gtk2::HBox->new(0); + $dialog->vbox->pack_start($hbox, 1, 1, 5); + $hbox->show; + + my $alignment = Gtk2::Alignment->new(0.5, 0.0, 1.0, 0.0); + $hbox->pack_start($alignment, 1, 1, 3); + $alignment->show; + + my $image = Gtk2::Image->new_from_stock($type, "dialog"); + $alignment->add($image); + $image->show; + + my $label = Gtk2::Label->new(to_Unicode($text)); + $label->set_line_wrap(1); + $hbox->pack_start($label, 1, 1, 2); + $label->show; + + $dialog->run; + $dialog->destroy; +} + + +sub addhelp { + my $this=shift; + + my $help=$this->question->extended_description; + return unless length $help; + + $this->addbutton(gettext("_Help"), sub { + $this->create_message_dialog("gtk-dialog-info", + gettext("Help"), + to_Unicode($help)); + }); + + if (defined $this->tip ){ + $this->tooltips( Gtk2::Tooltips->new() ); + $this->tooltips->set_tip($this->tip, to_Unicode($help), + undef ); + $this->tooltips->enable; + } +} + + +sub value { + my $this=shift; + + return ''; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm new file mode 100644 index 0000000..1ee52af --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm @@ -0,0 +1,40 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Boolean; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + my $description=to_Unicode($this->question->description); + + $this->SUPER::init(@_); + + $this->widget(Gtk2::CheckButton->new($description)); + $this->widget->show; + $this->widget->set_active(($this->question->value eq 'true') ? 1 : 0); + $this->addwidget($this->widget); + $this->tip( $this->widget ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + if ($this->widget->get_active) { + return "true"; + } + else { + return "false"; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm new file mode 100644 index 0000000..6394a75 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm @@ -0,0 +1,51 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Error; +use strict; +use Debconf::Gettext; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + my $extended_description = to_Unicode($this->question->extended_description); + + $this->SUPER::init(@_); + $this->multiline(1); + $this->fill(1); + $this->expand(1); + $this->widget(Gtk2::HBox->new(0, 0)); + + my $image = Gtk2::Image->new_from_stock("gtk-dialog-error", "dialog"); + $image->show; + + my $text = Gtk2::TextView->new(); + my $textbuffer = $text->get_buffer; + $text->show; + $text->set_wrap_mode ("word"); + $text->set_editable (0); + + my $scrolled_window = Gtk2::ScrolledWindow->new(); + $scrolled_window->show; + $scrolled_window->set_policy('automatic', 'automatic'); + $scrolled_window->set_shadow_type('in'); + $scrolled_window->add ($text); + + $this->widget->show; + $this->widget->pack_start($image, 0, 0, 6); + $this->widget->pack_start($scrolled_window, 1, 1, 0); + + $textbuffer->set_text($extended_description); + + $this->widget->show; + $this->adddescription; + $this->addwidget($this->widget); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm new file mode 100644 index 0000000..34a1f4d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm @@ -0,0 +1,94 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Multiselect; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome Debconf::Element::Multiselect); + +use constant SELECTED_COLUMN => 0; +use constant CHOICES_COLUMN => 1; + +sub init { + my $this=shift; + my @choices = map { to_Unicode($_) } $this->question->choices_split; + my %default=map { to_Unicode($_) => 1 } $this->translate_default; + + $this->SUPER::init(@_); + $this->multiline(1); + + $this->adddescription; + + $this->widget(Gtk2::ScrolledWindow->new); + $this->widget->show; + $this->widget->set_policy('automatic', 'automatic'); + + my $list_store = Gtk2::ListStore->new('Glib::Boolean', 'Glib::String'); + $this->list_view(Gtk2::TreeView->new($list_store)); + $this->list_view->set_headers_visible(0); + + my $renderer_toggle = Gtk2::CellRendererToggle->new; + $renderer_toggle->signal_connect(toggled => sub { + my $path_string = $_[1]; + my $model = $_[2]; + my $iter = $model->get_iter_from_string($path_string); + $model->set($iter, SELECTED_COLUMN, + not $model->get($iter, SELECTED_COLUMN)); + }, $list_store); + + $this->list_view->append_column( + Gtk2::TreeViewColumn->new_with_attributes('Selected', + $renderer_toggle, 'active', SELECTED_COLUMN)); + $this->list_view->append_column( + Gtk2::TreeViewColumn->new_with_attributes('Choices', + Gtk2::CellRendererText->new, 'text', CHOICES_COLUMN)); + $this->list_view->show; + + $this->widget->add($this->list_view); + + for (my $i=0; $i <= $#choices; $i++) { + my $iter = $list_store->append(); + $list_store->set($iter, CHOICES_COLUMN, $choices[$i]); + if ($default{$choices[$i]}) { + $list_store->set($iter, SELECTED_COLUMN, 1); + } + } + $this->addwidget($this->widget); + $this->tip($this->list_view); + $this->addhelp; + + $this->fill(1); + $this->expand(1); + +} + + +sub value { + my $this=shift; + my $list_view = $this->list_view; + my $list_store = $list_view->get_model (); + my ($ret, $val); + + my @vals; + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + + my $iter = $list_store->get_iter_first(); + for (my $i=0; $i <= $#choices; $i++) { + if ($list_store->get($iter, SELECTED_COLUMN)) { + push @vals, $choices[$i]; + } + $iter = $list_store->iter_next($iter); + } + + return join(', ', $this->order_values(@vals)); +} + +*visible = \&Debconf::Element::Multiselect::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm new file mode 100644 index 0000000..68ac016 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm @@ -0,0 +1,48 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Note; +use strict; +use Debconf::Gettext; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use Debconf::Element::Noninteractive::Note; +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + my $extended_description = to_Unicode($this->question->extended_description); + + $this->SUPER::init(@_); + $this->multiline(1); + $this->fill(1); + $this->expand(1); + $this->widget(Gtk2::HBox->new(0, 0)); + + my $text = Gtk2::TextView->new(); + my $textbuffer = $text->get_buffer; + $text->show; + $text->set_wrap_mode ("word"); + $text->set_editable (0); + + my $scrolled_window = Gtk2::ScrolledWindow->new(); + $scrolled_window->show; + $scrolled_window->set_policy('automatic', 'automatic'); + $scrolled_window->set_shadow_type('in'); + $scrolled_window->add ($text); + + $this->widget->show; + $this->widget->pack_start($scrolled_window, 1, 1, 0); + + $textbuffer->set_text($extended_description); + + $this->widget->show; + $this->adddescription; + $this->addwidget($this->widget); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm new file mode 100644 index 0000000..5ea5c80 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm @@ -0,0 +1,37 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Password; +use strict; +use Gtk2; +use utf8; +use base qw(Debconf::Element::Gnome); + + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + $this->adddescription; + + $this->widget(Gtk2::Entry->new); + $this->widget->show; + $this->widget->set_visibility(0); + $this->addwidget($this->widget); + $this->tip( $this->widget ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + my $text = $this->widget->get_chars(0, -1); + $text = $this->question->value if $text eq ''; + return $text; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm new file mode 100644 index 0000000..e1663fa --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Progress; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub _fraction { + my $this=shift; + + return (($this->progress_cur() - $this->progress_min()) / ($this->progress_max() - $this->progress_min())); +} + +sub start { + my $this=shift; + my $description=to_Unicode($this->question->description); + my $frontend=$this->frontend; + + $this->SUPER::init(@_); + $this->multiline(1); + $this->expand(1); + + $frontend->title($description); + + $this->widget(Gtk2::ProgressBar->new()); + $this->widget->show; + $this->widget->set_text(' '); + $this->addwidget($this->widget); + $this->addhelp; +} + +sub set { + my $this=shift; + my $value=shift; + + $this->progress_cur($value); + $this->widget->set_fraction($this->_fraction); + + return 1; +} + +sub info { + my $this=shift; + my $question=shift; + + $this->widget->set_text(to_Unicode($question->description)); + + return 1; +} + +sub stop { + my $this=shift; + my $frontend=$this->frontend; + + $frontend->title($frontend->requested_title); +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm new file mode 100644 index 0000000..8e63f86 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm @@ -0,0 +1,52 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Select; +use strict; +use Gtk2; +use Gnome2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome Debconf::Element::Select); + + +sub init { + my $this=shift; + + my $default=$this->translate_default; + my @choices= map { to_Unicode($_) } $this->question->choices_split; + + $this->SUPER::init(@_); + + $this->widget(Gtk2::Combo->new); + $this->widget->show; + + $this->widget->set_popdown_strings(@choices); + $this->widget->set_value_in_list(1, 0); + $this->widget->entry->set_editable(0); + + if (defined($default) and length($default) != 0) { + $this->widget->entry->set_text(to_Unicode($default)); + } + else { + $this->widget->entry->set_text($choices[0]); + } + + $this->adddescription; + $this->addwidget($this->widget); + $this->tip( $this->widget->entry ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + return $this->translate_to_C_uni($this->widget->entry->get_chars(0, -1)); +} + +*visible = \&Debconf::Element::Select::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm new file mode 100644 index 0000000..0bb922d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm @@ -0,0 +1,40 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::String; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + + $this->widget(Gtk2::Entry->new); + $this->widget->show; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + $this->widget->set_text(to_Unicode($default)); + + $this->adddescription; + $this->addwidget($this->widget); + $this->tip( $this->widget ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + return $this->widget->get_chars(0, -1); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm new file mode 100644 index 0000000..9d6518f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Text; +use strict; +use Debconf::Gettext; +use Gtk2; +use utf8; +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + $this->adddescription; # yeah, that's all +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm new file mode 100644 index 0000000..0b74574 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm @@ -0,0 +1,141 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::ElementWidget; +use QtCore4; +use QtCore4::isa @ISA = qw(Qt::Widget); +use QtGui4; + + +sub NEW { + shift->SUPER::NEW ($_[0]); + this->{mytop} = undef; +} + + +sub settop { + this->{mytop} = shift; +} + + +sub init { + this->{toplayout} = Qt::VBoxLayout(this); + this->{mytop} = Qt::Widget(this); + this->{toplayout}->addWidget (this->{mytop}); + this->{layout} = Qt::VBoxLayout(); + this->{mytop}->setLayout(this->{layout}); +} + + +sub destroy { + this->{toplayout} -> removeWidget (this->{mytop}); + undef this->{mytop}; +} + + +sub top { + return this->{mytop}; +} + + +sub addwidget { + this->{layout}->addWidget(@_); +} + + +sub addlayout { + this->{layout}->addLayout (@_); +} + + + + + + +package Debconf::Element::Kde; +use strict; +use QtCore4; +use QtGui4; +use Debconf::Gettext; +use base qw(Debconf::Element); +use Debconf::Element::Kde::ElementWidget; +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + $this->parent(shift); + $this->top(Debconf::Element::Kde::ElementWidget($this->parent, undef, + undef, undef)); + $this->top->init; + $this->top->show; +} + + +sub destroy { + my $this=shift; + $this->top(undef); +} + + +sub addwidget { + my $this=shift; + my $widget=shift; + $this->cur->addwidget($widget); +} + + +sub description { + my $this=shift; + my $label=Qt::Label($this->cur->top); + $label->setText("<b>".to_Unicode($this->question->description."</b>")); + $label->show; + return $label; +} + + +sub startsect { + my $this = shift; + my $ew = Debconf::Element::Kde::ElementWidget($this->top); + $ew->init; + $this->cur($ew); + $this->top->addwidget($ew); + $ew->show; +} + + +sub endsect { + my $this = shift; + $this->cur($this->top); +} + + +sub adddescription { + my $this=shift; + my $label=$this->description; + $this->addwidget($label); +} + + +sub addhelp { + my $this=shift; + + my $help=to_Unicode($this->question->extended_description); + return unless length $help; + my $label=Qt::Label($this->cur->top); + $label->setText($help); + $label->setWordWrap(1); + $this->addwidget($label); # line1 + $label->setMargin(5); + $label->show; +} + + +sub value { + my $this=shift; + return ''; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm new file mode 100644 index 0000000..1d5d9be --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm @@ -0,0 +1,41 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Boolean; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + $this->SUPER::create(@_); + + $this->startsect; + $this->widget(Qt::CheckBox( to_Unicode($this->question->description))); + $this->widget->setChecked(($this->question->value eq 'true') ? 1 : 0); + $this->widget->setText(to_Unicode($this->question->description)); + $this->adddescription; + $this->addhelp; + $this->addwidget($this->widget); + $this->endsect; +} + + +sub value { + my $this = shift; + + if ($this -> widget -> isChecked) { + return "true"; + } + else { + return "false"; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm new file mode 100644 index 0000000..8e7ae99 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm @@ -0,0 +1,23 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Error; +use strict; +use Debconf::Gettext; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; + $this->addhelp; + $this->endsect; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm new file mode 100644 index 0000000..dcbdb79 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm @@ -0,0 +1,58 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Multiselect; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde Debconf::Element::Multiselect); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + my @choices = $this->question->choices_split; + my %default = map { $_ => 1 } $this->translate_default; + + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; + $this->addhelp; + + my @buttons; + for (my $i=0; $i <= $#choices; $i++) { + $buttons[$i] = Qt::CheckBox($this->cur->top); + $buttons[$i]->setText(to_Unicode($choices[$i])); + $buttons[$i]->show; + $buttons[$i]->setChecked($default{$choices[$i]} ? 1 : 0); + $this->addwidget($buttons[$i]); + } + + $this->buttons(\@buttons); + $this->endsect; +} + + +sub value { + my $this = shift; + my @buttons = @{$this->buttons}; + my ($ret, $val); + my @vals; + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + + for (my $i = 0; $i <= $#choices; $i++) { + if ($buttons [$i] -> isChecked()) { + push @vals, $choices[$i]; + } + } + return join(', ', $this->order_values(@vals)); +} + +*visible = \&Debconf::Element::Multiselect::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm new file mode 100644 index 0000000..405ac16 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm @@ -0,0 +1,23 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Note; +use strict; +use Debconf::Gettext; +use Qt; +use Debconf::Element::Noninteractive::Note; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; + $this->addhelp; + $this->endsect; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm new file mode 100644 index 0000000..95cf6c1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm @@ -0,0 +1,36 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Password; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + + $this->SUPER::create(@_); + $this->startsect; + $this->widget(Qt::LineEdit($this->cur->top)); + $this->widget->show; + $this->widget->setEchoMode(2); + $this->addwidget($this->description); + $this->addhelp; + $this->addwidget($this->widget); + $this->endsect; +} + + +sub value { + my $this=shift; + + my $text = $this->widget->text(); + $text = $this->question->value if $text eq ''; + return $text; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm new file mode 100644 index 0000000..ff013a7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm @@ -0,0 +1,60 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Progress; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); +use Debconf::Encoding qw(to_Unicode); + + +sub start { + my $this=shift; + my $description=to_Unicode($this->question->description); + my $frontend=$this->frontend; + + $this->SUPER::create($frontend->frame); + + $this->startsect; + $this->addhelp; + $this->adddescription; + my $vbox = Qt::VBoxLayout($this->widget); + + $this->progress_bar(Qt::ProgressBar($this->cur->top)); + $this->progress_bar->setMinimum($this->progress_min()); + $this->progress_bar->setMaximum($this->progress_max()); + $this->progress_bar->show; + $this->addwidget($this->progress_bar); + + $this->progress_label(Qt::Label($this->cur->top)); + $this->progress_label->show; + $this->addwidget($this->progress_label); + + $this->endsect; +} + +sub set { + my $this=shift; + my $value=shift; + + + $this->progress_cur($value); + $this->progress_bar->setValue($this->progress_cur); + return 1; +} + +sub info { + my $this=shift; + my $question=shift; + + $this->progress_label->setText(to_Unicode($question->description)); + + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm new file mode 100644 index 0000000..2cb341b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm @@ -0,0 +1,49 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Select; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde Debconf::Element::Select); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + my $default=$this->translate_default; + my @choices=map { to_Unicode($_) } $this->question->choices_split; + + $this->SUPER::create(@_); + $this->startsect; + $this->widget(Qt::ComboBox($this->cur->top)); + $this->widget->show; + $this->widget->addItems(\@choices); + if (defined($default) and length($default) != 0) { + for (my $i = 0 ; $i < @choices ; $i++) { + if ($choices[$i] eq $default ) { + $this->widget->setCurrentIndex($i);# //FIXME find right index to_Unicode($default)); + last; + } + } + } + $this->addwidget($this->description); + $this->addhelp; + $this->addwidget($this->widget); + $this->endsect; +} + + +sub value { + my $this=shift; + + my @choices=$this->question->choices_split; + return $this->translate_to_C_uni($this->widget->currentText()); +} + +*visible = \&Debconf::Element::Select::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm new file mode 100644 index 0000000..65e16f7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm @@ -0,0 +1,35 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::String; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + $this->SUPER::create(@_); + $this->startsect; + $this->widget(Qt::LineEdit($this->cur->top)); + my $default=''; + $default=$this->question->value if defined $this->question->value; + $this->widget->setText(to_Unicode($default)); + $this->adddescription; + $this->addhelp; + $this->addwidget ($this->widget); + $this->endsect; +} + + +sub value { + my $this=shift; + return $this->widget->text(); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm new file mode 100644 index 0000000..394319f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Text; +use strict; +use Debconf::Gettext; +use Qt; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; # yeah, that's all + $this->endsect; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm new file mode 100644 index 0000000..1d1b26e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm @@ -0,0 +1,47 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Multiselect; +use strict; +use base qw(Debconf::Element::Select); + + +sub order_values { + my $this=shift; + my %vals=map { $_ => 1 } @_; + $this->question->template->i18n(''); + my @ret=grep { $vals{$_} } $this->question->choices_split; + $this->question->template->i18n(1); + return @ret; +} + + +sub visible { + my $this=shift; + + my @choices=$this->question->choices_split; + return ($#choices >= 0); +} + + +sub translate_default { + my $this=shift; + + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + my @ret; + foreach my $c_default ($this->question->value_split) { + foreach (my $x=0; $x <= $#choices; $x++) { + push @ret, $choices[$x] + if $choices_c[$x] eq $c_default; + } + } + return @ret; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm new file mode 100644 index 0000000..b2e5cee --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive; +use strict; +use base qw(Debconf::Element); + + +sub visible { + my $this=shift; + + return; +} + + +sub show { + my $this=shift; + + 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/Noninteractive/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm new file mode 100644 index 0000000..b57d144 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Boolean; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm new file mode 100644 index 0000000..59701db --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Error; +use strict; +use Text::Wrap; +use Debconf::Gettext; +use Debconf::Config; +use Debconf::Log ':all'; +use base qw(Debconf::Element::Noninteractive); + + + +sub show { + my $this=shift; + + if ($this->question->flag('seen') ne 'true') { + $this->sendmail(gettext("Debconf was not configured to display this error message, so it mailed it to you.")); + } + $this->value(''); +} + + +sub sendmail { + my $this=shift; + my $footer=shift; + return unless length Debconf::Config->admin_email; + if (-x '/usr/bin/mail') { + debug user => "mailing a note"; + my $title=gettext("Debconf").": ". + $this->frontend->title." -- ". + $this->question->description; + unless (open(MAIL, "|-")) { # child + exec("mail", "-s", $title, Debconf::Config->admin_email) or return ''; + } + my $old_columns=$Text::Wrap::columns; + $Text::Wrap::columns=75; + if ($this->question->extended_description ne '') { + print MAIL wrap('', '', $this->question->extended_description); + } + else { + print MAIL wrap('', '', $this->question->description); + } + print MAIL "\n\n"; + my $hostname=`hostname -f 2>/dev/null`; + if (! defined $hostname) { + $hostname="unknown system"; + } + print MAIL "-- \n", sprintf(gettext("Debconf, running at %s"), $hostname, "\n"); + print MAIL "[ ", wrap('', '', $footer), " ]\n" if $footer; + close MAIL or return ''; + + $Text::Wrap::columns=$old_columns; + + $this->question->flag('seen', 'true'); + + return 1; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm new file mode 100644 index 0000000..a30c804 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Multiselect; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm new file mode 100644 index 0000000..6567819 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Note; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm new file mode 100644 index 0000000..da6dcce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Password; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm new file mode 100644 index 0000000..3c14c47 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Progress; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub start { +} + +sub set { + return 1; +} + +sub info { + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm new file mode 100644 index 0000000..5b74aec --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm @@ -0,0 +1,35 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Select; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub show { + my $this=shift; + + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + my $value=$this->question->value; + $value='' unless defined $value; + my $inlist=0; + map { $inlist=1 if $_ eq $value } @choices; + + if (! $inlist) { + if (@choices) { + $this->value($choices[0]); + } + else { + $this->value(''); + } + } + else { + $this->value($value); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm new file mode 100644 index 0000000..adbc516 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::String; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm new file mode 100644 index 0000000..be14ae8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm @@ -0,0 +1,16 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Text; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub show { + my $this=shift; + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm new file mode 100644 index 0000000..4082518 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm @@ -0,0 +1,78 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Select; +use strict; +use Debconf::Log ':all'; +use Debconf::Gettext; +use base qw(Debconf::Element); +use Debconf::Encoding qw(to_Unicode); + + +sub visible { + my $this=shift; + + my @choices=$this->question->choices_split; + + if (@choices > 1) { + return 1; + } + else { + debug 'developer' => 'Not displaying select list '. + $this->question->name.' with '. + (@choices+0).' choice'.((@choices == 0) ? 's' : ''); + return 0; + } +} + + +sub translate_default { + my $this=shift; + + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + my $c_default=''; + $c_default=$this->question->value if defined $this->question->value; + foreach (my $x=0; $x <= $#choices; $x++) { + return $choices[$x] if $choices_c[$x] eq $c_default; + } + return ''; +} + + +sub translate_to_C { + my $this=shift; + my $value=shift; + + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + for (my $x=0; $x <= $#choices; $x++) { + return $choices_c[$x] if $choices[$x] eq $value; + } + debug developer => sprintf(gettext("Input value, \"%s\" not found in C choices! This should never happen. Perhaps the templates were incorrectly localized."), $value); + return ''; +} + +sub translate_to_C_uni { + my $this=shift; + my $value=shift; + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + for (my $x=0; $x <= $#choices; $x++) { + return $choices_c[$x] if to_Unicode($choices[$x]) eq $value; + } + debug developer => sprintf(gettext("Input value, \"%s\" not found in C choices! This should never happen. Perhaps the templates were incorrectly localized."), $value); + return ''; +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm new file mode 100644 index 0000000..584ebca --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm @@ -0,0 +1,67 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Boolean; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my $y=gettext("yes"); + my $n=gettext("no"); + + $this->frontend->display($this->question->extended_description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + if ($default eq 'true') { + $default=$y; + } + elsif ($default eq 'false') { + $default=$n; + } + + my $value=''; + + while (1) { + $_=$this->frontend->prompt( + default => $default, + completions => [$y, $n], + prompt => $this->question->description, + question => $this->question, + ); + return unless defined $_; + + if (substr($y, 0, 1) ne substr($n, 0, 1)) { + $y=substr($y, 0, 1); + $n=substr($n, 0, 1); + } + if (/^\Q$y\E/i) { + $value='true'; + last; + } + elsif (/^\Q$n\E/i) { + $value='false'; + last; + } + + if (/^y/i) { + $value='true'; + last; + } + elsif (/^n/i) { + $value='false'; + last; + } + } + + $this->frontend->display("\n"); + $this->value($value); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm new file mode 100644 index 0000000..3f0543f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Error; +use strict; +use base qw(Debconf::Element::Teletype::Text); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm new file mode 100644 index 0000000..8bc89a3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm @@ -0,0 +1,78 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Multiselect; +use strict; +use Debconf::Gettext; +use Debconf::Config; +use base qw(Debconf::Element::Multiselect Debconf::Element::Teletype::Select); + + +sub show { + my $this=shift; + + my @selected; + my $none_of_the_above=gettext("none of the above"); + + my @choices=$this->question->choices_split; + my %value = map { $_ => 1 } $this->translate_default; + if ($this->frontend->promptdefault && $this->question->value ne '') { + push @choices, $none_of_the_above; + } + my @completions=@choices; + my $i=1; + my %choicenum=map { $_ => $i++ } @choices; + + $this->frontend->display($this->question->extended_description."\n"); + + my $default; + if (Debconf::Config->terse eq 'false') { + $this->printlist(@choices); + $this->frontend->display("\n(".gettext("Enter the items you want to select, separated by spaces.").")\n"); + push @completions, 1..@choices; + $default=join(" ", map { $choicenum{$_} } + grep { $value{$_} } @choices); + } + else { + $default=join(" ", grep { $value{$_} } @choices); + } + + while (1) { + $_=$this->frontend->prompt( + prompt => $this->question->description, + default => $default, + completions => [@completions], + completion_append_character => " ", + question => $this->question, + ); + return unless defined $_; + + @selected=split(/[ ,]+/, $_); + + @selected=map { $this->expandabbrev($_, @choices) } @selected; + + next if grep { $_ eq '' } @selected; + + if ($#selected > 0) { + map { next if $_ eq $none_of_the_above } @selected; + } + + last; + } + + $this->frontend->display("\n"); + + if (defined $selected[0] && $selected[0] eq $none_of_the_above) { + $this->value(''); + } + else { + my %selected=map { $_ => 1 } @selected; + + $this->value(join(', ', $this->order_values( + map { $this->translate_to_C($_) } + keys %selected))); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm new file mode 100644 index 0000000..086f6d2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Note; +use strict; +use base qw(Debconf::Element); + + + +sub visible { + my $this=shift; + + return (Debconf::Config->terse eq 'false'); +} + +sub show { + my $this=shift; + + $this->frontend->display($this->question->description."\n\n". + $this->question->extended_description."\n"); + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm new file mode 100644 index 0000000..3d07d59 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm @@ -0,0 +1,34 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Password; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->display( + $this->question->extended_description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + my $value=$this->frontend->prompt_password( + prompt => $this->question->description, + default => $default, + question => $this->question, + ); + return unless defined $value; + + if ($value eq '') { + $value=$default; + } + + $this->frontend->display("\n"); + $this->value($value); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm new file mode 100644 index 0000000..35985dd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm @@ -0,0 +1,46 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Progress; +use strict; +use base qw(Debconf::Element); + + +sub start { + my $this=shift; + + $this->frontend->title($this->question->description); + $this->frontend->display(''); + $this->last(0); +} + +sub set { + my $this=shift; + my $value=shift; + + $this->progress_cur($value); + + use integer; + my $new = ($this->progress_cur() - $this->progress_min()) * 100 / ($this->progress_max() - $this->progress_min()); + $this->last(0) if $new < $this->last; + return if $new / 10 == $this->last / 10; + + $this->last($new); + $this->frontend->display("..$new%"); + + return 1; +} + +sub info { + return 1; +} + +sub stop { + my $this=shift; + + $this->frontend->display("\n"); + $this->frontend->title($this->frontend->requested_title); +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm new file mode 100644 index 0000000..e5a02a3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm @@ -0,0 +1,144 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Select; +use strict; +use Debconf::Config; +use POSIX qw(ceil); +use base qw(Debconf::Element::Select); + + +sub expandabbrev { + my $this=shift; + my $input=shift; + my @choices=@_; + + if (Debconf::Config->terse eq 'false' and + $input=~m/^[0-9]+$/ and $input ne '0' and $input <= @choices) { + return $choices[$input - 1]; + } + + my @matches=(); + foreach (@choices) { + return $_ if /^\Q$input\E$/; + push @matches, $_ if /^\Q$input\E/; + } + return $matches[0] if @matches == 1; + + if (! @matches) { + foreach (@choices) { + return $_ if /^\Q$input\E$/i; + push @matches, $_ if /^\Q$input\E/i; + } + return $matches[0] if @matches == 1; + } + + return ''; +} + + +sub printlist { + my $this=shift; + my @choices=@_; + my $width=$this->frontend->screenwidth; + + my $choice_min=length $choices[0]; + map { $choice_min = length $_ if length $_ < $choice_min } @choices; + my $max_cols=int($width / (2 + length(@choices) + 2 + $choice_min)) - 1; + $max_cols = $#choices if $max_cols > $#choices; + + my $max_lines; + my $num_cols; +COLUMN: for ($num_cols = $max_cols; $num_cols >= 0; $num_cols--) { + my @col_width; + my $total_width; + + $max_lines=ceil(($#choices + 1) / ($num_cols + 1)); + + next if ceil(($#choices + 1) / $max_lines) - 1 < $num_cols; + + foreach (my $choice=1; $choice <= $#choices + 1; $choice++) { + my $choice_length=2 + + length(@choices) + 2 + + length($choices[$choice - 1]); + my $current_col=ceil($choice / $max_lines) - 1; + if (! defined $col_width[$current_col] || + $choice_length > $col_width[$current_col]) { + $col_width[$current_col]=$choice_length; + $total_width=0; + map { $total_width += $_ } @col_width; + next COLUMN if $total_width > $width; + } + } + + last; + } + + my $line=0; + my $max_len=0; + my $col=0; + my @output=(); + for (my $choice=0; $choice <= $#choices; $choice++) { + $output[$line] .= " ".($choice+1).". " . $choices[$choice]; + if (length $output[$line] > $max_len) { + $max_len = length $output[$line]; + } + if (++$line >= $max_lines) { + if ($col++ != $num_cols) { + for (my $l=0; $l <= $#output; $l++) { + $output[$l] .= ' ' x ($max_len - length $output[$l]); + } + } + + $line=0; + $max_len=0; + } + } + + @output = map { s/\s+$//; $_ } @output; + + map { $this->frontend->display_nowrap($_) } @output; +} + +sub show { + my $this=shift; + + my $default=$this->translate_default; + my @choices=$this->question->choices_split; + my @completions=@choices; + + $this->frontend->display($this->question->extended_description."\n"); + + if (Debconf::Config->terse eq 'false') { + for (my $choice=0; $choice <= $#choices; $choice++) { + if ($choices[$choice] eq $default) { + $default=$choice + 1; + last; + } + } + + $this->printlist(@choices); + $this->frontend->display("\n"); + + push @completions, 1..@choices; + } + + my $value; + while (1) { + $value=$this->frontend->prompt( + prompt => $this->question->description, + default => $default ? $default : '', + completions => [@completions], + question => $this->question, + ); + return unless defined $value; + $value=$this->expandabbrev($value, @choices); + last if $value ne ''; + } + $this->frontend->display("\n"); + $this->value($this->translate_to_C($value)); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm new file mode 100644 index 0000000..9b935b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm @@ -0,0 +1,30 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->display( + $this->question->extended_description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + my $value=$this->frontend->prompt( + prompt => $this->question->description, + default => $default, + question => $this->question, + ); + return unless defined $value; + + $this->frontend->display("\n"); + $this->value($value); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm new file mode 100644 index 0000000..e24e8c6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->display($this->question->description."\n\n". + $this->question->extended_description."\n"); + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm new file mode 100644 index 0000000..37748e6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm @@ -0,0 +1,36 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Boolean; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + my $id=$this->id; + $_.="<input type=checkbox name=\"$id\"". ($default eq 'true' ? ' checked' : ''). ">\n<b>". + $this->question->description."</b>"; + + return $_; +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + $this->SUPER::value($value eq 'on' ? 'true' : 'false'); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm new file mode 100644 index 0000000..cad58e3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Error; +use strict; +use base qw(Debconf::Element::Web::Text); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm new file mode 100644 index 0000000..18bad0d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm @@ -0,0 +1,51 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Multiselect; +use strict; +use base qw(Debconf::Element::Multiselect); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my %value = map { $_ => 1 } $this->translate_default; + + my $id=$this->id; + $_.="<b>".$this->question->description."</b>\n<select multiple name=\"$id\">\n"; + my $c=0; + foreach my $x ($this->question->choices_split) { + if (! $value{$x}) { + $_.="<option value=".$c++.">$x\n"; + } + else { + $_.="<option value=".$c++." selected>$x\n"; + } + } + $_.="</select>\n"; + + return $_; +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + + my @values=@_; + + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + + $this->SUPER::value(join(', ', $this->order_values(map { $choices[$_] } @values))); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm new file mode 100644 index 0000000..d7fd359 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Note; +use strict; +use base qw(Debconf::Element::Web::Text); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm new file mode 100644 index 0000000..0242e5e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Password; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + my $id=$this->id; + $_.="<b>".$this->question->description."</b><input type=password name=\"$id\" value=\"$default\">\n"; + + return $_; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm new file mode 100644 index 0000000..d186fe8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Progress; +use strict; +use base qw(Debconf::Element); + + +sub start { +} + +sub set { + return 1; +} + +sub info { + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm new file mode 100644 index 0000000..1a3b456 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm @@ -0,0 +1,48 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Select; +use strict; +use base qw(Debconf::Element::Select); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=$this->translate_default; + my $id=$this->id; + $_.="<b>".$this->question->description."</b>\n<select name=\"$id\">\n"; + my $c=0; + foreach my $x ($this->question->choices_split) { + if ($x ne $default) { + $_.="<option value=".$c++.">$x\n"; + } + else { + $_.="<option value=".$c++." selected>$x\n"; + } + } + $_.="</select>\n"; + + return $_; +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + $this->SUPER::value($choices[$value]); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm new file mode 100644 index 0000000..3fefbf2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + my $id=$this->id; + $_.="<b>".$this->question->description."</b><input name=\"$id\" value=\"$default\">\n"; + + return $_; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm new file mode 100644 index 0000000..fad43f0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + return "<b>".$this->question->description."</b>$_<p>"; +} + + +1 |