diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde')
9 files changed, 346 insertions, 0 deletions
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 |